IBQuery e DBGrid

Delphi

04/02/2003

Saudaçoes,
Gostaria de saber como faço para mostrar o resultado de uma IBQuery em umDBGrid.

tenho o segunte codigo mas nada acontece:

procedure TFormPrinc.BitBtnQueryCodClick(Sender: TObject);
begin
DM.IBQueryCod.Close;
DM.IBQueryCod.ParamByName(´paramCod´).AsInteger := StrToInt(Edit5.Text);
DM.IBQueryCod.SQL.Clear;

DM.IBQueryCod.SQL.Add(´select * from IMOBILIZADOS´);
DM.IBQueryCod.SQL.Add(´where COD_IMOB = :paramCOD´);

try
DM.IBQueryCod.Prepared := True;
DM.IBQueryCod.Open;
except
on EIBError do
begin
MessageDlg(´Nao foi possivel executar esta consulta...´, mtError,[mbOK],0);
Abort;
Exit;
end;
end;

end;


agradeço qualquer ajuda,

S&F


Anonymous

Anonymous

Curtidas 0

Respostas

Max_ribeiro

Max_ribeiro

04/02/2003

O problema é que vc está passando o parâmetro antes de gerar a SQL. Altere o código para:

// Criação da SQL

DM.IBQueryCod.Close;
DM.IBQueryCod.SQL.Clear;
DM.IBQueryCod.SQL.Add(´ select * from IMOBILIZADOS ´);
DM.IBQueryCod.SQL.Add(´ where COD_IMOB = :paramCOD ´);

// Depois de criada a SQL é que vc passa o parâmetro
// Repare que acrescentei Params

DM.IBQueryCod.Params.ParamByName(´paramCod´).AsInteger := StrToInt(Edit5.Text);

try
DM.IBQueryCod.Prepared := True;
DM.IBQueryCod.Open;
except
on EIBError do
begin
MessageDlg(´Nao foi possivel executar esta consulta...´, mtError, [mbOK],0);
Abort;
Exit;
end;
end;

end;


GOSTEI 0
POSTAR