Transacción en Access

Question

Necesito ejecutar varias cláusulas sql, inserciones, actualizaciones y eliminar, por ejemplo. ¿Cómo usar una transacción en Access para vincularlos?

Se prefiere DAO.

como:

BeginTrans 
Excute SQL_1 
Excute SQL_2 
..... 
CommitTrans 

Gracias!

Answer 1

Si utiliza DAO, puede utilizar los BeginTrans y CommitTrans métodos de la DBEngine objeto global:

Dim db As Database 
Set db = CurrentDb 

DBEngine.BeginTrans 
db.Execute SQL_1 
db.Execute SQL_2 
... 
DBEngine.CommitTrans 

Answer 2

Aquí está un esqueleto más completo ...

Dim ws As DAO.Workspace 
Dim in_trans As Boolean 

Sub Transaction() 
On Error GoTo Trans_Error 
    Set ws = DBEngine.Workspaces(0) 
    in_trans=True 
    ws.BeginTrans 

    <do some SQL stuff; maybe use Err.Raise> 

    ws.CommitTrans 
    in_trans=False 
Trans_Exit: 
    Set ws = Nothing 
    Exit Sub 
Trans_Error: 
    If in_trans = True Then 
     ws.Rollback 
    EndIf 
    Resume Trans_Exit 
End Sub