add logging

This commit is contained in:
Jonathan Jenne
2023-08-03 09:03:32 +02:00
parent 7f997f6802
commit c347ee7d55
2 changed files with 12 additions and 20 deletions

View File

@@ -297,6 +297,7 @@ Module ModuleMySettings
Catch ex As Exception
MsgBox("Error in LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
LOGGER.Error(ex)
LOGGER.Warn("Error in LoadMyConfig: " & ex.Message, True)
Return False
End Try
@@ -326,7 +327,7 @@ Module ModuleMySettings
table.TableName = "MyConfig"
' Create two columns, ID and Name.
Dim idColumn As DataColumn = table.Columns.Add("ID", _
Dim idColumn As DataColumn = table.Columns.Add("ID",
GetType(System.Int32))
idColumn.AutoIncrement = True
@@ -399,6 +400,7 @@ Module ModuleMySettings
LOGGER.Info("CreateConfigTable su...")
Return table
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
@@ -426,6 +428,7 @@ Module ModuleMySettings
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in SaveConfigValue" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -450,6 +453,7 @@ Module ModuleMySettings
Return False
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in Settings_LoadBasicConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try