[Resolvido] Ferramenta de busca

[Gustavo_Germ 0]

Galera blza??

 

então o que acontece... estou criando uma ferramenta de busca, porem tem a opção por nomes lá...

 

daí quando eu digito só o 1º nome não vem nada, só vem se eu digitar o nome inteiro... mas eu gostaria q ele já me retornasse algo, pois alguns primeiros nomes repetem bastante.... tipo

 

BUSCAR: JOSÉ

 

LSTBUSCA:

 

JOSÉ RODRIGO

JOSÉ APARECIDO

ROBERTO JOSÉ....

 

MEU CÓDIGO ESTÁ ASSIM:

 

If OptNom.Value = True Then

 

CONALU_S = Empty

 

CONALU_S = "select * from Alunos where alunos.nom = '" & TxtNom.Text & "'"

Set ALUNO_R2 = ALUNO_D2.OpenRecordset(CONALU_S, dbOpenDynaset)

 

If CONALU_S = Empty Then

MsgBox "Não houve alunos encontrados.", vbCritical, "ERRO"

Exit Sub

End If

 

Do Until ALUNO_R2.EOF = True

LstBus.AddItem ALUNO_R2!nom

ALUNO_R2.MoveNext

Loop

 

End If

 

VLW

[Lilian Butkevicis 0]

Substitua CONALU_S = "select * from Alunos where alunos.nom = '" & TxtNom.Text & "'" por CONALU_S = "select * from Alunos where alunos.nom like '%" & TxtNom.Text & "%'"

 

Veja se resolve ^_^

 

 

Galera blza??

 

então o que acontece... estou criando uma ferramenta de busca, porem tem a opção por nomes lá...

 

daí quando eu digito só o 1º nome não vem nada, só vem se eu digitar o nome inteiro... mas eu gostaria q ele já me retornasse algo, pois alguns primeiros nomes repetem bastante.... tipo

 

BUSCAR: JOSÉ

 

LSTBUSCA:

 

JOSÉ RODRIGO

JOSÉ APARECIDO

ROBERTO JOSÉ....

 

MEU CÓDIGO ESTÁ ASSIM:

 

If OptNom.Value = True Then

 

CONALU_S = Empty

 

CONALU_S = "select * from Alunos where alunos.nom = '" & TxtNom.Text & "'"

Set ALUNO_R2 = ALUNO_D2.OpenRecordset(CONALU_S, dbOpenDynaset)

 

If CONALU_S = Empty Then

MsgBox "Não houve alunos encontrados.", vbCritical, "ERRO"

Exit Sub

End If

 

Do Until ALUNO_R2.EOF = True

LstBus.AddItem ALUNO_R2!nom

ALUNO_R2.MoveNext

Loop

 

End If

 

VLW

[Gustavo_Germ 0]

Não trouxe nada. =/

[Lilian Butkevicis 0]

:huh:

Estranho, porque quando você usa:

 

Select nome from tabela where nome = 'joão'

 

Ele só retorna os registros cujo o campo nome tenha apenas a string joão. Se no campo estiver joão medeiros ele não traz. (foi o que aconteceu no seu código postado primeiro)

 

Mas quando você usa:

 

Select nome from tabela where nome like '%joão%'

 

Vai buscar todos os registros que contenham joão

 

O que pode variar as vezes é que se no banco está cadastrado joão e você digita joao (sem acento) ele pode não trazer nada.

 

Qual é o seu banco de dados???

[Gustavo_Germ 0]

access... é.. tipo ele não me trás nada...

[Lilian Butkevicis 0]

Algumas versões do access ao invés de usar % usa *

 

Sendo assim ficaria algo do tipo

 

Select nome from tabela where nome like 'joão*'

[Gustavo_Germ 0]

perfeito!!! resolivdo!!

 

grato!