CARREGAR DADOS DO BD NO LISTBOX
Ola pessoal!
Tenho uma tabela "Total" com campo "Descricao", uso vb6 e access 2000, certo.
Gostaria que no listbox pegasse os dados deste campo por ordem alfabetica, e quando procurar por parte do nome no meu txtpesquisa meu foco irira para o list e posso com as setas procurar o produto espicifico, e quando desse um click mostrasse dodos os campos da tabela nos textbox especificos. [S43]
Tenho uma tabela "Total" com campo "Descricao", uso vb6 e access 2000, certo.
Gostaria que no listbox pegasse os dados deste campo por ordem alfabetica, e quando procurar por parte do nome no meu txtpesquisa meu foco irira para o list e posso com as setas procurar o produto espicifico, e quando desse um click mostrasse dodos os campos da tabela nos textbox especificos. [S43]
Utilize uma instrução SQL da seguinte forma para listar os dados do campo no listbox!
Dim bd As Database
Dim rsDados As RecordSet
Set bd = DBEngine.OIpendatabase ("caminho do banco de dados")
Set rsDados = bd.OpenRecordset ("SELECT Descricao FROM Total GROUP BY Descricao ")
Do Until rsDados.Eof
List1.Additem rsDados!Descricao
rRsDados.MoveNext
Loop
O restante é só botar a cabeça para funcionar![S51][S47]
Dim bd As Database
Dim rsDados As RecordSet
Set bd = DBEngine.OIpendatabase ("caminho do banco de dados")
Set rsDados = bd.OpenRecordset ("SELECT Descricao FROM Total GROUP BY Descricao ")
Do Until rsDados.Eof
List1.Additem rsDados!Descricao
rRsDados.MoveNext
Loop
O restante é só botar a cabeça para funcionar![S51][S47]
Valeu WCOSTA.
se ajudar,
http://www.vbmania.com.br/vbmdetail.php?varID=2971
http://www.vbmania.com.br/vbmdetail.php?varID=2971
Tópico encerrado , respostas não são mais permitidas