ADOQuery:=TADOQuery.Create(nil); ADOQuery.Assign(self.ADOQuery1); 为什么出现这样异常：'cannot assingn a TADOQuery to a TADOQuery

Question

procedure TForm1.Button1Click(Sender: TObject);
var
 ADOQuery:TADOQuery;
begin
 ADOQuery:=TADOQuery.Create(nil);
 ADOQuery.Assign(self.ADOQuery1);
end;为什么出现这样异常:exception EConverError with message 'cannot assingn a TADOQuery to a TADOQuery'

Answer 1

你这样的设计很奇怪啊，我不知道你是要把新建立的adoquery与原有的adoquery1关联，还是关联sql语句，你最好还是采取别的方法，这样转换不太合适吧？

Answer 2

我是想新创建一个跟ADOQuery1内容一样的TADOQuery.有别得办法吗？

Answer 3

用指针，指向Adoquery1,我这里没有delphi不能帮你写了

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
 ADOQuery:TADOQuery;
begin
 ADOQuery:=self.ADOQuery1;
end;

Answer 5

你可以这样试试
var
 adoquery2:tadoquery;adoquery2:=tadoquery.create(self);
adoquery2.clone(adoquery1.recordset);这样两个ADOQUERY的数据就是地样的了。

Answer 6

dinglinger(叮当)回答的我认为合乎我的意思。