DatabaseObjectsVB6/DatabaseTransactions.cls at master · hisystems/DatabaseObjectsVB6 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "DatabaseTransactions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' ___________________________________________________
'
'  © Hi-Integrity Systems 2007. All rights reserved.
'  www.hisystems.com.au - Toby Wicks
' ___________________________________________________
'

Private pobjConnection As ConnectionController

Friend Sub Initialize(ByVal objConnection As ConnectionController)

    Set pobjConnection = objConnection

End Sub

Public Sub Begin()

    pobjConnection.BeginTransaction

End Sub

Public Sub Commit()

    pobjConnection.CommitTransaction

End Sub

Public Sub Rollback()

    pobjConnection.RollbackTransaction

End Sub

Public Sub Execute(ByVal objSQL As ISQLStatement)

    pobjConnection.Execute objSQL, adCmdUnknown

End Sub

Public Function ExeceuteStatements(ByRef objSQLStatements() As ISQLStatement) As adodb.Recordset

    Set ExeceuteStatements = pobjConnection.ExeceuteStatements(objSQLStatements, adCmdUnknown)

End Function