如何把adoquery查询结果插入另一个表中（在线等待！！！！！）

Question

SQL:
Insert Into TableA Select * from TableB

Answer 1

再加一个adoquery2,然后如下面这样写代码:
var
  f1, f2, f3: String;
begin
  with ADOQuery1 do
  begin
    Open;
    First;
    while not Eof do
    begin
      f1 := FieldByName('F1').AsString;
      f2 := FieldByName('F1').AsString;
      f3 := FieldByName('F1').AsString;
      adoquery2.Active := False;
      adoquery2.SQL.Text := Format('Insert Into Table Values(%s, %s, %s)', [f1, f2, f3]);
      adoquery2.ExecSQL;
      Next;
    end;
  end;
end;