Transaction dans l'Accès

J'ai besoin d'exécuter plusieurs clauses sql, des insertions, des mises à jour et supprimer par exemple. Comment utiliser une transaction dans l'Accès pour les lier ensemble?

DAO est préféré.

comme: 

BeginTrans
Excute SQL_1
Excute SQL_2
.....
CommitTrans

Merci!

OriginalL'auteur darkjh | 2011-05-10

  1. 4

    Si vous utilisez DAO, vous pouvez utiliser le BeginTrans et CommitTrans méthodes de la global DBEngine objet:

    Dim db As Database
Set db = CurrentDb

DBEngine.BeginTrans
db.Execute SQL_1
db.Execute SQL_2
...
DBEngine.CommitTrans
    Si il ya quelque chose de mal dans la transaction, où dois-je mettre de la RESTAURATION? Dans le gestionnaire d'erreur?
    Exactement.

    OriginalL'auteur Heinzi

  2. 24

    Ici est un squelette complet...

    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
    +1. C'est en fait beaucoup mieux que l'exemple de MS donne dans leur documentation.
    Merci! Lorsque j'ai pris la réponse, je n'ai pas vu le tien ...
    Je voudrais remplacer Resume Trans_Exit avec ' Do the rest of your error handling here, depuis l'enregistrement de l'erreur, en montrant un message, renvoi l'erreur, ou de retourner un code d'erreur est généralement plus approprié que de simplement "en silence" retour en arrière. En outre, depuis ws et in_trans sont juste à l'intérieur des Sous, je l'avais mis leurs déclarations à l'intérieur de la Sous ainsi.
    Je suis d'accord avec @Heinzi. Au minimum, je voudrais ajouter: MsgBox Error$ à fournir des commentaires plutôt que de simplement rouler de retour.

    OriginalL'auteur TonBill