BUSCAR EM TODO CAMPO (BD ACCESS)

MARIOANDRADE 05/04/2015 11:43:36
#445705
Meus amigos, estou usando o código abaixo para localizar qualquer conteúdo do campo pesquisado, exemplo, se digitar [Ô]CIO[Ô] então eu
queria que trouxesse resultados como [Ô]MARCIO[Ô], porém ele só busca do começo do nome, alguém sabe onde está o erro?
rs.Open [Ô]Select * from tblBanco where NomeBD like[ô][Ô] & [Ô]%[ô][Ô] & txtLBDNome.Text & [Ô]%[ô] order by FormaBD[Ô], db, 3, 3


Grato a todos que possam ajudar.
OMAR2011 05/04/2015 12:53:13
#445709 Resposta escolhida
Não consigo entender como você faz certos de tipos de consulta e obtém resultado.
like[txt-color=#e80000][ô][Ô] &[/txt-color] [Ô]%[ô][Ô] & txtLBDNome.Text & [Ô]%[ô]
Isto acusa erro de sintaxe.
Elimine isto.
FABRICIOWEB 05/04/2015 13:01:11
#445710
Connect

rs.Open [Ô]SELECT * FROM tblBanco where NomeBD [ô][Ô] & Text1.Text & [Ô]%[ô][Ô] & [Ô]order by FormaBD[Ô], CON, adOpenStatic, adLockOptimistic

em modulo coloque

[txt-color=#e80000]

Public rs3010 As ADODB.Recordset
Public con3010 As ADODB.Connection

Sub Connect()

Set CON = CreateObject([Ô]ADODB.Connection[Ô])
Set RS = CreateObject([Ô]ADODB.Recordset[Ô])

CON.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =c:\dados.MDB[Ô]
RS.CursorLocation = adUseClient

End Sub


Sub Disconnect()
On Error GoTo TrataErro10
rs.Close
CON.Close


TrataErro10:

If Err.Number = 3265 Then
MsgBox [Ô]Erro de dados[Ô]
End If


Set rs = Nothing
Set CON = Nothing


End Sub
[/txt-color]
OMAR2011 05/04/2015 13:50:01
#445711
Esqueci de outro detalhe.
like[txt-color=#e80000][ô][Ô] &[/txt-color] [txt-color=#e80000][Ô]%[ô][Ô] [/txt-color]& txtLBDNome.Text & [Ô]%[ô]

Faça deste jeito [ô]%[Ô] & txtLBDNome.Text & [Ô]%[ô]

A consulta do FrabricioWeb também gera erro.
Tópico encerrado , respostas não são mais permitidas
Voltar