CnPack Forum - Powered by Discuz! Board

Subject: TCnSQLAnalyzer 的问题 [Print This Page]

Author: akong Time: 2008-8-11 21:44 Subject: TCnSQLAnalyzer 的问题

在 CnRunSQLUnit.pas 单元中

第 247 行  " FConnection.BeginTrans;//开始事务"
第 248 行  " try"
第 250 行  " ExeRecord := FCommand.Execute(RecordAffected,EmptyParam);”
...

第 319 至 328 行...
   except
      on E: Exception do
      begin
      FNewTime := GetTickCount;
      UseTime := usetime + (FNewTime - FOldTime);
      msg := E.Message + #13#10#13#10;
      FMsgList.Add(strNew(pchar(msg)));
      Result := false;
      end;
   end;
-----------------------------------------------------------------------------------------------------------
如果在第250行执行异常，在下面的except中并有对 FConnection 执行 RollBack ，导致下次执行 BeginTrans 时报错
请版主看看是不是应该except中加上 rollback ....

Author: 不得闲 Time: 2008-8-11 22:35

恩！确实如楼主所说啊，汗一个先，应该是写的时候忘记了。不好意思
加在
result := false前就好了。

Author: Passion Time: 2008-8-11 23:14

经确认，已经改正，感谢akong。

Welcome to CnPack Forum (http://bbs.cnpack.org/)