Release SearchFlow

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -33,24 +33,27 @@ Public Class ClassInit
         End Try
     End Sub
     Public Function InitDatabase()
-        Dim dbResult As Boolean
+
         clsDatabase.GUI = True
+        Dim Database_ECM As MSSQLServer = Nothing
+        Dim Database_IDB As MSSQLServer = Nothing
         If MyConnectionString <> String.Empty Then
-            dbResult = clsDatabase.Init(MyConnectionString)
+            Database_ECM = New MSSQLServer(LogConfig, MyConnectionString)
         Else
             MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)
             ERROR_INIT = "NO DB-CONNECTION"
             frmConfig_Basic.ShowDialog()
-            dbResult = clsDatabase.Init(MyConnectionString)
             InitBasics()
         End If
-        If dbResult = False Then
+        If Database_ECM.DBInitialized = True Then
+            DatabaseFallback = New DatabaseWithFallback(LogConfig, _Client, Database_ECM, Database_IDB)
+            Return True
+        Else
             ERROR_INIT = "FAILED DBCONNECTION"
             MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
             Return False
-        Else
-            Return True
         End If
+
     End Function
 
     Public Function InitDatabase_New() As Boolean