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
Pergunta
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:
--------------------------------------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------------------------------------ O código que deveria carregar a segunda combobox: --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
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 quintelabAdicionado 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.