Compartilhar via

Propriedade Recordset2.Transactions (DAO)

  • Artigo

Aplica-se ao: Access 2013, Office 2013

Retorna um valor que indica se um objeto tem suporte em transações. Boolean somente leitura.

Sintaxe

expressão . Transações

Expressão Uma variável que representa um objeto Recordset2 .

Comentários

Em um espaço de trabalho do Microsoft Access, você também pode usar a propriedade Transactions com objetos Recordset do tipo dynaset ou tabela. Objetos Recordset do tipo Snapshot e forward-only sempre retornam False.

Se um Recordset do tipo dynaset ou tabela estiver baseado em uma tabela do mecanismo de banco de dados do Microsoft Access, a propriedade Transactions será True e você poderá usar as transações. Outros mecanismos do banco de dados podem oferecer suporte para transações. Por exemplo, você não pode usar as transações de um objeto Recordset do tipo dynaset em uma tabela Paradox.

Verifique a propriedade Transactions antes de usar o método BeginTrans do objeto Workspace do objeto Recordset para garantir que haverá suporte para as transações. O uso dos métodos BeginTrans, CommitTrans ou Rollback em um objeto que não ofereça suporte não terá efeito.

Exemplo

Este exemplo demonstra a propriedade Transactions nos espaços de trabalho do 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