edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Verbindung zu Asifnag-DB

Browse Source
This commit is contained in:
d.breimaier
2023-08-30 17:19:48 +02:00
parent 1cc6afa92e
commit 6cdca15d8f
1 changed files with 27 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -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