Kundenübersicht / Risiko; Verag ZA

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -65,6 +65,22 @@ Public Class SQL
         End If
 
 
+    End Function
+    Public Shared Function GetNewOpenConnectionStringSQLGUIDE_ADMIN() As String
+        'Properties.Settings.Default.
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+
+            Return ""
+        Else
+            Try
+                Return My.MySettings.Default.VERAGConnectionStringPROD_ADMIN
+            Catch ex As Exception
+                Return ""
+            End Try
+        End If
+
+
     End Function
     Public Shared Function GetPARKZEITConnectionString() As String
         'Properties.Settings.Default.
@@ -289,6 +305,18 @@ Public Class SQL
         End Try
         Return Nothing
 
+    End Function
+    Public Shared Function GetNewOpenConnectionSQLGUIDE_ADMIN(Optional pooling As Boolean = True) As SqlConnection
+        Dim cn As New SqlConnection()
+        Try
+            cn.ConnectionString = GetNewOpenConnectionStringSQLGUIDE_ADMIN() & IIf(pooling, "", ";pooling=false")
+            cn.Open()
+            Return cn
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return Nothing
+
     End Function
 
     Public Shared Function GetNewOpenConnectionAsfinag(Optional pooling As Boolean = True) As SqlConnection
@@ -877,6 +905,7 @@ Public Class SQL
                 Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
                 Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
 
+                Case "SQLGUIDE_ADMIN" : conn = GetNewOpenConnectionSQLGUIDE_ADMIN()
                 Case "AVISO_ATILLA"
                     conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
                     conn.Open()