Buscar

Consulta SQL com vários campos de uma tabela

Código

var
xnome:string;
xcep:string;
begin
xnome:= edit1.text;
xcep:= edit2.text;
with query1 do
begin
close;
sql.clear;
sql.Text:='select * from escola';
SQL.Add('where nome like :pNome');
SQL.Add('AND cep like :pcep');
ParamByName ('pnome').AsString :='%'+ xnome+'%';
ParamByName ('pcep').AsString :='%'+ xcep+'%';
if Query1.prepared then
prepare;
open;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 13/06/09
Por: Leandro Silva
Visualizada: 9154 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009