Changes Wisag Pitch

Modules.Database/Firebird.vb

@@ -7,7 +7,7 @@ Imports DigitalData.Modules.Logging
 ''' 
 ''' VERSION:        0.0.0.4
 ''' 
-''' DATE:           05.12.2018
+''' DATE:           18.12.2018
 ''' 
 ''' DESCRIPTION:    
 '''                    
@@ -46,8 +46,8 @@ Imports DigitalData.Modules.Logging
 ''' REMARKS:        If the connection fails due to "wrong username or password", the cause might be that the server harddrive is full..
 ''' </summary>
 Public Class Firebird
-    Private _logger As Logger
-    Private _logConfig As LogConfig
+    Private _Logger As Logger
+    Private _MyLogger As LogConfig
     Private _connectionServer As String
     Private _connectionDatabase As String
     Private _connectionUsername As String
@@ -85,8 +85,12 @@ Public Class Firebird
     ''' <param name="Password"></param>
     ''' <exception cref="Exceptions.DatabaseException"></exception>
     Public Sub New(LogConfig As LogConfig, Datasource As String, Database As String, User As String, Password As String)
-        _logger = LogConfig.GetLogger()
-        _logConfig = LogConfig
+
+        _MyLogger = LogConfig
+        _Logger = _MyLogger.GetLogger()
+
+
+
 
         Dim oConnectionString = GetConnectionString(Datasource, Database, User, Password)
 
@@ -199,7 +203,8 @@ Public Class Firebird
 
             oCommand.ExecuteNonQuery()
         Catch ex As Exception
-            _logger.Error(ex, $"Error in ExecuteNonQuery while executing command: '{SqlCommand}'")
+            _Logger.Error(ex, $"Error in ExecuteNonQuery while executing command: '{SqlCommand}'")
+            _Logger.Warn($"Unexpected error in ExecuteNonQueryWithConnection: '{SqlCommand}'")
             Throw ex
         Finally
             MaybeCommitTransaction(oTransaction, TransactionMode)