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

ms

Browse Source
This commit is contained in:
SchreiberM
2021-07-13 17:24:31 +02:00
parent 2d8f5fe192
commit 2936b1fcbd
145 changed files with 94345 additions and 118148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -32,13 +32,13 @@ Public Class clsDatabase
Try
WM_DRIVE = DT_ECM_BASE_CONFIG.Rows(0).Item("WM_DRIVE")
Catch ex As Exception
Logger.Warn("WM_DRIVE not part of DT_ECM_BASE_CONFIG: " & ex.Message)
Logger.Error("WM_DRIVE not part of DT_ECM_BASE_CONFIG: " & ex.Message)
WM_DRIVE = "W"
End Try
Logger.Debug("Database initialized")
Return True
Catch ex As Exception
Logger.Warn("Unexpected Error in DatabaseInit: " & ex.Message)
Logger.Error("Unexpected Error in DatabaseInit: " & ex.Message)
Return False
End Try
End Function
@@ -61,7 +61,7 @@ Public Class clsDatabase
SQLconnect.Close()
Return dt
Catch ex As Exception
Logger.Warn("Unexpected Error in Return_Datatable: " & ex.Message)
Logger.Error("Unexpected Error in Return_Datatable: " & ex.Message)
Logger.Warn("SQL: " & Select_anweisung)
Return Nothing
End Try
@@ -83,7 +83,7 @@ Public Class clsDatabase
SQLconnect.Close()
Return dt
Catch ex As Exception
Logger.Warn("Unexpected Error in Return_DatatableCS: " & ex.Message)
Logger.Error("Unexpected Error in Return_DatatableCS: " & ex.Message)
Logger.Warn("SQL: " & Select_anweisung)
Return Nothing
End Try
@@ -102,7 +102,7 @@ Public Class clsDatabase
SQLconnect.Close()
Return True
Catch ex As Exception
Logger.Warn("Unexpected Error in Execute_non_Query: " & ex.Message)
Logger.Error("Unexpected Error in Execute_non_Query: " & ex.Message)
Logger.Warn("SQL: " & ExecuteCMD)
Return False
End Try
@@ -122,7 +122,7 @@ Public Class clsDatabase
SQLconnect.Close()
Return result
Catch ex As Exception
Logger.Warn("Unexpected Error Execute_Scalar: " & ex.Message)
Logger.Error("Unexpected Error Execute_Scalar: " & ex.Message)
Logger.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
@@ -142,7 +142,7 @@ Public Class clsDatabase
SQLconnect.Close()
Return result
Catch ex As Exception
Logger.Warn("Unexpected Error Execute_Scalar_CS: " & ex.Message)
Logger.Error("Unexpected Error Execute_Scalar_CS: " & ex.Message)
Logger.Warn("SQL: " & cmdscalar)
Return Nothing
End Try