Compartir a través de

Propiedad Recordset2.Transactions (DAO)

  • Artículo

Se aplica a: Access 2013, Office 2013

Devuelve un valor que indica si un objeto admite transacciones. Boolean de solo lectura.

Sintaxis

expresión . Transacciones

Expresión Variable que representa un objeto Recordset2 .

Comentarios

En un área de trabajo de Microsoft Access, también puede usar la propiedad Transactions con objetos Recordset de tipo Dynaset o de tabla. Los objetos Recordset de tipo snapshot y forward-only siempre devuelven False.

Si un objeto Recordset de tipo Dynaset o Table se basa en una tabla de motor de base de datos de Microsoft Access, la propiedad Transactions será True y se pueden usar las transacciones. Puede ser que otros motores de bases de datos no admitan transacciones. Por ejemplo, no se pueden usar transacciones en un objeto Recordset de tipo Dynaset basado en una tabla de Paradox.

Compruebe la propiedad Transactions antes de usar el método BeginTrans en el objeto Workspace del objeto Recordset para asegurarse de que se admiten transacciones. El uso de los métodos BeginTrans, CommitTrans o Rollback no tiene ningún efecto en un objeto no admitido.

Ejemplo

En este ejemplo se muestra la propiedad Transactions en áreas de trabajo de 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