-
Notifications
You must be signed in to change notification settings - Fork 6
/
DatabaseTransactions.cls
executable file
·58 lines (38 loc) · 1.3 KB
/
DatabaseTransactions.cls
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