Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Use transaction

Sub TestTransaction()     Dim cnConnection As New ADODB.Connection     Dim cmdCommand As New ADODB.Command     Set cnConnection = CurrentProject.Connection     cmdCommand.ActiveConnection = cnConnection          On Error GoTo HandleError     cnConnection.BeginTrans     cmdCommand.CommandText = "UPDATE tblContacts SET FirstName = 'Test' WHERE ContactId = 1"     cmdCommand.Execute     cmdCommand.CommandText = "UPDATE tblContacts SET ContactId = 'A' WHERE ContactId = 1"     cmdCommand.Execute     cnConnection.CommitTrans     Exit Sub     HandleError:         cnConnection.RollbackTrans         MsgBox "An error occurred: " & Err.Description End Sub