Logging: Log Inner Exceptions

This commit is contained in:
Jonathan Jenne
2020-12-10 11:33:54 +01:00
parent b89ca3aa5a
commit 8ffec017e0
11 changed files with 282 additions and 22 deletions

View File

@@ -6,6 +6,7 @@ Imports Quartz.Listener
Public Class JobListener
Inherits JobListenerSupport
Public Overrides ReadOnly Property Name As String = "JobListener"
Public Property Dataset As DataSet
@@ -31,7 +32,7 @@ Public Class JobListener
Dim oDatatableNameTemp As String = oDatatableName & "-TEMP"
If Dataset.Tables.Contains(oDatatableName) Then
_Logger.Debug("DataTable [{0}] exists, renaming and replacing", oDatatableName)
_Logger.Debug("DataTable [{0}] exists, renaming and replacing in DataSet", oDatatableName)
' Rename the new table, add TEMP suffix
oDataTable.TableName = oDatatableNameTemp
' Add the new table to the dataset
@@ -41,7 +42,7 @@ Public Class JobListener
' Rename the new table
Dataset.Tables.Item(oDatatableNameTemp).TableName = oDatatableName
Else
_Logger.Debug("DataTable [{0}] does not exist, adding", oDatatableName)
_Logger.Debug("DataTable [{0}] does not exist, adding to DataSet", oDatatableName)
Dataset.Tables.Add(oDataTable)
End If