数据保存问题？

[xzgtliu]

假设我有三个表，我想如果一表保存失败，则三表都不应保存数据，如何实现
connect using sqlca;
INSERT INTO lgt1(f1 , f2 , f3 )
VALUES ('a1','b1','11')
INSERT INTO lgt2(f1 , f2 , f3 )
VALUES ('a2','b2',aa)
INSERT INTO lgt3(f1 , f2 , f3 )
VALUES ('a3','b3','33')

[polugen]

LONG A,B,C
INSERT INTO lgt1(f1 , f2 , f3 )
VALUES ('a1','b1','11');
A=SQLCA.SQLCODE
INSERT INTO lgt2(f1 , f2 , f3 )
VALUES ('a2','b2',aa)
B=SQLCA.SQLCODE
INSERT INTO lgt3(f1 , f2 , f3 )
VALUES ('a3','b3','33')
C=SQLCA.SQLCODE
IF A+B+C<0 THEN
ROLLBACK;
ELSE
COMMIT;
END IF

[runsoft]

sqlca.autocommit = false

INSERT INTO lgt1(f1 , f2 , f3 )
VALUES ('a1','b1','11')
if sqlca.sqlcode < 0 then
rollback;
else
commit;
end if

INSERT INTO lgt1(f1 , f2 , f3 )
VALUES ('a1','b1','11')
if sqlca.sqlcode < 0 then
rollback;
else
commit;
end if

INSERT INTO lgt1(f1 , f2 , f3 )
VALUES ('a1','b1','11')
if sqlca.sqlcode < 0 then
rollback;
else
commit;
end if

[ahuanghp]

同意楼上

[eaglechou]

同意楼上

[xzgtliu]

up

[eminena]

LONG A,B,C
INSERT INTO lgt1(f1 , f2 , f3 ) VALUES ('a1','b1','11');
A=SQLCA.SQLCODE
INSERT INTO lgt2(f1 , f2 , f3 ) VALUES ('a2','b2',aa);
B=SQLCA.SQLCODE
INSERT INTO lgt3(f1 , f2 , f3 ) VALUES ('a3','b3','33');
C=SQLCA.SQLCODE
IF A<>0 and b<>0 and c<>0 THEN
ROLLBACK;
ELSE
COMMIT;
END IF

[Daizy]

LONG A,B,C
INSERT INTO lgt1(f1 , f2 , f3 ) VALUES ('a1','b1','11');
A=SQLCA.SQLCODE
INSERT INTO lgt2(f1 , f2 , f3 ) VALUES ('a2','b2',aa);
B=SQLCA.SQLCODE
INSERT INTO lgt3(f1 , f2 , f3 ) VALUES ('a3','b3','33');
C=SQLCA.SQLCODE
IF A<>0 or b<>0 or c<>0 THEN
ROLLBACK;
ELSE
COMMIT;
END IF

[jackzhang168]

同意 runsoft(清风)

[liyx326]

用触发器或者 Daizy(书保) ，eminena(明珠上的皇冠)的做法都可以的。