Procedure com SQL
28/04/2003
0
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?
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
Curtir tópico
+ 0
Responder
Posts
28/04/2003
Nebrio
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
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
Responder
28/04/2003
Schumacher
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
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)