提示无效句柄

Question

procedure TForm1.Button1Click(Sender: TObject);
var
str :string;
beginadoquery1.Close;
adoquery1.sql.clear;
str:='insert into a_lwb2  '
+ 'select zybak.bah   '
+ 'cyzdk.lx '
+ 'sszdk.dm  '
+ 'from zybak,cyzdk,sszdk  where '
+ 'zybak.zyh=cyzdk.zyh and sszdk.zyh=zybak.zyh and zybak.zyh =sszdk.zyh ';
adoquery1.SQL.add('''+str+''');adoquery1.ExecSQL ;
 showmessage('ok'); end;
end.正在学习中，请大家帮助一下

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
str :string;
beginadoquery1.Close;
adoquery1.sql.clear;
str:='insert into a_lwb2 '
+ 'select zybak.bah '
+ ',cyzdk.lx '
+ ',sszdk.dm '
+ 'from zybak join cyzdk on zybak.zyh=cyzdk.zyh '
+ 'join sszdk on sszdk.zyh=zybak.zyh ';
adoquery1.SQL.add(str);adoquery1.ExecSQL ;
 showmessage('ok'); end;
end.按上更改试试。

Answer 2

sql语句里面字段之间没有逗号改成类似这样
insert into t select A,B,C,D from t1

Answer 3

我本来的目的是：从几个表中筛选符合条件的记录进临时表，然后在DBGRID中显示临时表的记录...或许我的方法不对？？

Answer 4

 showmessage('ok');运行到这一步报错

Answer 5

打错了。。执行到adoquery1.execsql;这一步出错，提示无效SQL语句