Código
begin
close;
sql.Clear;
sql.Text := 'Select * from tabela where CODIGO =:cod';
ParamByName('cod').AsString := Asso;
prepare;
execsql;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009