(Resolvido) Combobox dinâmico

[rodrigotnoma]

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 Março 19, 2009 por quintelab
Adicionado BBCode Code

[quintelab]

Chegou a debugar para ver se entrou no IF?

Abraços...

[rodrigotnoma]

Sim, ele entra no IF.Ele não entra no Do While, dessa linha:

Do While dr2.Read()

Ele pula direto para:

End If

Saberia me ajudar?

Editado Março 19, 2009 por rodrigotnoma

[quintelab]

Então o select não esta retornando dados, veja se esta conectando no banco correto.

Abraços...

[rodrigotnoma]

Quintelab

Esta resolvido, pode fechar.

Obrigado.

[quintelab]

Ok, poste a solução do seu problema.

Abraços...