CONSULTA NÃO RETORNA DADOS
Bom dia, povo
olha só, essa consulta deveria retornar uma lista de nomes encontrados, porem retorna dizendo que nada fora encontrado; onde estou errando?
migrei a pouco de DAO para ADO e ainda estou muito cru na linguagem...
grato desde já.
Dim db As ADODB.Connection, rs As ADODB.Recordset
Set db = CreateObject([Ô]ADODB.Connection[Ô])
db.CursorLocation = adUseClient
db.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\banco.accdb;Jet OLEDB:Database Password=senha;[Ô]
Set rs = CreateObject([Ô]ADODB.Recordset[Ô]): rs.Open [Ô]SELECT * FROM tabela where Campo1 LIKE [ô]*[Ô] + texto.Text + [Ô]*[ô] Order by Campo1[Ô], db
If rs.EOF Then
MsgBox [Ô] A T E N Ç Ã O[Ô] + Chr(13) + [Ô]Texto não encontrado no Banco de Dados...[Ô], vbExclamation, [Ô]Não Achei...[Ô]
Else
While Not rs.EOF
LstBox1.AddItem rs([Ô]Campo1[Ô])
rs.MoveNext
Wend
End If
rs.Close
db.Close
End If
olha só, essa consulta deveria retornar uma lista de nomes encontrados, porem retorna dizendo que nada fora encontrado; onde estou errando?
migrei a pouco de DAO para ADO e ainda estou muito cru na linguagem...
grato desde já.
Dim db As ADODB.Connection, rs As ADODB.Recordset
Set db = CreateObject([Ô]ADODB.Connection[Ô])
db.CursorLocation = adUseClient
db.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\banco.accdb;Jet OLEDB:Database Password=senha;[Ô]
Set rs = CreateObject([Ô]ADODB.Recordset[Ô]): rs.Open [Ô]SELECT * FROM tabela where Campo1 LIKE [ô]*[Ô] + texto.Text + [Ô]*[ô] Order by Campo1[Ô], db
If rs.EOF Then
MsgBox [Ô] A T E N Ç Ã O[Ô] + Chr(13) + [Ô]Texto não encontrado no Banco de Dados...[Ô], vbExclamation, [Ô]Não Achei...[Ô]
Else
While Not rs.EOF
LstBox1.AddItem rs([Ô]Campo1[Ô])
rs.MoveNext
Wend
End If
rs.Close
db.Close
End If
No LIKE do SELECT em questão. Tire o * e coloque %
mais uma vez, obrigado Filman
Tópico encerrado , respostas não são mais permitidas