关于ADO事务处理的问题...

Question

BeginTrans 开始事务处理
CommitTrans 递交事务处理
RollBackTrans 结束当前的事务处理并返回
简单用法如下(代码不完整):
On Error Goto RollBack
   AdoObject.BeginTrans
   (数据库操作)
   AdoObject.CommitTrans
   Exit Sub
RollBack:
   AdoObject.RollBackTrans

Answer 1

on error goto err
dim blnbegintrans as boolean
blnbegintrans=true
ado.begintrans
ado.execute strsql
ado.committrans
blnbegintrans=false
exit suberr:
if blnbegintrans=true then ado.rollbacktrans

Answer 2

我抄一遍
<!--
BeginTrans 开始事务处理
CommitTrans 递交事务处理
RollBackTrans 结束当前的事务处理并返回
简单用法如下(代码不完整):
On Error Goto RollBack
  AdoObject.BeginTrans
  (数据库操作)
  AdoObject.CommitTrans
  Exit Sub
RollBack:
  AdoObject.RollBackTrans
-->

Answer 3

我再抄一遍
<!--
BeginTrans 开始事务处理
CommitTrans 递交事务处理
RollBackTrans 结束当前的事务处理并返回
简单用法如下(代码不完整):
On Error Goto RollBack
  AdoObject.BeginTrans
  (数据库操作)
  AdoObject.CommitTrans
  Exit Sub
RollBack:
  AdoObject.RollBackTrans
-->