5,388
社区成员
发帖
与我相关
我的任务
分享
insert into table2 select * from table1 where ...
二、全部复制
adoquery1.Recordset:=adoquery1.Recordset;
三、克隆
adoquery1.Recordset:=adoquery1.Recordset.clone(Tlocktype);
or:
ADODataSet2.Clone(ADODataSet1)
四、Assign
ADOQuery2.Assign(ADOQuery1)
五、精细复制
begin
with ADOQueryA.DataSource.DataSet do
begin
First;
while Not Eof do Delete;
end;
with ADOQueryB.DataSource.DataSet do
begin
First;
while Not Eof do
begin
ADOQueryA.DataSource.DataSet.FieldByName('AAA'):=FieldByName('AAA');
ADOQueryA.DataSource.DataSet.FieldByName('BBB'):=FieldByName('BBB');
ADOQueryA.DataSource.DataSet.FieldByName('CCC'):=FieldByName('CCC');
......
Next;
end;
end;
end;