Fórum Query !!!! #138917

Poe seu codigo do Locate aqui que eu te digo.

Query1.Locate(´campo onde ira porcurar´,´Texto a buscar´,[loPartialKey,loCaseInsensitive]);

Se vc quiser usar sql direto seria como no exemplo:
No exemplo abaixo, tenho um edit, um dbgrid, uma query e obvio um datasource. Ao digitar no edit, ele apaga e refaz a instrução sql passando como parametro o conteudo do edit e ainda preenche o edit com o valor do primeiro registro do result da query. Tá complicado de explicar mas garanto que dá certo.

===============================================

procedure TFrmCad_Painel.Edt_PatrocinChange(Sender: TObject);
var
OldStart: byte;
begin
Edt_Patrocin.OnChange := nil;
try
oldstart := Edt_Patrocin.SelStart;
with QryAuxiliar do
begin
close;
sql.clear;
sql.add(´select * from patrocinador´);
sql.add(´where Desc_patrocinador like ´´´ + Edt_Patrocin.text + ´¬´´´);
open;
Edt_Patrocin.text := fieldbyname(´desc_patrocinador´).asstring;
Edt_Cod_patrocin.text:= fieldbyname(´cod_patrocinador´).asstring;
end

finally
Edt_Patrocin.SelStart := OldStart;
Edt_Patrocin.SelLength := length(edt_patrocin.text) - oldstart ;
Edt_Patrocin.OnChange := Edt_PatrocinChange;
end;

end;

respondido. :lol: