Olá amigos, faz tempo que não visito o fórum.
Estou estudando mysql com ado. Gostaria de saber como é que eu faço para preencher um listbox ou qqer outro controle (textbox,etc) com os resultados de uma consulta select. Eu digitei o seguinte código:
Private Sub mnuconsulta_Click()
Dim informa As String
Dim cSql As String
informa = InputBox("Digite o nome ou o código da mercadoria a ser consultada")
If IsNumeric(Trim(informa)) Then
cSql = "Select * from estoque where codigo = '" & Format(Trim(informa), "0000") & "' Order by Codigo "
Else
cSql = "Select * from estoque where descricao like '*" & Trim(informa) & "*' Order by Codigo "
End If
List1.AddItem myRS("codigo") & myRS("descricao") & myRS("valor")
End Sub
O problema é que quando eu executo, só aparece o primeiro registro da tabela no listbox, não importa o nome que eu digitar na busca. O resultado da consulta não aparece.
Se alguém tiver um exemplo simples de como executar essa operação e puder me enviar eu ficaria grato.
Desde já obrigado e um grande abraço a todos.
joaquim.hilario.rodr@terra.com.br