通过ClientDataSet复制表的结构及数据

1、  需要2个ClientDataSet组件；

2、  clientDataSet1连接目标表，clientDataSet2连接源表，如果无法直接连接，使用DataSetProvider进行桥接；

 

3、  复制clientDataSet2结构到clientDataSet1；

  for I := 0 to clientDataSet2.FieldDefs.Count-1 do

    fieldNames:=fieldNames+clientDataSet2.FieldDefs[i].Name+';';

    list:=Tlist.Create;

  clientdataset2.GetFieldList(list,fieldNames);

   for I := 0 to list.count-1 do

  begin

    field:=list[i];

    clientDataSet1.FieldDefs.Add(field.fullName,field.DataType,field.Size);

  end;

   clientdataset1.CreateDataSet;

4、  复制clientDataSet2数据到clientDataSet1。

 

  clientdataset1.Data:=clientdataset2.Data;