add logging
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user