SQL语句的提交，请指教？谢谢!

[Leony]

我有几条SQL语句：
update table1 set ......... where ..............using sqlca;
update table2 set ......... where ..............using sqlca;
delete table3 set ..........where .............using sqlca;
if sqlca.sqlnrows>0 then
commit using sqlca;
else
rollback using sqlca;
end if
这样能做到只有同时做成功地update 了table1 和 table2,再删除table3吗？
应该怎么做呢？谢谢!

[pinglv]

二楼 　fzymr(风中游牧人)
的方法就好了

[tangjianhua]

不能。应分别写。

[fzymr]

update t1 ..
if sqlca.sqlcode = 0 then
update t2
if sqlca.sqlcode = 0 then
delete t3
if sqlca.sqlcode = 0 then
commit;
else
rollback;
end if
else
rollback;
end if

else
rollback;
end if

[llitcwl]

用if sqlca.sqlcode<>0 then 作层层嵌套判断是保险的做法

[Distance_Man]

sqlca.sqlcode 等保存的是最近一条sql发生的信息.

[Leony]

commit不是提交自上一次commit之后的所有SQL语句吗？
我有什么条件可以判断这些commit的语句都执行成功了呢？

[fzymr]

还是用sqlca.sqlcode判断

[Distance_Man]

commit

[Distance_Man]

commit 和 rollback 是结束事物.习惯上是作对了就commit,做错了就rollback.
应尽量保持事物的短小.比如你就以这组操作为一个事物,都作对了就commit.

[dongdongxiao]

sqlca.atutocommit = false
update table1 set ......... where ..............using sqlca;

if sqlca.sqlnrows<>0 then
messagebox("","")
rollback using sqlca;
sqlca.atutocommit = True
ruturn
end if

update table2 set ......... where ..............using sqlca;

if sqlca.sqlnrows<>0 then
messagebox("","")
rollback using sqlca;
sqlca.atutocommit = True
ruturn
end if

delete table3 set ..........where .............using sqlca;

if sqlca.sqlnrows<>0 then
messagebox("","")
rollback using sqlca;
sqlca.atutocommit = True
ruturn
end if

commit using sqlca;
sqlca.atutocommit = True

[dongdongxiao]

sqlca.atutocommit = false
update table1 set ......... where ..............using sqlca;

if sqlca.sqlcode<>0 then
messagebox("","")
rollback using sqlca;
sqlca.atutocommit = True
ruturn
end if

update table2 set ......... where ..............using sqlca;

if sqlca.sqlcode<>0 then
messagebox("","")
rollback using sqlca;
sqlca.atutocommit = True
ruturn
end if

delete table3 set ..........where .............using sqlca;

if sqlca.sqlcode<>0 then
messagebox("","")
rollback using sqlca;
sqlca.atutocommit = True
ruturn
end if

commit using sqlca;
sqlca.atutocommit = True