MS IDB Anbindung RightClick und Events

GUIs.ZooFlow/ClassInit.vb

@@ -76,7 +76,23 @@ Public Class ClassInit
             My.Application.User = oMyApplication.User
             My.Application.Modules = oMyApplication.Modules
             My.Application.ModulesActive = oMyApplication.ModulesActive
+            If My.Application.ModulesActive.Contains(ClassConstants.MODULE_ZOOFLOW) Then
+                If My.Database.DBInitialized Then
+                    Dim oSQl = "SELECT * FROM TBDD_CONNECTION WHERE BEZEICHNUNG = 'IDB'"
+                    Dim oDTCONN_IDB As DataTable = My.Database.GetDatatable(oSQl)
+                    If oDTCONN_IDB.Rows.Count = 1 Then
+                        Dim oConString = My.Database.GetConnectionString(oDTCONN_IDB.Rows(0).Item("SERVER"), oDTCONN_IDB.Rows(0).Item("DATENBANK"), oDTCONN_IDB.Rows(0).Item("USERNAME"), oDTCONN_IDB.Rows(0).Item("PASSWORD"))
+                        My.Database_IDB = New MSSQLServer(My.LogConfig, oConString)
+                        If My.Database.DBInitialized = False Then
+                            _Logger.Warn("Could not initialize IDB-Database!")
+                            Throw New InitException("Could not initialize IDB-Database!")
+                        End If
+                    End If
 
+                End If
+
+
+            End If
             RaiseEvent Completed(sender, Nothing)
         End If
     End Sub
@@ -90,8 +106,8 @@ Public Class ClassInit
         My.Database = New MSSQLServer(My.LogConfig, oDecryptedConnectionString)
 
         If My.Database.DBInitialized = False Then
-            _Logger.Warn("Datenbank konnte nicht initialisiert werden!")
-            Throw New InitException("Datenbank konnte nicht initialisiert werden!")
+            _Logger.Warn("Could not initialize DD_ECM-Database!")
+            Throw New InitException("Could not initialize DD_ECM-Database!")
         End If
     End Sub
 
@@ -134,8 +150,11 @@ Public Class ClassInit
 
                     Case MODULE_GLOBAL_INDEXER
                         HandleModuleInfo(MyApplication, oType, oRow)
+                    Case MODULE_ZOOFLOW
+                        HandleModuleInfo(MyApplication, oType, oRow)
                 End Select
             Next
+
         Catch ex As Exception
             _Logger.Error(ex)
             Throw New InitException("Fehler beim Laden des Benutzers!")