COMO PREENCHER COMBOBOX NO VB .NET

 Tópico anterior Próximo tópico Novo tópico

COMO PREENCHER COMBOBOX NO VB .NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#380248 - 28/07/2011 22:55:01

POLINIA5
OSASCO
Cadast. em:Maio/2009


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





#380249 - 28/07/2011 23:02:20

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


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 ?



Estou voltando... Olá a todos... Já posso dizer, ("Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA")
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em códigos binários.



Resposta escolhida #380275 - 29/07/2011 10:20:04

KILLER
JM
Cadast. em:Março/2010


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

A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por POLINIA5 em 29/07/2011 10:24:01