通过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;