IBQuery e DBGrid

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

Curtir t�pico + 0

Responder

Posts

04/02/2003

Max_ribeiro

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;

Responder

Gostei + 0