CONSULTA COM PARTE DO CAMPO
Boa Tarde amigos
Como faço para fazwer uma consulta para buscar um determinado campo com parte dele.
Por exemolo:
o Campo [Ô]Supermercado Dias e Dias[Ô]
Buscar por [Ô]Dias[Ô] ou [Ô]Merca[Ô]
Se alguem puder me ajudar ficarei imensamente agradecido.
Sds,
Mito
Como faço para fazwer uma consulta para buscar um determinado campo com parte dele.
Por exemolo:
o Campo [Ô]Supermercado Dias e Dias[Ô]
Buscar por [Ô]Dias[Ô] ou [Ô]Merca[Ô]
Se alguem puder me ajudar ficarei imensamente agradecido.
Sds,
Mito
SELECT * FROM TABELA WHERE CAMPO LIKE [ô]%DIAS%[ô] OR CAMPO LIKE [ô]%MERCA%[ô]
Amigo FEDERHEN nao consegui fazer funcionar, vc me ajudar
Ome da tabel é clientes o campo é nome, o que eu preciso é buscar um determinado cliente com um pedaço do nome , do meio ou de qq parte do texto.
Se puder me ajude por favor
Sds,
Mito
Ome da tabel é clientes o campo é nome, o que eu preciso é buscar um determinado cliente com um pedaço do nome , do meio ou de qq parte do texto.
Se puder me ajude por favor
Sds,
Mito
Suponho que voce esteja usando uma conexão ADO...
pesquisa = [Ô]DIAS[Ô]
sql = [Ô]SELECT NOME FROM CLIENTES WHERE NOME LIKE [ô]%[Ô] & pesquisa & [Ô]%[ô][Ô]
Set recTabela = New ADODB.Recordset
recTabela.open sql, Conexao, adOpenForwardOnly, adLockReadOnly
Do Until recMaster.EOF
MsgBox recTabela!Nome
recTabela.MoveNext
recTabela.Close
pesquisa = [Ô]DIAS[Ô]
sql = [Ô]SELECT NOME FROM CLIENTES WHERE NOME LIKE [ô]%[Ô] & pesquisa & [Ô]%[ô][Ô]
Set recTabela = New ADODB.Recordset
recTabela.open sql, Conexao, adOpenForwardOnly, adLockReadOnly
Do Until recMaster.EOF
MsgBox recTabela!Nome
recTabela.MoveNext
recTabela.Close
Estou usando uma conexão com datacontrol
Estou quase ficando louco já
Sds,
Mito
Estou quase ficando louco já
Sds,
Mito
Mito vou dar um conselho não use DataControl , e lento e você não tem total controle , utiliza o ADO puro mesmo e carrega num record set .
Amigo, vê se funciona...
sSQL = [Ô]SELECT * FROM Tabela ORDER BY Campo ASC[Ô]
Set rs = Conexao.Execute(sSQL)
Do While Not rs.EOF = True
If rs!Campo Like [Ô]*[Ô] & TextdeBusca.Text & [Ô]*[Ô] Then
[ô]Adicione seus registros filtrados em um grid, listview, listbox ou em onde desejar aqui
End If
rs.MoveNext
Loop
OPS... Corrigindo alguns errinhos
pesquisa = [Ô]DIAS[Ô]
sql = [Ô]SELECT NOME FROM CLIENTES WHERE NOME LIKE [ô]%[Ô] & pesquisa & [Ô]%[ô][Ô]
Set recTabela = New ADODB.Recordset
recTabela.open sql, Conexao, adOpenForwardOnly, adLockReadOnly
Do Until [txt-color=#e80000]recTabela.EOF[/txt-color]
MsgBox recTabela!Nome
recTabela.MoveNext
[txt-color=#e80000]Loop[/txt-color]
recTabela.Close
pesquisa = [Ô]DIAS[Ô]
sql = [Ô]SELECT NOME FROM CLIENTES WHERE NOME LIKE [ô]%[Ô] & pesquisa & [Ô]%[ô][Ô]
Set recTabela = New ADODB.Recordset
recTabela.open sql, Conexao, adOpenForwardOnly, adLockReadOnly
Do Until [txt-color=#e80000]recTabela.EOF[/txt-color]
MsgBox recTabela!Nome
recTabela.MoveNext
[txt-color=#e80000]Loop[/txt-color]
recTabela.Close
assim
Data1.Recordsource = [Ô]SELECT NOME FROM CLIENTES WHERE NOME LIKE [ô]%[Ô] & pesquisa & [Ô]%[ô][Ô]
Data1.Recordsource = [Ô]SELECT NOME FROM CLIENTES WHERE NOME LIKE [ô]%[Ô] & pesquisa & [Ô]%[ô][Ô]
Marcelo tabem não funciona
Fiz desta forma mas nao funca
Dim sSQL As String
sSQL = [Ô]SELECT NOME FROM CLIENTES WHERE NOME LIKE [ô]%[Ô] & Text1.Text & [Ô]%[ô][Ô]
DataConsulta.RecordSource = sSQL
DataConsulta.Refresh
Sds,
Ademilço
Fiz desta forma mas nao funca
Dim sSQL As String
sSQL = [Ô]SELECT NOME FROM CLIENTES WHERE NOME LIKE [ô]%[Ô] & Text1.Text & [Ô]%[ô][Ô]
DataConsulta.RecordSource = sSQL
DataConsulta.Refresh
Sds,
Ademilço
é complicadot datacontrol ....uhnnnn faz tempo.
tenta assim com asteriscos
tenta assim com asteriscos
Dim sSQL As String
sSQL = [Ô]SELECT NOME FROM CLIENTES WHERE NOME LIKE [ô]*[Ô] & Text1.Text & [Ô]*[ô][Ô]
DataConsulta.RecordSource = sSQL
DataConsulta.Refresh
Tópico encerrado , respostas não são mais permitidas