Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Combobox dinâmico


rodrigotnoma

Pergunta

Estou usando 2 combobox, 1 BD chamado Times.mdb, que possui 2 tabelas(times,spfc), ambas tabelas possuem apenas 1 campo(nome).

O código que carrega a primeira combobox:

--------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As System.Data.OleDb.OleDbConnection
        Dim sql As String
        Dim cmd As System.Data.OleDb.OleDbCommand
        
        sql = "select * from times"

        conn = New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=c:\bd\times.mdb;")

        conn.Open()

        cmd = New System.Data.OleDb.OleDbCommand(sql, conn)

        dr = cmd.ExecuteReader()

        Do While dr.Read()


            ComboBox1.Items.Add(dr("nome"))

        Loop

        conn.Close()

    End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------ O código que deveria carregar a segunda combobox: -------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        TextBox1.Text = ComboBox1.SelectedItem

        Dim time As String
        Dim conn2 As System.Data.OleDb.OleDbConnection
        Dim cmd2 As System.Data.OleDb.OleDbCommand
        Dim sql2 As String
        Dim dr2 As System.Data.OleDb.OleDbDataReader

        time = ComboBox1.SelectedItem

        conn2 = New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=c:\bd\times.mdb;")

        conn2.Open()

        If time = "SPFC" Then

            sql2 = "select * from spfc"

            cmd2 = New System.Data.OleDb.OleDbCommand(sql2, conn2)

            dr2 = cmd2.ExecuteReader()

            Do While dr2.Read()

                ComboBox2.Items.Add(dr2("nome"))

            Loop

        End If

        conn2.Close()

    End Sub

-------------------------------------------------------------------------------------------------------------------------------------------------------

O textbox1 coloquei somente para verificar a string que estava "capturando" do combobox1.

Enfim, o que acontece é que o combobox2 não carrega com os nomes dos jogadores que estão no BD.

O que poderia estar fazendo de errado?

Obrigado

Rodrigo

Editado por quintelab
Adicionado BBCode Code
Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...