Fórum Fazer pesquisa incremental na Query tem como ???? #177118

Pega essa amigo.

procedure TForm1.Edit2Change(Sender: TObject);
var a,b: String;
Begin
dmfinancas.qryClientes.SQL.Clear;
a:=´Select * From Clientes ´;
b:=´Where Nome Like:Consulta ´;
dmfinanas.qryClientes.SQL.Add(a+b);
dmfinancas.qryClientes.Params[0].AsString;
dmfinancas.qryClientes.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;
dmfinancas.qryClientes.Close;
dmfinancas.qryClientes.Open;
end;

MMTOOR2003
mmtoor2003@yahoo.com.br

Queryes não tem índices... vc eh q determina a ordem de apresentação com o ´Order by´ por isso este método não se aplica... vc pode usar o locate... eh um pouco mais lento por não ter indice mas em compesação oferece mais recursos, se vc passar o paramentro [LoPartialKey] ele irá localizar qualquer parte do campo que contenha o texto do seu edit.
ex :

1) query.Locate(´DESCRICAO´,Edit1.text,[])
2) query.Locate(´DESCRICAO´,Edit1.text,[LoPartialKey])
3)se precisar de chave composta :
query.Locate(´NOME;SENHA´,VarArrayOf([Edit1.Text,Edit2.Text)]),[])

o locate retora true ou false, então vc pode usar
if query.Locate(´NOME;SENHA´,VarArrayOf([Edit1.Text,Edit2.Text)]),[]) then
begin
....
end;