事务可能适合,但它们允许回滚:http ://msdn.microsoft.com/en- us/library/bb243155.aspx
编辑
这是DAO中的一个粗略示例:
Dim strsql As String
Dim db As DAO.Database
Dim wrk As Workspace
On Error GoTo TrapError
Set db = CurrentDb
Set wrk = DBEngine.Workspaces(0)
wrk.BeginTrans
strsql = "Update sysInfo Set InvoiceOR=False"
db.Execute strsql, dbFailOnError
wrk.CommitTrans
Exit_Sub:
Set db = Nothing
Set wrk = Nothing
Exit Sub
TrapError:
Msg@R_836_2419@ "Failed: " & Err.Description
wrk.Rollback
Err.Clear
Resume Exit_Sub
以下是ADO的一些简要说明:
Dim cmd As ADODB.Command
Dim cn As ADODB.Connection
Set cmd = CreateObject("ADODB.Command")
Set cn = CurrentProject.Connection
cmd.CommandText = "Update sysInfo Set InvoiceOR=False"
cmd.ActiveConnection = cn
cmd.ActiveConnection.BeginTrans
cmd.Execute , , adExecuteNoRecords
If Err <> 0 Then
cmd.ActiveConnection.RollbackTrans
Else
cmd.ActiveConnection.CommitTrans
End If