neu

2020-08-04 16:34:47 +02:00
parent 40295a2819
commit 89d8e0a3a8
95 changed files with 3655 additions and 697 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
@@ -121,7 +121,7 @@ Public Class SQL
                Try
                    Return My.MySettings.Default.AVISOConnectionString
                Catch ex As Exception
-                    Return "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
+                    Return "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
                End Try
            End If
        End If
@@ -139,11 +139,15 @@ Public Class SQL

    Public Shared Function GetNewOpenConnectionSDL(Optional pooling As Boolean = True) As SqlConnection
        Dim cn As New SqlConnection()
-        'cn.ConnectionString = My.Resources.connStringSDL_DEV
-        ' IMMER DIE AKTUELLE CONNECTION IN MY.SETTINGS ÄNDERN!!! --> WG. BINDING
-        cn.ConnectionString = GetSDLConnectionString() & IIf(pooling, "", ";pooling=false")
-        cn.Open()
-        Return cn
+        Try
+            cn.ConnectionString = GetSDLConnectionString() & 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", "*******") & " | 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 GetNewOpenConnectionUID(Optional pooling As Boolean = True) As SqlConnection
        Dim cn As New SqlConnection()
@@ -157,9 +161,16 @@ Public Class SQL

    Public Shared Function GetNewOpenConnectionADMIN() As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = GetADMINConnectionString()
-        cn.Open()
-        Return cn
+        Try
+            cn.ConnectionString = GetADMINConnectionString()
+            cn.Open()
+            Return cn
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | 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


@@ -171,27 +182,52 @@ Public Class SQL
    End Function
    Public Shared Function GetNewOpenConnectionFMZOLL(Optional pooling As Boolean = True) As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = GetFMZOLLConnectionString() & IIf(pooling, "", ";pooling=false")
-        cn.Open()
-        Return cn
+        Try
+            cn.ConnectionString = GetFMZOLLConnectionString() & 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", "*******") & " | 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 GetNewOpenConnectionWEB(Optional pooling As Boolean = True) As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = GetWEBConnectionString() & IIf(pooling, "", ";pooling=false")
-        cn.Open()
-        Return cn
+        Try
+            cn.ConnectionString = GetWEBConnectionString() & 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", "*******") & " | 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 GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM As Boolean, Optional pooling As Boolean = True) As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = GetFMZOLLConnectionString(TESTSYSTEM) & IIf(pooling, "", ";pooling=false")
-        cn.Open()
-        Return cn
+        Try
+            cn.ConnectionString = GetFMZOLLConnectionString(TESTSYSTEM) & 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", "*******") & " | 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 GetNewOpenConnectionSCANCANON(Optional pooling As Boolean = True) As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = GetSCANCANONConnectionString() & IIf(pooling, "", ";pooling=false")
-        cn.Open()
-        Return cn
+        Try
+            cn.ConnectionString = GetSCANCANONConnectionString() & 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", "*******") & " | 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 GetNewOpenConnectionATLAS() As SqlConnection
@@ -203,64 +239,104 @@ Public Class SQL

    Public Shared Function GetNewOpenConnectionATLAS_SBG() As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = GetATLAS_SBGConnectionString()
+        Try
+            cn.ConnectionString = GetATLAS_SBGConnectionString()
+            cn.Open()
+            Return cn
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | 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
+

-        cn.Open()
-        Return cn
    End Function


    Public Shared Function GetNewOpenConnectionATLAS_SUBorSBG() As SqlConnection
        Dim cn As New SqlConnection()
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = "SBG" Then
-            cn.ConnectionString = GetATLAS_SBGConnectionString()
-        Else
-            cn.ConnectionString = GetATLASConnectionString()
-        End If
+        Try
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = "SBG" Then
+                cn.ConnectionString = GetATLAS_SBGConnectionString()
+            Else
+                cn.ConnectionString = GetATLASConnectionString()
+            End If
+
+            cn.Open()
+            Return cn
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | 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


-        cn.Open()
-        Return cn
    End Function

    Public Shared Function GetNewOpenConnectionEZOLL() As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = GetEZOLLConnectionString()
+        Try
+            cn.ConnectionString = GetEZOLLConnectionString()
+            cn.Open()
+            Return cn
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | 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

-        cn.Open()
-        Return cn
    End Function

    Public Shared Function GetNewOpenConnectionAVISO() As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = GetAVISOConnectionString()
+        Try
+            cn.ConnectionString = GetAVISOConnectionString()
+            cn.Open()
+            Return cn
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | 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

-        cn.Open()
-        Return cn
    End Function


    Public Shared Function GetNewOpenConnectionDISPO() As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = GetDISPOConnectionString()
+        Try
+            cn.ConnectionString = GetDISPOConnectionString()
+            cn.Open()
+            Return cn
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | 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

-        cn.Open()
-        Return cn

    End Function
    Public Shared Function GetNewOpenConnectionAVISO_ATILLA() As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = My.MySettings.Default.AVISO_ATILLAConnectionString
+        Try
+            cn.ConnectionString = My.MySettings.Default.AVISO_ATILLAConnectionString
+            cn.Open()
+            Return cn
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | 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
+

-        cn.Open()
-        Return cn
    End Function

    Public Shared Function GetNewOpenConnectionFMZOLLREAL() As SqlConnection
        Dim cn As New SqlConnection()
-        cn.ConnectionString = My.MySettings.Default.FMZOLL_PRODConnectionString
-        cn.Open()
-        Return cn
+        Try
+            cn.ConnectionString = My.MySettings.Default.FMZOLL_PRODConnectionString
+            cn.Open()
+            Return cn
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | 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


@@ -474,7 +550,7 @@ Public Class SQL

            Return defaultReturn
        Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name & sql)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & conn.ConnectionString, System.Reflection.MethodInfo.GetCurrentMethod.Name & sql)
        End Try
        'MsgBox("3")
        Return defaultReturn