Verbindung zu Asifnag-DB

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -48,6 +48,32 @@ Public Class SQL
         End If
 
 
+    End Function
+
+
+
+    Public Shared Function GetAsfinagConnectionString() As String
+        'Properties.Settings.Default.
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            Try
+                Return My.MySettings.Default.AsfinagConnectionString
+            Catch ex As Exception
+                'Return "Data Source=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+                Return "Data Source=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
+            End Try
+
+
+        Else
+            Try
+                Return My.MySettings.Default.AsfinagConnectionString 'nach Prod-Start austauschen!
+            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=ASFINAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
+            End Try
+        End If
+
+
     End Function
     Public Shared Function GetWEBConnectionString() As String
         'Properties.Settings.Default.
@@ -230,7 +256,7 @@ Public Class SQL
     Public Shared Function GetNewOpenConnectionAsfinag(Optional pooling As Boolean = True) As SqlConnection
         Dim cn As New SqlConnection()
         Try
-            cn.ConnectionString = GetFMZOLLConnectionString() & IIf(pooling, "", ";pooling=false")
+            cn.ConnectionString = GetAsfinagConnectionString() & IIf(pooling, "", ";pooling=false")
             cn.Open()
             Return cn
         Catch ex As Exception