Pesquisa em access não funciona como deve
olá pessoal,
acredito que eu já tenha feito essa pergunta aqui, mas não tive resposta. Bom, no evento OnChange de um edit, passo o texto do edit para um parametro de uma query. Só que se por exemplo eu digito c, traz Clínico Geral, mas se digito cl, não traz mais nada......................
to colocando assim: ´*´+Edit1.text+´*´;
q q pode tah acontecendo??? :roll:
valeu
acredito que eu já tenha feito essa pergunta aqui, mas não tive resposta. Bom, no evento OnChange de um edit, passo o texto do edit para um parametro de uma query. Só que se por exemplo eu digito c, traz Clínico Geral, mas se digito cl, não traz mais nada......................
to colocando assim: ´*´+Edit1.text+´*´;
q q pode tah acontecendo??? :roll:
valeu
Garibaldi
Curtidas 0
Respostas
Mmtoor
01/09/2003
Prezado Colega.
Talvez isso o ajude.
procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c: String;
Begin
query1.SQL.Clear;
a:=´Select * From taleba ´;
b:=´Where nome Like:Consulta ´;
c:=´Order By Codigo´;
query1.SQL.Add(a+b+c);
query1.Params[0].AsString;
query1.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;
query1..Close;
query1.Open;
Pode implementar e utilizar as mesmas linhas para selecionar por qualquer campo.
O ideal seria se pudesse inserir todo o código que está utilizando para verificarmos.
Espero ter ajudado
MMTOOR2003
Talvez isso o ajude.
procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c: String;
Begin
query1.SQL.Clear;
a:=´Select * From taleba ´;
b:=´Where nome Like:Consulta ´;
c:=´Order By Codigo´;
query1.SQL.Add(a+b+c);
query1.Params[0].AsString;
query1.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;
query1..Close;
query1.Open;
Pode implementar e utilizar as mesmas linhas para selecionar por qualquer campo.
O ideal seria se pudesse inserir todo o código que está utilizando para verificarmos.
Espero ter ajudado
MMTOOR2003
GOSTEI 0