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

Database: Version 2.2.7, fix connection id = 0

Browse Source
This commit is contained in:
Jonathan Jenne 2022-07-08 10:12:41 +02:00
parent 55e484308c
commit 914a3464d7
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -146,7 +146,12 @@ Public Class MSSQLServer
End Function End Function
Public Function Get_ConnectionStringforID(pConnectionId As Integer) As String Public Function Get_ConnectionStringforID(pConnectionId As Integer) As String
Dim oConnectionString As String = "" Dim oConnectionString As String = String.Empty
If pConnectionId = 0 Then
_Logger.Warn("ConnectionId was 0. Falling back to default connection.")
Return String.Empty
End If
Try Try
Dim oTable As DataTable = GetDatatable($"SELECT * FROM TBDD_CONNECTION WHERE GUID = {pConnectionId}") Dim oTable As DataTable = GetDatatable($"SELECT * FROM TBDD_CONNECTION WHERE GUID = {pConnectionId}")
@ -174,17 +179,17 @@ Public Class MSSQLServer
End If End If
Case Else Case Else
_Logger.Warn("Provider {0} nicht unterstützt!", oProvider) _Logger.Warn("Provider [{0}] not supported!", oProvider)
End Select End Select
Else Else
_Logger.Info("No entry for Connection-ID: " & pConnectionId.ToString) _Logger.Warn("No entry for Connection-ID: [{0}] ", pConnectionId.ToString)
End If End If
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
_Logger.Info("Error in bei Get_ConnectionStringforID") _Logger.Warn("Error in Get_ConnectionStringforID")
End Try End Try
Return DecryptConnectionString(oConnectionString) Return DecryptConnectionString(oConnectionString)

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

@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Modules.Database")> <Assembly: AssemblyProduct("Modules.Database")>
<Assembly: AssemblyCopyright("Copyright © 2022")> <Assembly: AssemblyCopyright("Copyright © 2022")>
<Assembly: AssemblyTrademark("")> <Assembly: AssemblyTrademark("2.2.7.0")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.2.6.0")> <Assembly: AssemblyVersion("2.2.7.0")>
<Assembly: AssemblyFileVersion("2.2.6.0")> <Assembly: AssemblyFileVersion("2.2.7.0")>