EDMIService: Add ConnectionString for Config Database

Service.EDMIService/WindowsService.vb

@@ -18,6 +18,7 @@ Public Class WindowsService
     Private Firebird As Firebird
     Private MSSQL_ECM As MSSQLServer
     Private MSSQL_IDB As MSSQLServer
+    Private MSSQL_Config As MSSQLServer
 
     Private ConfigManager As ConfigManager(Of Config)
     Private Config As Config
@@ -69,6 +70,7 @@ Public Class WindowsService
             Firebird = StartFirebird()
             MSSQL_ECM = GetMSSQL_ECM(LogConfig)
             MSSQL_IDB = GetMSSQL_IDB(LogConfig)
+            MSSQL_Config = GetMSSQL_Config(LogConfig)
             Logger.Info("Connection to Databases established!")
 
             Logger.Debug("Initializing EDMI Functions")
@@ -76,7 +78,7 @@ Public Class WindowsService
             Filesystem = New Filesystem.File(LogConfig)
             GlobalState = New GlobalState(LogConfig, MSSQL_IDB, MSSQL_ECM)
 
-            Dim oMSSQLServer = GetMSSQL_ECM(LogConfigScheduler)
+            Dim oMSSQLServer = GetMSSQL_Config(LogConfigScheduler)
             Scheduler = New Scheduler(LogConfigScheduler, oMSSQLServer, GlobalState.TableStore)
 
             Logger.Info("Loading Global Data")
@@ -163,6 +165,11 @@ Public Class WindowsService
 
     Private Function GetMSSQL_ECM(pLogConfig As LogConfig) As MSSQLServer
         Logger.Debug("Connecting to ECM MSSQL")
+        If Config.ConnectionString_ECM = String.Empty Then
+            Logger.Warn("Configuration for ConnectionString_ECM is missing.")
+            Throw New ArgumentNullException("ConnectionString_ECM")
+        End If
+
         Dim oMSSQL = New MSSQLServer(pLogConfig, Config.ConnectionString_ECM)
         Logger.Info("Database connection to ECM Database established.")
         Return oMSSQL
@@ -170,11 +177,28 @@ Public Class WindowsService
 
     Private Function GetMSSQL_IDB(pLogConfig As LogConfig) As MSSQLServer
         Logger.Debug("Connecting to IDB MSSQL")
+        If Config.ConnectionString_IDB = String.Empty Then
+            Logger.Warn("Configuration for ConnectionString_IDB is missing.")
+            Throw New ArgumentNullException("ConnectionString_IDB")
+        End If
+
         Dim oMSSQL = New MSSQLServer(pLogConfig, Config.ConnectionString_IDB)
         Logger.Info("Database connection to IDB Database established.")
         Return oMSSQL
     End Function
 
+    Private Function GetMSSQL_Config(pLogConfig As LogConfig) As MSSQLServer
+        Logger.Debug("Connecting to Config MSSQL")
+        If Config.ConnectionString_Config = String.Empty Then
+            Logger.Warn("Configuration for ConnectionString_Config is missing.")
+            Throw New ArgumentNullException("ConnectionString_Config")
+        End If
+
+        Dim oMSSQL = New MSSQLServer(pLogConfig, Config.ConnectionString_Config)
+        Logger.Info("Database connection to Config Database established.")
+        Return oMSSQL
+    End Function
+
     Protected Overrides Sub OnStop()
         GracefullyStop()
     End Sub