Bodyauswertung

App/DigitalData.EMLProfiler/clsDatabase.vb

@@ -3,8 +3,11 @@ Imports DigitalData.Modules.Logging
 Public Class clsDatabase
     Public connectionString As String
     Private Logger As Logger
+    Private MyLogger As LogConfig
+
     Sub New(LogConf As LogConfig, ConStr As String)
         Logger = LogConf.GetLogger
+        MyLogger = LogConf
         Init(ConStr)
     End Sub
     Public Function Init(ConString As String)
@@ -26,6 +29,7 @@ Public Class clsDatabase
                     TIMER_INTERVALL = DTCONFIG.Rows(0).Item("CHECK_INTERVALL_MINUTES")
                 End If
             End If
+            MyLogger.Debug = LOG_ERRORS_ONLY
             DT_ECM_BASE_CONFIG = Return_Datatable("select * from TBDD_BASECONFIG")
             Try
                 WM_DRIVE = DT_ECM_BASE_CONFIG.Rows(0).Item("WM_DRIVE")