AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS MSSQL 2.2.6.0 Decrypt ConString in GEtCSforCONID

Browse Source
This commit is contained in:
SchreiberM 2022-01-17 11:59:52 +01:00
parent 0935510496
commit 15f530c9fc
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Modules.Database/Adapters/MSSQLServer.vb
View File

@ -159,12 +159,14 @@ Public Class MSSQLServer
connectionString = $"Server={oServer};Database={oDatabase};Trusted_Connection=True;"
Else
connectionString = $"Server={oServer};Database={oDatabase};User Id={oUser};Password={oPassword};"
connectionString = DecryptConnectionString(connectionString)
End If
Case "Oracle"
If oRow.Item("BEMERKUNG").ToString.Contains("without tnsnames") Then
connectionString = $"Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST={oServer})(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME={oDatabase})));User Id={oUser};Password={oPassword};"
Else
connectionString = $"Data Source={oServer};Persist Security Info=True;User Id={oUser};Password={oPassword};Unicode=True"
connectionString = DecryptConnectionString(connectionString)
End If
Case Else
_Logger.Warn("Provider {0} nicht unterstützt!", oProvider)

4
Modules.Database/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.2.5.0")>
<Assembly: AssemblyFileVersion("2.2.5.0")>
<Assembly: AssemblyVersion("2.2.6.0")>
<Assembly: AssemblyFileVersion("2.2.6.0")>