Olá amigos programadores...
Eu já fiz essa pergunta 2 vezes, recebi duas respostas e não deu certo, e espero que alguém me ajude com minha ultima resposta, pois eu acho que ela foi a que menos deu problema...
Tenho um BDEstoque, com uma TBControle, com os campos Código, Medicamento e Data...
No meu frmEstoque, possuo um cmdPesquisa e uma LstLista.
Quando o programa começar, aparecerá um inputbox com a pergunta :"Qual medicamento deseja procurar?"
Depois disso, eu gostaria de um comando que depois que eu digitasse o medicamento, todos os nomes iguais ao que eu digitei (pois há varios nomes repetidos no BD), fossem inseridos na lstlista com seus respectivos campos código e data...
Por exemplo, se eu digitar Cataflam, todos os cataflam que eu possuo no meu bd, junto com seu código e data serão incluidos na minha lstlista...
Eu recebi a seguinte resposta, mas sempre que eu rodo a procura, dá menssagem de erro...
Dim strMedicamento as String
Dim RS as ADODB.Recordset
Dim DB as ADODB.Connection
.
.
'conexão ao BD e Tabela
.
'no evento load do seu form por exemplo:
strMedicamento = InputBox("Qual medicamento deseja procurar?", "Consulta")
RS.Filter = "Nome like '" & strMedicamento & "*'" 'filtra os registros da sua tabela
RS.MoveF irst
Do while Not RS.EOF
List1.AddItem RS!Cod & " - " & RS!Medicamento & " - " & RS!Data 'Adiciona os registros ao seu List
RS.MoveNext
Loop
A mensagem de erro é a seguinte:
Run-Time error 91
Object variable or whit block variable not set
E a linha
RS.Filter = "Nome like '" & strMedicamento & "*'"
fica selecionada...
Obs: Eu não consegui declarar as variaveis como adobd...
Dim RS as ADODB.Recordset
Dim DB as ADODB.Connection
eu declarei como:
Dim RS as Recordset
Dim DB as Connection
Obrigado para quem me ajudar de novo...
