delphi执行多条SQL语句不抛出错误

2014-04-25

delphi执行多条SQL语句不抛出异常我用一个ADOQUERY,当只执行一条INSERET语句的时候会正常的抛出异常可是

delphi执行多条SQL语句不抛出异常
我用一个ADOQUERY,当只执行一条INSERET语句的时候会正常的抛出异常;
可是当把两条或者更多的语句一起执行的时候,如果其中一条有错的情况下程序并不会抛出异常...
该怎么解决呢???
我现在需要把这几条一起执行,而且需要程序正常的把这个异常捕捉到...捕捉不到闹心啊... 那我来接分
[解决办法]
delphi执行多条SQL语句不抛出错误
[解决办法]
LZ可以结贴了
[解决办法]
BEGINTRANS COMMITTRANS 不叫“不抛出异常”
这叫事务，事务中包裹的代码如果出现异常就会回滚，以保证如果提交sql时部分失败或导致异常时恢复数据到修改前的状态以保证一致性。
[解决办法]
接分~~~~~~~~事物。不过ADO的事物能起作用？
[解决办法]

[解决办法]
              try
                Connection.StartTransaction;
                ExecSQL;
                Connection.Commit;
              except on E: Exception do
                  begin
                    if Connection.InTransaction then
                      Connection.Rollback;
                    bFlag := False;
                    MsgBox(PWideChar(WideString('对数据库执行更改操作发生错误：' + #13 + e.Message + #13 + '，为了数据安全，已经回滚到操作更改前状态，请关闭工具后稍后重试！')), '错误', MB_OK + MB_USERICON, 2, MB_ICONHAND);
                  end;
              end;

热点排行

.NET

delphi执行多条SQL语句不抛出错误