MS Init
This commit is contained in:
parent
6e09662fc3
commit
71ea8dc2a1
@ -191,19 +191,6 @@ Public Class ClassInit
|
|||||||
' If there is no client, it will fall back to the db by itself
|
' If there is no client, it will fall back to the db by itself
|
||||||
Database = New DatabaseWithFallback(LOGCONFIG, _Client, Database_ECM, Database_IDB)
|
Database = New DatabaseWithFallback(LOGCONFIG, _Client, Database_ECM, Database_IDB)
|
||||||
|
|
||||||
|
|
||||||
'If CONNECTION_STRING_APP_SERVER <> String.Empty Then
|
|
||||||
' Database_APPSERVER = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_APP_SERVER)
|
|
||||||
' If Database_APPSERVER.DBInitialized = False Then
|
|
||||||
' MsgBox("ApplicationServer can not be reached! Check Your configuration.", MsgBoxStyle.Information)
|
|
||||||
' If dbResult = True Then
|
|
||||||
' CONNECTION_STRING_READ = CONNECTION_STRING_ECM
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
'End If
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If dbResult = False Then
|
If dbResult = False Then
|
||||||
ERROR_STATE = "FAILED DBCONNECTION"
|
ERROR_STATE = "FAILED DBCONNECTION"
|
||||||
MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
|
MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
|
||||||
@ -330,6 +317,8 @@ Public Class ClassInit
|
|||||||
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
|
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
|
||||||
|
|
||||||
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
|
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
|
||||||
|
|
||||||
|
|
||||||
FINALINDICES = New ClassFinalIndex()
|
FINALINDICES = New ClassFinalIndex()
|
||||||
FINALINDICES.init()
|
FINALINDICES.init()
|
||||||
If IDB_ACTIVE = True Then
|
If IDB_ACTIVE = True Then
|
||||||
|
|||||||
@ -63,6 +63,7 @@ Public Class ClassParamRefresh
|
|||||||
If Database_IDB.DBInitialized = True Then
|
If Database_IDB.DBInitialized = True Then
|
||||||
IDB_ACTIVE = True
|
IDB_ACTIVE = True
|
||||||
LOGGER.Info($"IDB is active - IDB-Connection [{CON_ID}]!")
|
LOGGER.Info($"IDB is active - IDB-Connection [{CON_ID}]!")
|
||||||
|
Database.InitializeIDB(Database_IDB)
|
||||||
Else
|
Else
|
||||||
IDB_ACTIVE = False
|
IDB_ACTIVE = False
|
||||||
End If
|
End If
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user