Pesquisar nomes!!!

Delphi

02/11/2003

Como faço para pesquisar nomes de uma determinada tabela? Por exemplo: Ao digitar a letra A, ira ter que aparecer todas as pessoas que comecem com a letra A e assim vai...
Deus abençoe!


Poderoso

Poderoso

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

02/11/2003

Tente assim:

procedure TForm1.Edit1Change(Sender: TObject);
begin
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add (´SELECT * FROM TABELA´);
   Query1.SQL.Add (´WHERE nome LIKE upper(:nome)´);
   Query1.ParamByName(´nome´).Value:= UpperCase(Edit1.Text) + ´¬´;
   Query1.Open;
end;



GOSTEI 0
POSTAR