Procedure com SQL

Delphi

28/04/2003

Estou criando uma procedure que executará um select em uma Query.
Na hora de chamar esta procedure eu tenho q passar para ela um parâmetro q é um nome digitado em um edit. Ai está o código da procedure como eu estou fazendo.

Procedure TFormPesq.BuscaPorNome(nome:string);
begin
With Datamodule3.QryAux do begin
SQL.Clear;
SQL.Add(´Select * from TB_agenda´);
SQL.Add(´WHERE Upper(nome) = :nome´);
parambyname(´nome´).AsString:= TObject sender;
Open;
DtsDbgrid.DataSet:=Datamodule3.QryAux;
end;
Onde eu estou errando?


Rodrigom

Rodrigom

Curtidas 0

Respostas

Nebrio

Nebrio

28/04/2003

Procedure TFormPesq.BuscaPorNome(nome:string);
begin
With Datamodule3.QryAux do begin
SQL.Clear;
SQL.Add(´Select * from TB_agenda´);
SQL.Add(´WHERE Upper(nome) = :nome´);
parambyname(´nome´).AsString:= TObject sender; // muito loco isso
Open;
DtsDbgrid.DataSet:=Datamodule3.QryAux;
end;

coloque no lugar de TObject sender o valor a ser passado por exemplo um Edit.

parambyname(´nome´).Value := Edit1.Text;

só isso já funciona


GOSTEI 0
Schumacher

Schumacher

28/04/2003

Procedure TFormPesq.BuscaPorNome(nome:string);
begin
With Datamodule3.QryAux do begin
SQL.Clear;
SQL.Add(´Select * from TB_agenda´);
SQL.Add(´WHERE Upper(nome) = :nome´);
parambyname(´nome´).AsString:= nome;
Open;
DtsDbgrid.DataSet:=Datamodule3.QryAux;
end;

Deves trocar o TObject pelo parâmetro que você passou, que seria o nome.

_________________
Marcelo Schumacher


GOSTEI 0
POSTAR