Buscando Dados

[Markinhuu]

bom dia ae família.. tudo bem com vocês ?

estou com um problema..tenho meu cadastro d cliente com seus dados armazenados no meu banco de dados...

ex: Marcus Tadeu Ribeiro da Silva

gostaria de fazer uma busca digitando "silva" ou "ribeiro" enfim... q ele buscasse todos os nomes na qual tenham essa chave...

minha rotina busca os nomes , + sendo q apenas os primeiros...

teriam como ajudar ?

obrigado

[]s

[Promotor Advanced]

O que está usando?

rsclientes.movefirst

Do while not RSClientes.EOF

if instr(0,ucase(rsclientes("NMClientes")),ucase("Augusto"))>0 then

msgbox "Achou"

endif

rsclientes.movenext

loop

esse caso aí deve resolver...

[Rafael_Tomitao]

Bom dia senhores,

Que tal uma instrução SQL...?

Select * from cliente where nome like '"& text1.text &"'"

[]'s

Rafael

[Bicicleta]

opa, e ai rafael (meu chará - hehehehe), beleza... só faltou o coringa na SQL:

SELECT * FROM tabela WHERE nome LIKE '%"& text1.text &"%'

valeu!

[Rafael_Tomitao]

Rafael (Bicicleta),

Desculpas...

[]'s

Valeu

Rafael

[William Rodrigues]

Markinhuu

Que tipo de conexão está usando brother....DAO ou ADO ?

Tente usar uma instrução em SQL como os Rodrigo's falaram

hehehe

Abraços,

William Rodrigues

[Guest _olivers_]

amigo.... achei legal a rotina de busca eu estava precisando de uma para mim aplicar em alguns bancos...

será que você poderia me mandar um formulário com o projeto de busca para mim ver o código para poder aprender!

e-mail: f_olivers@yahoo.com.br

ICQ# 53901138

qualquer coisa você entra em contato brother!!!!!!!

vlw..

abraços.....

[Rafael_Tomitao]

Olivers,

Você da instrução SQL, se quiser eu te mando um tutorial bem legal da "linguagem"

[]'s

Até

[rodfraga]

Dim strProcura As String, vetor() As String, temEspaco As Boolean, ultimo As Integer
strProcura = Text1.Text
tabela.Open "Select nomedocampo FROM tabela", conexao
Do While Not tabela.EOF
For i = 1 to Len(tabela("campo")
If Mid(tabela("campo"), i, 1) = " " Then
temEspaco = True
Exit For
Else
temEspaco = False
End If
Next i
If temEspaco Then
vetor() = Split(tabela("campo"), " ")
For i = Lbound(vetor) to Ubound(vetor)
If vetor(i) = strProcura Then
txtAchados.Text = txtAchados.Text & ", " &  tabela("campo")
End If
Next i
Redim vetor(0)
Else
If tabela("campo") = strProcura Then
txtAchados.Text = txtAchados.Text & ", " & tabela("campo")
End If
End If
Loop
tabela.Close
If txtAchados.Text <> "" Then
vetor = Split(txtAchados.Text, ", ")
ultimo = Ubound(vetor) + 1
Msgbox "Foram achados " & ultimo & " resultados"
Redim vetor(0)
Else
Msgbox "Não foram achados resultados"
End If

Eu fiz aqui de bobeira. Tenho minhas dúvidas se está certo, não testei. Porém está aí um que procura por palavras e expressões. Para fazer algo mais preciso, muitos incrementos serão necessários, e provavelmente devem haver erros no que fiz.

Mas está aí minha contribuição.