事务 goto 烦我几天

[m54772091]

我用DEPHI 开发 AdoQuery
我的代码：
BEGIN TRANSACTION
DELETE FROM table1 if @@error<>0 goto WRONG
DELETE FROM table2 if @@error<>0 goto WRONG
...
COMMIT
WRONG: ROLLBACK

我用goto 目的是，如果有错误了就不要再处理后面的代码（量很大），直接跳到最后回滚

运行软件系统报错
我想是不是如果 commit 提交后 又要 ROOLBACL 所以报错 改了一下

DECLARE @bErrors as bit
BEGIN TRANSACTION SET @bErrors=0
DELETE FROM table1 if @@error<>0 begin set @bErrors=1 goto WRONG end
DELETE FROM table2 if @@error<>0 begin set @bErrors=1 goto WRONG end
...
COMMIT
WRONG: if @bErrors=1 ROLLBACK

在DEPHI 编译中报错 “不正常地定义了参数对象，提供了不一致或不完整的信息”

呵呵 ，我把代码拷贝到查询分析器里运行 一切正常？？？

[中国风]

DECLARE @bErrors as bit
BEGIN TRANSACTION SET @bErrors=0
DELETE FROM table1 if @@error<>0 begin set @bErrors=1 goto WRONG end
DELETE FROM table2 if @@error<>0 begin set @bErrors=1 goto WRONG end
...
COMMIT
WRONG: if @bErrors=1
begin
ROLLBACK tran
return
end

[baggio785]

是不是delphi调用出错？

[WangZWang]

--如果没有返回值，最好使用adoCommand控件来执行命令，或者把你的语句写成一个
--存储过程


BEGIN TRANSACTION
DELETE FROM table1 if @@error<>0 goto WRONG
DELETE FROM table2 if @@error<>0 goto WRONG
.........
COMMIT
return
WRONG: ROLLBACK

[OracleRoob]

set xact_abort on --加上这句，确保事务失败时整体回滚，因为严重错误用代码@@error是判断不到的

BEGIN TRANSACTION