如何把从ADOQuery1选取的记录copy到ADOQuery2呢？？

Question

用clone
或用程序写，从adoquery1取出插入到adoquery2中

Answer 1

用ADOQuery1查出符合要求的记录集，然后再把ADOQuery1的内容用循环插到ADOQuery2中就行了

Answer 2

AdoQuery1.first;
while not AdoQuery1.eof do
begin
  if AdoQuery1.fields[1].value='aaa' then&&符合条件
  begin
    self.Adoquery2.append;
    for i:=0 to self.AdoQuery1.fields.count do&&字段赋值
    begin
      self.Adoquery2.fields[1].value=self.AdoQuery1.fields[1].value;
    end;
  end;
  self.Adoquery2.next;
end;

Answer 3

不好意思，我是临时写的，最后一句应该是Self.Adoquery1.next;
祝论文顺利通过！

Answer 4

adoquery1.First;
  while not adoquery1.Eof do
  begin
  sqlstr:='';
  sqlstr:='insert tablename values(';
    for i:=0 to n do
    begin
    if i=n then
    sqlstr:=sqlstr+chr(39)+ADOquery1.Fields[i].AsString+chr(39)+')'
    else
    sqlstr:=sqlstr+chr(39)+ADOquery1.Fields[i].AsString+chr(39)+',';
    end;
  adoquery2.Close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add(sqlstr);
  adoquery2.execsql;
  adoquery1.next;
  end;

Answer 5

这段代码是我的毕业设计上贴下来的,不是每个大学生都这样,
我是学MIS的,设计是excel表的数据导入,和多表的图表分析,
搞得差不多了,