Sos Delphi E Sql

[joaoc]

Fiz esta consulta no delphi 6 mas apresenta um erro....

Sera que alguém pode me ajudar.

procedure TForm2.Edit1Change(Sender: TObject);

begin

Query1.close;

Query1.sql.clear;

Query1.sql.add('select * from TbFuncionarios where Nome_func Like '+Edit1.Text+'');

Query1.ExecSQL;

Query1.open;

end;

[Kikonanet]

Olá João,

Tente assim para buscar por exemplo: Adr - Mostra todos q comecem por Adr...

procedure TForm2.Edit1Change(Sender: TObject);
begin
Query1.close;
Query1.sql.clear;
Query1.sql.add('select * from TbFuncionarios where Nome_func like'+#39+Edit1.Text+ '%'+#39);
Query1.open;
end;

Ou assim para busca exata. ex: Adriano

procedure TForm2.Edit1Change(Sender: TObject);
begin
Query1.close;
Query1.sql.clear;
Query1.sql.add('select * from TbFuncionarios where Nome_func ='+QuotedStr(Edit1.Text));
Query1.open;
end;

Abs.

Kiko