为什么总会出现这样的错误？？？？？？？？？？？？

Question

mysql:='insert into 表2 select * from 表1 where 编
='''+edit1.text+'''' ;
     label5.Caption:='上机时间：'+datetimetostr(now);
       ADOquery1.Active:=false;
       ADOquery1.SQL.Clear;
       ADOquery1.SQL.Add(mysql);
     ADOquery1.Active:=true;
　　
上面的程序为什么会提示下面的错误  （delphi+access）
“当前提供的程序不支持从单一执行返回多个记录集”

Answer 1

第一，要返回结果集的话使用AdoQuery1.Active:=true;
比如：
mysql:='select * from 表1';
....
AdoQuery1.Active:=true;
第二，再没有结果集返回的情况下，比如：insert ,update,delete
AdoQuery1.ExecSql;所以，应改为 AdoQuery1.ExecSql;:)