MS

app/DD-Record-Organiser/ClassInit.vb

@@ -1,12 +1,13 @@
 Imports System.ComponentModel
 Imports System.IO
-
+Imports DD_LIB_Standards
 Public Class ClassInit
     Public Sub New()
     End Sub
 
     Public Sub InitLogger()
         ClassLogger.Init("", USER_USERNAME)
+        clsLogger.LOGFILE_PATH = ClassLogger.logDateiname
     End Sub
 
     Public Function InitDatabase()
@@ -20,14 +21,20 @@ Public Class ClassInit
             End If
 
             If MyConnectionString <> String.Empty Then
-                dbResult = ClassDatabase.Init()
+
+                dbResult = clsDatabase.Init(MyConnectionString)
             Else
                 frmConfig_Basic.ShowDialog()
-                dbResult = ClassDatabase.Init()
+                dbResult = clsDatabase.Init(MyConnectionString)
             End If
-
+            ClassDatabase.Init()
             If dbResult = False Then
-                Throw New Exception("Find more information in the logfile.")
+                If clsLogger.LOGG_MSG <> String.Empty Then
+                    Throw New Exception("Error while Initializing database:" & vbNewLine & clsLogger.LOGG_MSG)
+                Else
+                    Throw New Exception("Find more information in the logfile.")
+                End If
+
             End If
             Return True
         Catch ex As Exception