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

Ms Inactivity, ApplServerConnections

Browse Source
This commit is contained in:
SchreiberM
2020-11-19 14:51:00 +01:00
parent 6c289a9a9e
commit 0eeb6ff237
13 changed files with 162 additions and 178 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
app/DD_PM_WINDREAM/ClassParamRefresh.vb
View File

@@ -45,17 +45,19 @@
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
CONNECTION_STRING_IDB = oConString
Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
If Not IsNothing(oDT) Then
If oDT.Rows.Count > 0 Then
IDB_ACTIVE = True
Else
LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DTAttribute.Row.Count is [{oDT.Rows.Count}]!!")
End If
If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = False Then
IDB_ACTIVE = False
Else
IDB_ACTIVE = True
LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DT Attribute is Nothing!!")
End If
ElseIf oMode.StartsWith("PM.IDB_APP_SERV_CONID!") Then
Dim CON_ID = oMode.Replace("PM.IDB_APP_SERV_CONID!", "")
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
CONNECTION_STRING_IDB_APP_SERVER = oConString
If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = True Then
CONNECTION_STRING_IDB_APP_SERVER = ""
End If
ElseIf oMode = "PM.MONITORING" Then
MONITORING_ACTIVE = True
ElseIf oMode = "PM.GHOSTMODE" Then
@@ -93,12 +95,32 @@
Catch ex As Exception
LAST_ADDED_COLUMN = ""
End Try
ElseIf oMode.StartsWith("PM.USE_APPSERVER") Then
Dim oUSE_APPSERVER = oMode.Replace("PM.USE_APPSERVER=", "")
Try
USE_APPSERVER = CBool(oUSE_APPSERVER)
Catch ex As Exception
USE_APPSERVER = False
End Try
Else
LOGGER.Info($"Wrong oMode: {oMode}")
End If
Next
If IDB_ACTIVE Then
If CONNECTION_STRING_APP_SERVER <> String.Empty Then
If USE_APPSERVER = True Then
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_APP_SERVER
Else
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB
End If
Else
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB
End If
CONNECTION_STRING_IDB_WRITE = CONNECTION_STRING_IDB
End If
End If
oStopwatch.Done()
End Sub