Remove ClassDatabase, ClassDataASorDB, replace with DatabaseWithFallback

This commit is contained in:
Jonathan Jenne
2022-01-12 14:34:27 +01:00
parent 482f015d6f
commit 6725d0f7d6
14 changed files with 294 additions and 538 deletions

View File

@@ -55,7 +55,8 @@ Public Class ClassParamRefresh
End If
Else
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
'Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
Dim oConString = Database_ECM.Get_ConnectionStringforID(CON_ID)
CONNECTION_STRING_IDB = oConString
Database_IDB = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_IDB)