Buscar por:

pesquisa incremental delphi 7 e postgres 8.3.7

Código

1. Criar parametro: pesquisa;

2. colocar um campo Edit1.Text no form, onde será digitada o nome a ser pesquisado na tabela

3. colocar um DBGrid1 no form para mostrar o resultado (o datasource deve apontar para o datasource que está direcionado para o ADOQuery1)

3. sql abaixo:

ADOQuery1.close;

ADOQuery1.sql.clear;

      ADOQuery1.SQL.Add('SELECT "e_cc"."tbpf"."nome"' +

      ' FROM "esquema"."tabela"' +

      ' WHERE "esquema"."tabela"."campo" ~* :pesquisa');

ADOQuery1.Parameters.ParamValues['pesquisa'] := Edit1.Text;

ADOQuery1.open;

agora, execute!