Partager via

Recordset.Transactions, propriété (DAO)

  • Article

S’applique à : Access 2013, Office 2013

Renvoie une valeur qui indique si un objet prend en charge les transactions. Boolean (en lecture seule).

Syntaxe

expression . Transactions

expression Variable représentant un objet Recordset.

Remarques

Dans un espace de travail Microsoft Access, vous pouvez également utiliser la propriété Transactions avec des objets Recordset de type table ou feuille de réponse dynamique. Les objets Recordset de type instantané et avant uniquement retournent toujours False.

Si un objet Recordset de type table ou feuille de réponse dynamique est basé sur une table de moteur de base de données Microsoft Access, la propriété Transactions a la valeur True et vous pouvez utiliser des transactions. Il se peut que d'autres moteurs de base de données ne prennent pas en charge les transactions. Ainsi, vous ne pouvez pas utiliser des transactions dans un objet Recordset de type feuille de réponse dynamique basé sur une table Paradox.

Vérifiez la propriété Transactions avant d'utiliser la méthode BeginTrans sur l'objet Workspace de l'objet Recordset pour vous assurer que les transactions sont prises en charge. L'appel des méthodes BeginTrans, CommitTrans ou Rollback sur un objet non pris en charge n'a aucun effet.

Exemple

Cet exemple illustre la propriété Transactions dans des espaces de travail Microsoft Access.

Sub TransactionsX() 
 
 Dim wrkAcc As Workspace 
 Dim dbsNorthwind As Database 
 Dim conPubs As Connection 
 Dim rstTemp As Recordset 
 
 Set wrkAcc = CreateWorkspace("", "admin", "", dbUseJet) 
 Set dbsNorthwind = wrkAcc.OpenDatabase("Northwind.mdb") 
 
 ' Open two different Recordset objects and display the 
 ' Transactions property of each. 
 
 Debug.Print "Opening Microsoft Access table-type " & _ 
 "recordset..." 
 Set rstTemp = dbsNorthwind.OpenRecordset( _ 
 "Employees", dbOpenTable) 
 Debug.Print " Transactions = " & rstTemp.Transactions 
 
 Debug.Print "Opening forward-only-type " & _ 
 "recordset where the source is an SQL statement..." 
 Set rstTemp = dbsNorthwind.OpenRecordset( _ 
 "SELECT * FROM Employees", dbOpenForwardOnly) 
 Debug.Print " Transactions = " & rstTemp.Transactions 
 
 rstTemp.Close 
 dbsNorthwind.Close 
 conPubs.Close 
 wrkAcc.Close 
End Sub