گزارشگیری با adodataset

[صنم]

من برای گزارشگیری از adodataset و از کد زیر استفاده کرده ام ولی جواب نمی دهد
ADODataSet1.Active:=false;
SqlCommand := 'Select * From selection ';

With ADODataSet1 Do
Begin
// Active := False;
CommandText := SqlCommand;
ADODataSet1.Active:=true;
QRDBText1.DataSet:=ADODataSet1.DataSource.DataSet;
QRDBText1.DataField:= inttostr(ADODataSet1.fieldbyname('coursecode').asi nteger);
QRDBText2.DataSet:=ADODataSet1.DataSource.DataSet;
QRDBText2.DataField:= inttostr(ADODataSet1.fieldbyname('selectioncode'). asinteger);
Active := True;
End;
اصلا رکوردها را در preview نشان نمی دهد . به نظر شما مشکل از چیه ؟

[vcldeveloper]

1- تنظیم خاصیت DataSet از شی QrDBText1 را درست انجام ندادید:


QrDbText1.DataSet := AdoDataSet1;


2- برای بدست آوردن نام یک فیلد از خصوصیت Name آن استفاده کنید:


QrDBText1.DataField := AdoDataSet1.FieldByName('CourseCode').Name;

[Dolphin]

یا ممکنه quickreport متصل به بانک نشده باشه