COMO PREENCHER COMBOBOX NO VB .NET
Ola pessoal, estou com uma seguinte duvida. No vb6 eu preencho combobox assim e ainda defino o index do recordset do banco. Exemplo.
while not rs.eof
combo.AddItem plRecordset(1).Value
combo .ItemData(.NewIndex) = plRecordset(0).Value
plRecordset.MoveNext
wend
E para pegar o index de retorno eu faço assim
combo.itemData(combo.selectindex)
E como faço isso no Vb .Net para o preenchimento e retorno ??????????????
A sim estou usando ADODB por isso eu passo o recordset
while not rs.eof
combo.AddItem plRecordset(1).Value
combo .ItemData(.NewIndex) = plRecordset(0).Value
plRecordset.MoveNext
wend
E para pegar o index de retorno eu faço assim
combo.itemData(combo.selectindex)
E como faço isso no Vb .Net para o preenchimento e retorno ??????????????
A sim estou usando ADODB por isso eu passo o recordset
Vamos aos exemplos !
Vamos pescar ?
Preenchendo uma Combobox
VB.NET - Busca Dinâmica em um ComboBox
Como adicionar itens a um ComboBox
Mais alguma duvida ?
Vamos pescar ?
Preenchendo uma Combobox
VB.NET - Busca Dinâmica em um ComboBox
Como adicionar itens a um ComboBox
Mais alguma duvida ?
olha se você estiver usando datatable para retornar valores do banco de dados mysql.
você pode usar essa forma para colocar os dados no combobox
[ô]Cria a variável DataTable
Dim dt As New DataTable
[ô]Consulta os dados no banco de dados
Try
Conexao.Open()
Comando = New MySqlCommand([Ô]SELECT Distinct Campo FROM tabela Where Campo = 0 ORDER BY Campo[Ô], Conexao)
myAdapter.SelectCommand = Comando
myAdapter.Fill(dt)
Return dt
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Warning)
Finally
Conexao.Close()
End Try
[ô]Insere os dados no combobox
With cbxCombo [ô]Identifica o combo
.DataSource = dt
.DisplayMember = [Ô]Campo[Ô]
.ValueMember = [Ô]CampoChave[Ô]
End With
Para retornar o valor do campo chave:
Dim teste As String = cbxcombo.ValueMember
você pode usar essa forma para colocar os dados no combobox
[ô]Cria a variável DataTable
Dim dt As New DataTable
[ô]Consulta os dados no banco de dados
Try
Conexao.Open()
Comando = New MySqlCommand([Ô]SELECT Distinct Campo FROM tabela Where Campo = 0 ORDER BY Campo[Ô], Conexao)
myAdapter.SelectCommand = Comando
myAdapter.Fill(dt)
Return dt
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Warning)
Finally
Conexao.Close()
End Try
[ô]Insere os dados no combobox
With cbxCombo [ô]Identifica o combo
.DataSource = dt
.DisplayMember = [Ô]Campo[Ô]
.ValueMember = [Ô]CampoChave[Ô]
End With
Para retornar o valor do campo chave:
Dim teste As String = cbxcombo.ValueMember
Tópico encerrado , respostas não são mais permitidas