Colocar en quirckreport dent del form?
porque mejor no creas una unidad donde este solito el quickreport
esto..
Código Delphi
[-]
Procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.DataSet:=ADOQuery1;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'SELECT * FROM provincias order by nombre';
ADOQuery1.Open;
ADOQuery1.First;
While not ADOQuery1.Eof do
Begin
QRDBText1.DataField:=ADOQuery1.Fields[0].AsString;
ADOQuery1.Next;
End;
end;
lo reemplazas por esto
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.DataSet:=ADOQuery1;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'SELECT * FROM provincias order by nombre';
ADOQuery1.Open;
quickRep1.Preview
end;