From 2cac04acc6a755263bb2e5c7880767f06a0ac603 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 25 Feb 2026 14:37:10 +0100 Subject: [PATCH] GetNewOpenConnectionFMZOLL_SYSTEM _>gGUIDE!!! --- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 2 +- VERAG_PROG_ALLGEMEIN/Classes/SQL.vb | 24 +++++++++++++++---- 2 files changed, 21 insertions(+), 5 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index a3621da2..394baf76 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -190,7 +190,7 @@ Public Class cDatenbankAVISO End If Return GlobalConnectionFMZOLL Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("SQLGUIDE01_USED: " & VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED & " Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) ' MsgBox("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & vbCrLf & vbNewLine & vbCrLf & "Fehler: " & ex.Message) End Try Return Nothing diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 1549c650..edcd09a3 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -60,7 +60,8 @@ Public Class SQL Return My.MySettings.Default.FMZOLL_PRODConnectionString Catch ex As Exception ' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" - Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" + ' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" + Return "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" End Try End If @@ -139,10 +140,14 @@ Public Class SQL Return My.MySettings.Default.FMZOLLConnectionString Else Try + If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then + Return My.MySettings.Default.VERAGConnectionStringPROD + End If Return My.MySettings.Default.FMZOLL_PRODConnectionString Catch ex As Exception - ' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" - Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" + ' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" + ' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" + Return "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" End Try End If End Function @@ -152,6 +157,9 @@ Public Class SQL Return My.MySettings.Default.AsfinagConnectionStringDEV() Else Try + If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then + Return My.MySettings.Default.VERAGConnectionStringPROD + End If Return My.MySettings.Default.FMZOLL_PRODConnectionString Catch ex As Exception ' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" @@ -297,6 +305,11 @@ Public Class SQL Public Shared Function GetNewOpenConnectionFMZOLL(Optional pooling As Boolean = True) As SqlConnection Dim cn As New SqlConnection() Try + + 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED) + 'MsgBox(GetFMZOLLConnectionString()) + + cn.ConnectionString = GetFMZOLLConnectionString() & IIf(pooling, "", ";pooling=false") cn.Open() Return cn @@ -520,9 +533,12 @@ Public Class SQL Public Shared Function GetNewOpenConnectionFMZOLLREAL() As SqlConnection Dim cn As New SqlConnection() Try - cn.ConnectionString = My.MySettings.Default.FMZOLL_PRODConnectionString + + cn.ConnectionString = My.MySettings.Default.VERAGConnectionStringPROD + '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", "*******").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