EDatabaseError is Ready

medkyl

Hello,



Error
The Following error(s) have occured:
impossible to perform this operation on a data set open.



dbxQuery1 existe in the report Dev1.fr3

procedure TfrmMain.PrintTest(ID:String);
const
cSQL = 'Select ID,NAME,ADR FROM FC WHERE ID = :ID';

var 
   Query : TfrxDBXQuery;
begin
  
   frxReport1.Clear;
   frxReport1.LoadFromFile('C:\Dev1.fr3');
   Query := TfrxDBXQuery(frxReport1.FindComponent('dbxQuery1'));

   Query.Close;
   Query.SQL.Clear;
   Query.SQL.Text:= cSQL;
   Query.ParamByName('ID').Value:= ID;
   Query.Open;


   frxReport1.PrepareReport();
   frxReport1.ShowReport;

end;

comment not error but the report is white.

//Query.Open;

delphi 2007 fastreport 4.7.5

Thank you

I??m sorry my bad english...