delphi中将一个ADOQuery查询的数据结果传递给一个动态生成的ADOQuery

delphi中将一个ADOQuery查询的数据结果传递给一个动态生成的ADOQuery

2010-03-10 17:35

方法一：

begin
ADOQuery:=TADOQuery.Create(Application);
ADOQuery.Recordset:=ADOQuery1.Recordset.Clone(Integer(ltOptimistic)); 
DataSource1.DataSet:=ADOQuery;
end;

方法二：

begin
ADOQuery:=TADOQuery.Create(Application);
ADOQuery.Recordset:=ADOQuery1.Recordset._xClone;
DataSource1.DataSet:=ADOQuery;
end;

方法三：
begin
ADOQuery:=TADOQuery.Create(Application);
ADOQuery.Clone(ADOQuery1,ltOptimistic);
DataSource1.DataSet:=ADOQuery;
end;

http://blog.163.com/tfn2008@yeah/blog/static/1103213192011314303981/