740
社区成员
发帖
与我相关
我的任务
分享
DELETE FROM 表1;
IF sqlca.SQLcode <> 0 THEN
ROLLBACK;
MessageBox("","error")
RETURN
END IF
DELETE FROM 表2;
IF sqlca.SQLcode <> 0 THEN
ROLLBACK;
MessageBox("","error")
RETURN;
END IF
COMMIT;
写法一:
DELETE FROM 表1;
DELETE FROM 表2;
IF SQLcode <> 1 THEN
ROLLBACK;
MessageBox("","error")
RETURN
END IF
COMMIT;
写法二:
DELETE FROM 表1;
IF sqlca.SQLcode <> 0 THEN
ROLLBACK;
MessageBox("","error")
RETURN
ELSE
COMMIT;
END IF
DELETE FROM 表2;
IF sqlca.SQLcode <> 0 THEN
ROLLBACK;
MessageBox("","error")
RETURN
ELSE
COMMIT;
END IF