BUSCAR EM TODO CAMPO (BD ACCESS)

 Tópico anterior Próximo tópico Novo tópico

BUSCAR EM TODO CAMPO (BD ACCESS)

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#445705 - 05/04/2015 11:43:36

MARIOANDRADE
SANTO ANTONIO DE JESUS
Cadast. em:Abril/2012


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.

Cursos de Excel e VB6:
cursoexcelvba.com.br



Resposta escolhida #445709 - 05/04/2015 12:53:13

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Não consigo entender como você faz certos de tipos de consulta e obtém resultado.
like'" & "%'" & txtLBDNome.Text & "%'
Isto acusa erro de sintaxe.
Elimine isto.



#445710 - 05/04/2015 13:01:11

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Última edição em 05/04/2015 13:05:31 por FABRICIOWEB

Connect

rs.Open "SELECT * FROM tblBanco where NomeBD '" & Text1.Text & "%'" & "order by FormaBD", CON, adOpenStatic, adLockOptimistic

em modulo coloque



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




#445711 - 05/04/2015 13:50:01

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Esqueci de outro detalhe.
like'" & "%'" & txtLBDNome.Text & "%'

Faça deste jeito  '%" & txtLBDNome.Text & "%'

A consulta do FrabricioWeb também gera erro.




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MARIOANDRADE em 05/04/2015 16:35:57