Ms Inactivity, ApplServerConnections

app/DD_PM_WINDREAM/ClassDatabase.vb

@@ -44,17 +44,30 @@ Public Class ClassDatabase
         End Try
         Return connectionString
     End Function
-    Public Shared Function Init()
+    Public Shared Function Init(Optional ConString As String = "")
         Try
-            SQLSERVERConnectionString = CONNECTION_STRING
+            If ConString = String.Empty Then
+                SQLSERVERConnectionString = CONNECTION_STRING
+            End If
+
             Dim SQLconnect As New SqlClient.SqlConnection
-            SQLconnect.ConnectionString = SQLSERVERConnectionString
+            If ConString <> String.Empty Then
+                SQLconnect.ConnectionString = ConString
+            Else
+                SQLconnect.ConnectionString = SQLSERVERConnectionString
+            End If
+
             SQLconnect.Open()
             SQLconnect.Close()
             Return True
         Catch ex As Exception
             LOGGER.Error(ex)
-            LOGGER.Info("Fehler bei Database-Init: " & ex.Message, True)
+            If ConString <> String.Empty Then
+                LOGGER.Info($"Error initializing Database [{ConString}] " & ex.Message, True)
+            Else
+                LOGGER.Info($"Error initializing Database [{CONNECTION_STRING}] " & ex.Message, True)
+            End If
+
             Return False
         End Try
     End Function