Fórum Pesquisa em access não funciona como deve #178899
01/09/2003
0
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
Curtir tópico
+ 0
Responder
Posts
01/09/2003
Mmtoor
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)