有关TClientDataSet的菜鸟问题

Question

利用AdoQuery取出记录集之后，怎样把AdoQuery的数据传给ClientDataSet？

Answer 1

用DataSetProvider控件联接他们。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  a: tclientdataset;
  Dsp: TDataSetProvider;
begin
  Dsp := TDataSetProvider.Create(self);
  a := tclientdataset.Create(self);
  dsp.DataSet := ADOQuery1;
  a.Data:= dsp.Data;
  caption :=inttostr( a.RecordCount)
end;