File tree Expand file tree Collapse file tree 3 files changed +29
-24
lines changed Expand file tree Collapse file tree 3 files changed +29
-24
lines changed Original file line number Diff line number Diff line change @@ -17,17 +17,17 @@ Public Class Connection
17
17
18
18
Public Overrides ReadOnly Property Statement As System.Type = GetType (Statement)
19
19
20
- Public Overrides Sub Open(dsn As String )
21
- Me ._provider = New SQLiteConnection(dsn)
22
- Me ._provider.Open()
23
- 'AddHandler Me._provider.InfoMessage, AddressOf Connection.errorHandler
24
- End Sub
25
-
26
- Public Overrides Function CreateAndBeginTransaction( Optional transactionName As String = "" , Optional isolationLevel As IsolationLevel = IsolationLevel.Unspecified) As Databasic.Transaction
27
- Return New Transaction() With {
28
- .ConnectionWrapper = Me ,
29
- .Instance = Me ._provider.BeginTransaction( DirectCast (isolationLevel, System.Data.IsolationLevel))
30
- }
31
- End Function
20
+ Public Overrides Sub Open(dsn As String )
21
+ Me ._provider = New SQLiteConnection(dsn)
22
+ Me ._provider.Open()
23
+ End Sub
24
+
25
+ Protected Overrides Function createAndBeginTransaction( Optional transactionName As String = "" , Optional isolationLevel As IsolationLevel = IsolationLevel.Unspecified) As Databasic.Transaction
26
+ Me .OpenedTransaction = New Transaction() With {
27
+ .ConnectionWrapper = Me ,
28
+ .Instance = Me ._provider.BeginTransaction( DirectCast (isolationLevel, System.Data.IsolationLevel))
29
+ }
30
+ Return Me .OpenedTransaction
31
+ End Function
32
32
33
33
End Class
Original file line number Diff line number Diff line change @@ -8,12 +8,15 @@ Imports System.Runtime.InteropServices
8
8
9
9
' Review the values of the assembly attributes
10
10
11
- < Assembly : AssemblyTitle( "Databasic.SQLite" )>
12
- < Assembly : AssemblyDescription( "" )>
13
- < Assembly : AssemblyCompany( "" )>
11
+ < Assembly : AssemblyTitle( "Databasic.SQLite" )>
12
+ < Assembly : AssemblyDescription( "Databasic - C#/VB.NET database utility
13
+ - focusing on queries primarily based on pure SQL commands, no linq transations
14
+ - arranging data into primitive types, typed active record classes, collections and more
15
+ - allowing to run any nonselect queries ")>
16
+ < Assembly : AssemblyCompany( "Tom Flidr" )>
14
17
< Assembly : AssemblyProduct( "Databasic.SQLite" )>
15
- < Assembly : AssemblyCopyright( "Copyright © 2017" )>
16
- < Assembly : AssemblyTrademark( "" )>
18
+ < Assembly : AssemblyCopyright( "Copyright © 2017" )>
19
+ < Assembly : AssemblyTrademark( "Tom Flidr " )>
17
20
18
21
< Assembly : ComVisible( False )>
19
22
Original file line number Diff line number Diff line change @@ -3,14 +3,16 @@ Imports System.Data.SQLite
3
3
Imports SQLite.Data.SQLiteClient
4
4
5
5
Public Class Transaction
6
- Inherits Databasic.Transaction
7
- Public Overrides Property Instance As DbTransaction
8
- Get
9
- Return Me ._instance
10
- End Get
11
- Set (value As DbTransaction)
6
+ Inherits Databasic.Transaction
7
+
8
+ Public Overrides Property Instance As DbTransaction
9
+ Get
10
+ Return Me ._instance
11
+ End Get
12
+ Set (value As DbTransaction)
12
13
Me ._instance = value
13
14
End Set
14
15
End Property
15
- Private _instance As SQLiteTransaction
16
+ Private _instance As SQLiteTransaction
17
+
16
18
End Class
You can’t perform that action at this time.
0 commit comments