在access中，用ADO或DAO打开记录集之后，就可以开始事务
beginTrans
SQL语句
。
。
。
commitTrans
在beginTrans与commitTrans之间的所有语句，只要有一句执行失败，所有已执行的语句都会不生效。这种常用在同时操作几个表的情况下使用，以免造成数据有关联的几个表的数据不相符。

事务用一句话来概括就是：全有或全无；要么全部生效，要么全部不生效。

-------------------------------------------------------------------------------------
Public Sub BeginTransX()

   Dim cnn1 As ADODB.Connection
   Dim rstTitles As ADODB.Recordset
   Dim strCnn As String
   Dim strTitle As String
   Dim strMessage As String

   ' 打开连接。
   Set strcnn=currentproject.connection
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn

   ' 打开 Titles 表。
   Set rstTitles = New ADODB.Recordset
   rstTitles.CursorType = adOpenDynamic
   rstTitles.LockType = adLockPessimistic
   rstTitles.Open "titles", cnn1, , , adCmdTable
   
   rstTitles.MoveFirst
    '开始事务
   cnn1.BeginTrans

   ' 在记录集中循环并询问是否想要更改指定标题的类型。
   Do Until rstTitles.EOF
      If Trim(rstTitles!Type) = "psychology" Then
         strTitle = rstTitles!Title
         strMessage = "Title: " & strTitle & vbCr & _
         "Change type to self help?"

         ' 更改指定雇员的标题。
         If MsgBox(strMessage, vbYesNo) = vbYes Then
            rstTitles!Type = "self_help"
            rstTitles.Update
         End If
      End If

         rstTitles.MoveNext
   Loop

   ' 询问用户是否想提交以上所做的全部更改。
   If MsgBox("Save all changes?", vbYesNo) = vbYes Then
      '如果回答是，就结束事务
      cnn1.CommitTrans
   Else
     '如果回答否，就回滚事务，取消所有操作
      cnn1.RollbackTrans
   End If
   rstTitles.Close
   cnn1.Close

End Sub

(责任编辑：admin)

• ·用DAO或ADO正确访问Access 2000
• ·Access开发网络共享版技巧（多人同时操
• ·access中ADO与DAO格式的区别和写法【总
• ·access执行操作查询的几种方法对比
• ·Access中CurrentDb().Execute 和DoCmd.
• ·[源创技巧]在ACCESS中使用代码来自动创
• ·更新访问权限 (Jet) 数据库中的 40 多
• ·【实例】ADO代码计算余额法
• ·DAO实现的子窗体记录分页显示
• ·分别使用DAO和ADO连接外部数据库和Sql
• ·怎样判断一个表是否存在于数据库中? (D
• ·处理加了密码的MDB文件
• ·谈ADO访问不同数据库的差别
• ·DAO基础(4)
• ·DAO基础(3)
• ·DAO基础(2)