Mailsender, cWorker (für Gesamtsicherheiten).

2026-03-05 08:43:01 +01:00
parent aed3851cbd
commit 1eac4a3e50
7 changed files with 178 additions and 193 deletions
--- a/UID/cSqlDb.vb
+++ b/UID/cSqlDb.vb
@@ -14,8 +14,15 @@ Public Class cSqlDb
        Return cn
    End Function
    Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection
+
        Dim cn As New SqlConnection()
-        cn.ConnectionString = My.Resources.connStringFMZOLL
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
+            cn.ConnectionString = My.Resources.connStringFMZOLL_NEW
+        Else
+            cn.ConnectionString = My.Resources.connStringFMZOLL
+        End If
+
        cn.Open()
        Return cn
    End Function