ADOQuery1.SQL.Add('select * from 表"); data1.ADOQuery.Open; for I:=0 to ADOQuery1..RecordCount-1 do begin ADOQuery2.Clear; ADOQuery2.SQL.Add("insert into 表 (ID1,name,id2) values (ADOQuery1.FieldByName ('ID1'),'''+ADOQuery1.FieldByName('ID1')+''',2) "); ADOQuery2.Execsql ADOQuery1.Next; end;
data1.ADOQuery.Open;
for I:=0 to ADOQuery1..RecordCount-1 do
begin
ADOQuery2.Clear;
ADOQuery2.SQL.Add("insert into 表 (ID1,name,id2) values (ADOQuery1.FieldByName ('ID1'),'''+ADOQuery1.FieldByName('ID1')+''',2) ");
ADOQuery2.Execsql
ADOQuery1.Next;
end;
呵呵!!
clientdataset.close;
clientdataset.commandtext:='insert into 表 (ID1,name,id2) values'+
(clientdataset2.FieldByName('ID1')+
','''+clientdataset2.FieldByName('ID1')+')''';
clientdataset.open;