Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

heliumgas

Vb.net + Checkedlistbox

Mensagens Recomendadas

heliumgas    0
heliumgas

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:

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade