Question

delphi2010 编译时出现EDatabaseError with message 'Missing SQL property'错误，哪位高人给指点一下。

我的ADOQuery2.SQL里添加了select * from containerinfo;，ADOQuey3的SQL里已经添加了select * from packingcontainer;
具体代码如下:

procedure TForm1.Label21Click(Sender: TObject);
var
ist : tadoquery;

begin
ADOQuery2.first;
ist := tadoquery.create(self);
ist.connection := adoconnection2;

while not ADOQuery2.eof do
begin

if not dbgrideh2.selectedrows.currentrowselected then

begin
ist.close;
ist.SQL.clear;
adoquery3.open;
adoquery3.active:=true;
ist.SQL.add('insert into packingcontainer(slt,id,name) values(:slt,:id,:name);');
ist.execSQL;
ist.SQL.clear;
adoquery3.edit; dbgrideh3.datasource.dataset.fieldbyname('slt').value:=dbgrideh2.datasource.dataset.fieldbyname('slt').Asboolean; dbgrideh3.datasource.dataset.fieldbyname('id').value:=dbgrideh2.datasource.dataset.fieldbyname('id').asinteger; dbgrideh3.datasource.dataset.fieldbyname('name').value:=dbgrideh2.datasource.dataset.fieldbyname('name').AsString;

ist.execSQL();

end;
ADOquery2.next;
end;
adoquery3.close;
end;

Answer 1

ist.SQL.clear;//已经清掉语句
adoquery3.edit; dbgrideh3.datasource.dataset.fieldbyname('slt').value:=dbgrideh2.datasource.dataset.fieldbyname('slt').Asboolean; dbgrideh3.datasource.dataset.fieldbyname('id').value:=dbgrideh2.datasource.dataset.fieldbyname('id').asinteger; dbgrideh3.datasource.dataset.fieldbyname('name').value:=dbgrideh2.datasource.dataset.fieldbyname('name').AsString;

ist.execSQL();//又执行了，不报错才怪呢

追问

这位大侠，那怎么改啊