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

EDMIService: Add ConnectionString for Config Database

Browse Source
This commit is contained in:
Jonathan Jenne 2022-06-22 09:29:39 +02:00
parent 74d8aeb503
commit 702d783c34
3 changed files with 31 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Service.EDMIService/Config.vb
View File

@ -1,6 +1,8 @@
Imports DigitalData.Modules.Config.ConfigAttributes
Public Class Config
<ConnectionString>
Public Property ConnectionString_Config As String = String.Empty
<ConnectionString>
Public Property ConnectionString_IDB As String = String.Empty
<ConnectionString>

8
Service.EDMIService/Scheduler/Scheduler.vb
View File

@ -21,12 +21,12 @@ Public Class Scheduler
Private Const JOB_GROUP As String = "DatatableJobs"
Public Sub New(LogConfig As LogConfig, MSSQL_ECM As MSSQLServer, TableStore As DataSet)
MyBase.New(LogConfig)
Public Sub New(pLogConfig As LogConfig, pMSSQL_Config As MSSQLServer, pTableStore As DataSet)
MyBase.New(pLogConfig)
_Factory = New StdSchedulerFactory(_Props)
_MSSQL = MSSQL_ECM
_JobListener = New JobListener(LogConfig, _MSSQL, TableStore)
_MSSQL = pMSSQL_Config
_JobListener = New JobListener(pLogConfig, _MSSQL, pTableStore)
Logging.LogProvider.SetCurrentLogProvider(New LogProvider(Logger))
End Sub

26
Service.EDMIService/WindowsService.vb
View File

@ -18,6 +18,7 @@ Public Class WindowsService
Private Firebird As Firebird
Private MSSQL_ECM As MSSQLServer
Private MSSQL_IDB As MSSQLServer
Private MSSQL_Config As MSSQLServer
Private ConfigManager As ConfigManager(Of Config)
Private Config As Config
@ -69,6 +70,7 @@ Public Class WindowsService
Firebird = StartFirebird()
MSSQL_ECM = GetMSSQL_ECM(LogConfig)
MSSQL_IDB = GetMSSQL_IDB(LogConfig)
MSSQL_Config = GetMSSQL_Config(LogConfig)
Logger.Info("Connection to Databases established!")
Logger.Debug("Initializing EDMI Functions")
@ -76,7 +78,7 @@ Public Class WindowsService
Filesystem = New Filesystem.File(LogConfig)
GlobalState = New GlobalState(LogConfig, MSSQL_IDB, MSSQL_ECM)
Dim oMSSQLServer = GetMSSQL_ECM(LogConfigScheduler)
Dim oMSSQLServer = GetMSSQL_Config(LogConfigScheduler)
Scheduler = New Scheduler(LogConfigScheduler, oMSSQLServer, GlobalState.TableStore)
Logger.Info("Loading Global Data")
@ -163,6 +165,11 @@ Public Class WindowsService
Private Function GetMSSQL_ECM(pLogConfig As LogConfig) As MSSQLServer
Logger.Debug("Connecting to ECM MSSQL")
If Config.ConnectionString_ECM = String.Empty Then
Logger.Warn("Configuration for ConnectionString_ECM is missing.")
Throw New ArgumentNullException("ConnectionString_ECM")
End If
Dim oMSSQL = New MSSQLServer(pLogConfig, Config.ConnectionString_ECM)
Logger.Info("Database connection to ECM Database established.")
Return oMSSQL
@ -170,11 +177,28 @@ Public Class WindowsService
Private Function GetMSSQL_IDB(pLogConfig As LogConfig) As MSSQLServer
Logger.Debug("Connecting to IDB MSSQL")
If Config.ConnectionString_IDB = String.Empty Then
Logger.Warn("Configuration for ConnectionString_IDB is missing.")
Throw New ArgumentNullException("ConnectionString_IDB")
End If
Dim oMSSQL = New MSSQLServer(pLogConfig, Config.ConnectionString_IDB)
Logger.Info("Database connection to IDB Database established.")
Return oMSSQL
End Function
Private Function GetMSSQL_Config(pLogConfig As LogConfig) As MSSQLServer
Logger.Debug("Connecting to Config MSSQL")
If Config.ConnectionString_Config = String.Empty Then
Logger.Warn("Configuration for ConnectionString_Config is missing.")
Throw New ArgumentNullException("ConnectionString_Config")
End If
Dim oMSSQL = New MSSQLServer(pLogConfig, Config.ConnectionString_Config)
Logger.Info("Database connection to Config Database established.")
Return oMSSQL
End Function
Protected Overrides Sub OnStop()
GracefullyStop()
End Sub