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

improve logging

Browse Source
This commit is contained in:
Jonathan Jenne
2021-08-09 13:27:27 +02:00
parent c761aabc79
commit 152b5157b8
6 changed files with 49 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
App/DigitalData.EMLProfiler/clsDatabase.vb
View File

@@ -38,7 +38,8 @@ Public Class clsDatabase
Logger.Debug("Database initialized")
Return True
Catch ex As Exception
Logger.Error("Unexpected Error in DatabaseInit: " & ex.Message)
Logger.Error(ex)
Logger.Warn("Unexpected Error in DatabaseInit: " & ex.Message)
Return False
End Try
End Function
@@ -61,7 +62,8 @@ Public Class clsDatabase
SQLconnect.Close()
Return dt
Catch ex As Exception
Logger.Error("Unexpected Error in Return_Datatable: " & ex.Message)
Logger.Error(ex)
Logger.Warn("Unexpected Error in Return_Datatable: " & ex.Message)
Logger.Warn("SQL: " & Select_anweisung)
Return Nothing
End Try
@@ -83,7 +85,8 @@ Public Class clsDatabase
SQLconnect.Close()
Return dt
Catch ex As Exception
Logger.Error("Unexpected Error in Return_DatatableCS: " & ex.Message)
Logger.Error(ex)
Logger.Warn("Unexpected Error in Return_DatatableCS: " & ex.Message)
Logger.Warn("SQL: " & Select_anweisung)
Return Nothing
End Try
@@ -102,7 +105,8 @@ Public Class clsDatabase
SQLconnect.Close()
Return True
Catch ex As Exception
Logger.Error("Unexpected Error in Execute_non_Query: " & ex.Message)
Logger.Error(ex)
Logger.Warn("Unexpected Error in Execute_non_Query: " & ex.Message)
Logger.Warn("SQL: " & ExecuteCMD)
Return False
End Try
@@ -122,7 +126,8 @@ Public Class clsDatabase
SQLconnect.Close()
Return result
Catch ex As Exception
Logger.Error("Unexpected Error Execute_Scalar: " & ex.Message)
Logger.Error(ex)
Logger.Warn("Unexpected Error in Execute_Scalar: " & ex.Message)
Logger.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
@@ -142,7 +147,8 @@ Public Class clsDatabase
SQLconnect.Close()
Return result
Catch ex As Exception
Logger.Error("Unexpected Error Execute_Scalar_CS: " & ex.Message)
Logger.Error(ex)
Logger.Warn("Unexpected Error in Execute_Scalar_CS: " & ex.Message)
Logger.Warn("SQL: " & cmdscalar)
Return Nothing
End Try