关于oracle中事务的回滚！

[pausing]

我在vb中怎样利用oracle的事务回滚！
我做一个功能，要连续操作几个表，一旦出现错误，我能不能把所有的事务都回滚！
来保证数据的完整性·

[FangQ_78]

Public G_objRdoCon As rdoConnection

连接数据库
G_objRdoCon.BeginTrans '开始事务
对数据库进行修改操作
if 出现错误 then
G_objRdoCon.RollbackTrans '事务回滚
end if
G_objRdoCon.CommitTrans '事务提交

[pausing]

有例码吗！

[FangQ_78]

Public G_objRdoCon As rdoConnection
Public G_objRdoEnv As rdoEnvironment

begin
on error goto Err
连接数据库
'事务开始
G_objRdoCon.BeginTrans
sSql="Update yourtable1 set A='a' where b='xxx'";
G_objRdoCon.Execute sSql
sSql="Insert into yourtable2 values('a','b','c');
G_objRdoCon.Execute sSql
G_objRdoCon.CommitTrans '事务提交
exit sub
Err:
G_objRdoCon.RollbackTrans '事务回滚
end sub

[pausing]

我试了一下你的代码，我发现一个问题，我觉着应该是每执行一个sql语句，就进行一个错误处理！会更好一些！