AdoQuery 的问题

shaken 2003-10-15 09:12:26
大致结构如下:
try
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('INSERT INTO AnteMain (ID,Anter,AnteDate,Code,Val,Flag)'+#13
+'VALUES (:ID,'+#39+'fwz'+#39+',:Date,0,:All,0)');
AdoQuery1.Parameters.Items[0].Value := ID;
AdoQuery1.Parameters.Items[1].Value := now;
AdoQuery1.Parameters.Items[2].Value := SumValue;
finally
AdoQuery1.ExecSql;
AdoQuery1.Active := true;
// ID:=ID+1;
end;
为什么提示:
ADOQuery1: commandtext does not return a result set;
...全文
29 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
hiflower 2003-10-15
  • 打赏
  • 举报
回复
// AdoQuery1.Active := true; //去掉
FSU 2003-10-15
  • 打赏
  • 举报
回复
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('INSERT INTO AnteMain (ID,Anter,AnteDate,Code,Val,Flag)'+#13
+'VALUES (:ID,'+#39+'fwz'+#39+',:Date,0,:All,0)');
AdoQuery1.Parameters.Items[0].Value := ID;
AdoQuery1.Parameters.Items[1].Value := now;
AdoQuery1.Parameters.Items[2].Value := SumValue;

try
AdoQuery1.Post;
finally
end;
angle097113 2003-10-15
  • 打赏
  • 举报
回复
AdoQuery1.Active := true;
是多余的 没有必要的 还产生了错误
直接AdoQuery1.ExecSql;就可以了
whitekingniu 2003-10-15
  • 打赏
  • 举报
回复
你在最后用AdoQuery1.Active := true;语句将数据集打开了但是sql语句并没有返回值;
可以j加一句:sql.add(select * from AnteMain );
zsjzwj 2003-10-15
  • 打赏
  • 举报
回复
AdoQuery1.ExecSql;改AdoQuery1.post;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧