POPULAR UM DBCOMBO COM UMA QUERY
fala ai galera estou precisando popular uma dbcombom com o resultado de uma query, mas se vincular o dbcombo a um objeto ado
Depois q tu abastacer a recordset com o resultado da query, faça um loop nela preenchendo o combo.
Att
Charles
Att
Charles
mas se vincular o dbcombo a um objeto ado o que acontece ?
vc nao terminou
vc nao terminou
Citação:ROGERIOLEAL escreveu:
fala ai galera estou precisando popular uma dbcombom com o resultado de uma query, mas se vincular o dbcombo a um objeto ado
[S59]
Vc quis dizerm sem vincular? Se sim, é melhor usar um combo normal e o código:
rst.Open "SELECT CODIGO, NOME FROM TABELA"
Do While Not rst.EOF
Combo1.AddItem rst("NOME")
Combo1.ItemData(Combo1.NewIndex) = rst("CODIGO")
rst.MoveNext
Loop
rst.Close
Daà vc pode pegar o código do item selecionado assim:
MsgBox "Foi selecionado o item de código " & Combo1.ItemData(Combo1.ListIndex)[/c]
Falow...
pow matioli legal kra muito obrigado mas dessa forma eu já fiz, eu tava falando do dbcombo pq se fizer funciona só se eu fechar a conexão zera o resultado da dbcombo.
Então faz com o combo normal mesmo, ou só fecha a conexão ao sair do form...
Tópico encerrado , respostas não são mais permitidas