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

ZooFlow: clean up

Browse Source
This commit is contained in:
Jonathan Jenne 2020-12-23 16:36:24 +01:00
parent 088c330f0c
commit bd3c981807
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
GUIs.ZooFlow/ClassInit.vb
View File

@ -167,7 +167,13 @@ Public Class ClassInit
Throw New InitException("Fehler beim Laden der IDB Verbindungsdaten!") Throw New InitException("Fehler beim Laden der IDB Verbindungsdaten!")
End If End If
Dim oConString = My.Database.GetConnectionString(oDatatable.Rows(0).Item("SERVER"), oDatatable.Rows(0).Item("DATENBANK"), oDatatable.Rows(0).Item("USERNAME"), oDatatable.Rows(0).Item("PASSWORD")) Dim oDataRow As DataRow = oDatatable.Rows.Item(0)
Dim oConString = My.Database.GetConnectionString(
oDataRow.Item("SERVER").ToString,
oDataRow.Item("DATENBANK").ToString,
oDataRow.Item("USERNAME").ToString,
oDataRow.Item("PASSWORD").ToString)
My.DatabaseIDB = New MSSQLServer(My.LogConfig, oConString) My.DatabaseIDB = New MSSQLServer(My.LogConfig, oConString)
If My.DatabaseIDB.DBInitialized = False Then If My.DatabaseIDB.DBInitialized = False Then
_Logger.Warn("Could not initialize IDB-Database!") _Logger.Warn("Could not initialize IDB-Database!")
@ -176,7 +182,7 @@ Public Class ClassInit
End If End If
Else Else
_Logger.Warn("ZooFlow missing from Active Modules!") _Logger.Warn("ZooFlow missing from Active Modules!")
Throw New InitException("ZooFlow Modult ist nicht aktiv oder nicht lizensiert!") Throw New InitException("ZooFlow Modul ist nicht aktiv oder nicht lizensiert!")
End If End If
End Sub End Sub