PRECISO DE AJUDA: PESQUISA NO ADO
Estou desenvolvendo um programa de cadastro de Questões para professores e encontrei um problema quando tentei fazer uma pesquisa por campo:
Private Sub Command7_Click()
Adodc1.Recordset.MoveFirst
Nome = InputBox([Ô]Qual Questão você quer selecionar?![Ô], [Ô]Localizar[Ô])
Adodc1.Recordset.Find [Ô]Questão LIKE[ô]*[Ô] & Nome & [Ô]*[ô][Ô]
If Adodc1.Recordset.EOF Then
MsgBox [Ô]Cliente não encontrado ![Ô], vbInformation
End If
End Sub
o problema é que após digitar o que desejo no imputbox e dar enter aparece o erro 3001
Como saio dessa?
Private Sub Command7_Click()
Adodc1.Recordset.MoveFirst
Nome = InputBox([Ô]Qual Questão você quer selecionar?![Ô], [Ô]Localizar[Ô])
Adodc1.Recordset.Find [Ô]Questão LIKE[ô]*[Ô] & Nome & [Ô]*[ô][Ô]
If Adodc1.Recordset.EOF Then
MsgBox [Ô]Cliente não encontrado ![Ô], vbInformation
End If
End Sub
o problema é que após digitar o que desejo no imputbox e dar enter aparece o erro 3001
Como saio dessa?
Maluco,vou dizer uma coisa para tu.Pega ADODC coloca dentro de um saco amarra bem com uma pedra dentro e joque num rio ou lagoa.
Abandone ADODC.
Jeito deeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee.
Tem vários exemplos no site do www.macoratti.net para pesquisa e feitio do seu projeto.
Pode ir sem medo que conseguirá.
Não leve a mal.
Valeu.
Abandone ADODC.
Jeito deeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee.
Tem vários exemplos no site do www.macoratti.net para pesquisa e feitio do seu projeto.
Pode ir sem medo que conseguirá.
Não leve a mal.
Valeu.
Valeu
Tópico encerrado , respostas não são mais permitidas