我把下面这段话放到IdTCPServer的OnExecute中执行的时候,如果sql语句有语法错误,这个程序永远都不会得出li_succflag=-1的结果,如果我把下面这条语句放到某个Button按钮的Onclick事件中执行同一条一样的sql语句,是绝对会得出li_succflag=-1的结果,求求各位大侠这个是怎么回事了?已经折腾好久没有搞定。
AdoQuery := TAdoQuery.Create(nil);
AdoQuery.ConnectionString := Gs_ConnectString;
AdoQuery.SQL.Add('Begin Transaction;');
AdoQuery.SQL.Add(sql);
Memo3.Lines.Add(sql);
AdoQuery.SQL.Add('Commit TransAction;');
try
li_succflag:=AdoQuery.ExecSQL;
except
li_succflag:=-1;
end;
FreeAndNil(ADOQuery);
AdoQuery := TAdoQuery.Create(nil);
AdoQuery.ConnectionString := Gs_ConnectString;
AdoQuery.SQL.Add('Begin Transaction;');
AdoQuery.SQL.Add(sql);
Memo3.Lines.Add(sql);
AdoQuery.SQL.Add('Commit TransAction;');
try
li_succflag:=AdoQuery.ExecSQL;
except
li_succflag:=-1;
end;
FreeAndNil(ADOQuery);
解决方案 »
- 关于procedure调用
- 如何在access里面的sql语句里面与string 字符串比较
- 如何编程实现获取IE中的密码?
- 求教:动态生成dll
- 我们县医院即将更新信息系统,如有意者,请跟贴!我们在线
- 急!!! 关于动态变体数组的问题!!!
- [请教]为什么delphi6.0中加入kodak的缩略图控制控件后,把控件放到窗体上出错呢?
- ××提供Delphi8的下载××
- 在Delphi中怎样用API函数来选择画笔画刷的?哪个类提供画出标准控件界面的函数?
- 一表我想通过文本框来增加记录,为何不能发送到表中,不要告诉我是没有post的原因。
- 請問誰有toolbar2000的tbskin?
- delphi使用Sqlite3数据库如何按中文拼音排序呢
建议你在except下面加一行代码messagebox或者写log日志
这样就可以知道程序有没有执行进去