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
1717
1818 Public Overrides ReadOnly Property Statement As System.Type = GetType (Statement)
1919
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
3232
3333End Class
Original file line number Diff line number Diff line change @@ -8,12 +8,15 @@ Imports System.Runtime.InteropServices
88
99' Review the values of the assembly attributes
1010
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" )>
1417< Assembly : AssemblyProduct( "Databasic.SQLite" )>
15- < Assembly : AssemblyCopyright( "Copyright © 2017" )>
16- < Assembly : AssemblyTrademark( "" )>
18+ < Assembly : AssemblyCopyright( "Copyright © 2017" )>
19+ < Assembly : AssemblyTrademark( "Tom Flidr " )>
1720
1821< Assembly : ComVisible( False )>
1922
Original file line number Diff line number Diff line change @@ -3,14 +3,16 @@ Imports System.Data.SQLite
33Imports SQLite.Data.SQLiteClient
44
55Public 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)
1213 Me ._instance = value
1314 End Set
1415 End Property
15- Private _instance As SQLiteTransaction
16+ Private _instance As SQLiteTransaction
17+
1618End Class
You can’t perform that action at this time.
0 commit comments