• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

heliumgas

Vb.net + Checkedlistbox

2 mensagens neste tópico

Boa noite.

Gostaria de saber como é que posso fazer para inserir numa tabela mysql os itens selecionados numa  Checkedlistbox isto em vb.net. supondo que essa  Checkedlistbox tem bastantes itens.

Private Sub btnguardar3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar3.Click

        Dim data_adapter As Odbc.OdbcDataAdapter
        Dim data_table As New DataTable
        Dim i As Integer
        Dim j As Integer
        Dim nome As String

        Call ligar()
        
        i = 0


        For i = 0 To CheckedListBox1.CheckedItems.Count - 1


            nome = CheckedListBox1.GetItemText(CheckedListBox1.SelectedItems.Item(i))
            data_adapter = New Odbc.OdbcDataAdapter("select id_disc from disciplinas where disc_nome = '" & nome & "'", con)
            data_adapter.Fill(data_table)
            i = data_table.Rows(j).Item(0)
            cmd.CommandText = "insert into disciplinas_alunos (numero_mec,id_disc) values ('" & Me.txtnumero.Text & "','" & i & "')"
            cmd.ExecuteNonQuery()


        Next
End Sub

este codigo que fiz por mais que selecione mais do que um item so me insere um e nao sei pq :wallbash:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não vi o teu código com muita atenção mas não vejo a variável j a ser inicializada nem a fazer loop.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora