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 fao assim

combo.itemData(combo.selectindex)

E como fao 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 Dinmica 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 cdigos binrios.



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 varivel 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 idia 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