Skip to content

Commit a06c23c

Browse files
committed
sql errors and exceptions handling
1 parent 2eeb666 commit a06c23c

File tree

3 files changed

+29
-24
lines changed

3 files changed

+29
-24
lines changed

Connection.vb

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff 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

3333
End Class

My Project/AssemblyInfo.vb

Lines changed: 8 additions & 5 deletions
Original file line numberDiff line numberDiff 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

Transaction.vb

Lines changed: 9 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -3,14 +3,16 @@ Imports System.Data.SQLite
33
Imports SQLite.Data.SQLiteClient
44

55
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)
1213
Me._instance = value
1314
End Set
1415
End Property
15-
Private _instance As SQLiteTransaction
16+
Private _instance As SQLiteTransaction
17+
1618
End Class

0 commit comments

Comments
 (0)