Поделиться через

Свойство Recordset.Transactions (DAO)

  • Статья

Область применения: Access 2013, Office 2013

Возвращает значение, которое указывает на то, поддерживает ли объект транзакций. Только для чтения, Boolean.

Синтаксис

expression . Операций

expression: переменная, представляющая объект Recordset.

Примечания

В рабочей области Microsoft Access можно также использовать свойство Transactions с объектами Recordset dynaset- или табличного типа. Объекты Recordset типа Snapshot и forward-only всегда возвращают значение False.

Если набор записей типа dynaset или table основан на таблице ядра СУБД Microsoft Access, свойство Transactions имеет значение True , и вы можете использовать транзакции. Другие ядра СУБД могут не поддерживать транзакции. Например, нельзя использовать транзакции в объекте Recordset типа dynaset на основе таблицы Paradox.

Проверьте свойство Transactions перед использованием метода BeginTrans в объекте Workspace объекта Recordset, чтобы убедиться, что транзакции поддерживаются. Использование методов BeginTrans, CommitTrans или Rollback для неподдерживаемого объекта не оказывает влияния.

Пример

В этом примере демонстрируется свойство Transactions в рабочих областях 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