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

MS V2.7 .Net Logger etc

Browse Source
This commit is contained in:
SchreiberM
2021-06-15 16:28:55 +02:00
parent e2619eb3ad
commit e796ae91cb
109 changed files with 295499 additions and 8793 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
app/DD-Record-Organizer/ClassDatabase.vb
View File

@@ -14,7 +14,7 @@ Public Class ClassDatabase
SQLconnect.Close()
Return True
Catch ex As Exception
ClassLogger.Add("Error in DatabaseInit: " & ex.Message, True)
LOGGER.Warn("Error in DatabaseInit: " & ex.Message)
Return False
End Try
End Function
@@ -52,15 +52,15 @@ Public Class ClassDatabase
Dim conn As New OdbcConnection("dsn=" & DTConnection.Rows(0).Item("SERVER") & ";uid=" & DTConnection.Rows(0).Item("USERNAME") & ";pwd=" + DTConnection.Rows(0).Item("PASSWORD"))
connectionString = conn.ConnectionString
Case Else
ClassLogger.Add(" - ConnectionType nicht integriert", False)
LOGGER.Warn("ConnectionType nicht integriert")
MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
End Select
Else
ClassLogger.Add(" No entry for Connection-ID: " & id.ToString, True)
LOGGER.Warn(" No entry for Connection-ID: " & id.ToString)
End If
Catch ex As Exception
ClassLogger.Add(" - Error in bei GetConnectionString - Fehler: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Error in bei GetConnectionString - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
End Try
Return connectionString
@@ -84,7 +84,7 @@ Public Class ClassDatabase
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
SQLcommand.CommandTimeout = 180
SQLcommand.CommandTimeout = 360
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
@@ -96,9 +96,9 @@ Public Class ClassDatabase
Return dt
Catch ex As Exception
MsgBox("Error in Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", ex.Message & " - SQL: " & Select_anweisung)
ClassLogger.Add("Error in Return_Datatable: " & ex.Message, True)
ClassLogger.Add(">> SQL: " & Select_anweisung, False)
' ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", ex.Message & " - SQL: " & Select_anweisung)
LOGGER.Warn("Error in Return_Datatable: " & ex.Message)
LOGGER.Warn("SQL: " & Select_anweisung)
If (ex.Message.Contains("Ungültiger Objektname") Or ex.Message.Contains("Invalid Object Name")) And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MsgBox("A database-object could not be found but synchronization of Proxyserver might be in action! So please try again in a few seconds/minutes!", MsgBoxStyle.Exclamation)
End If
@@ -136,7 +136,7 @@ Public Class ClassDatabase
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in MSSQL_ReturnDTWithConnection: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql)
LOGGER.Warn("Unexpected Error in MSSQL_ReturnDTWithConnection: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql)
MsgBox("Unexpected Error in MSSQL_ReturnDTWithConnection:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql, MsgBoxStyle.Critical)
Return Nothing
End Try
@@ -164,8 +164,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Error in Return_Datatable_CS: " & ex.Message, True)
ClassLogger.Add("#SQL: " & Select_anweisung, False)
LOGGER.Warn("Error in Return_Datatable_CS: " & ex.Message)
LOGGER.Warn("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function
@@ -199,8 +199,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return_Datatable_Connection - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Error in Return_Datatable_Connection: " & ex.Message)
ClassLogger.Add("#SQL: " & Select_anweisung)
LOGGER.Warn("Error in Return_Datatable_Connection: " & ex.Message)
LOGGER.Warn("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function
@@ -231,8 +231,8 @@ Public Class ClassDatabase
'If Userinput = True Then
' MsgBox("Error in Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
'End If
ClassLogger.Add("Error in Execute_non_Query: " & ex.Message)
ClassLogger.Add("SQL: " & ExecuteCMD)
LOGGER.Warn("Error in Execute_non_Query: " & ex.Message)
LOGGER.Warn("SQL: " & ExecuteCMD)
Return False
End Try
@@ -266,8 +266,8 @@ Public Class ClassDatabase
End If
Catch ex As Exception
ClassLogger.Add("Error in Execute_non_Query_withConn: " & ex.Message, True)
ClassLogger.Add("SQL: " & ExecuteCMD, False)
LOGGER.Warn("Error in Execute_non_Query_withConn: " & ex.Message)
LOGGER.Warn("SQL: " & ExecuteCMD)
Return False
End Try
End Function
@@ -294,8 +294,8 @@ Public Class ClassDatabase
Catch ex As Exception
ClassLogger.Add("Error in Execute_non_Query_withConnString: " & ex.Message, True)
ClassLogger.Add("SQL: " & ExecuteCMD, False)
LOGGER.Warn("Error in Execute_non_Query_withConnString: " & ex.Message)
LOGGER.Warn("SQL: " & ExecuteCMD)
Return False
End Try
End Function
@@ -318,8 +318,8 @@ Public Class ClassDatabase
If Userinput = True Then
MsgBox("Error in Execute_non_Query_Async: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Error in Execute_non_Query_Async: " & ex.Message, True)
ClassLogger.Add("SQL: " & ExecuteCMD, False)
LOGGER.Warn("Error in Execute_non_Query_Async: " & ex.Message)
LOGGER.Warn("SQL: " & ExecuteCMD)
Finally
SQLcommand.Dispose()
SQLconnect.Close()
@@ -330,7 +330,7 @@ Public Class ClassDatabase
Dim command As SqlClient.SqlCommand = CType(result.AsyncState, SqlClient.SqlCommand)
Dim res = command.EndExecuteNonQuery(result)
ClassLogger.Add(String.Format("Finished executing Async database operation: {0}", command.CommandText), False)
LOGGER.Warn(String.Format("Finished executing Async database operation: {0}", command.CommandText))
End Sub
Public Shared Function Execute_Scalar(cmdscalar As String, Optional USE_PROXY As Boolean = False)
@@ -364,8 +364,8 @@ Public Class ClassDatabase
'If Userinput = True Then
' MsgBox("Error in Execute_Scalar: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
'End If
ClassLogger.Add("Error in Execute_Scalar: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False)
LOGGER.Warn("Error in Execute_Scalar: " & ex.Message)
LOGGER.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
End Function
@@ -390,13 +390,13 @@ Public Class ClassDatabase
Return result
Else
MsgBox("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar, MsgBoxStyle.Exclamation)
ClassLogger.Add("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar)
LOGGER.Warn("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar)
Return Nothing
End If
Catch ex As Exception
ClassLogger.Add("Error in Execute_ScalarWithConnection: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False)
LOGGER.Warn("Error in Execute_ScalarWithConnection: " & ex.Message)
LOGGER.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
End Function
@@ -417,8 +417,8 @@ Public Class ClassDatabase
SQLconnect.Close()
Return result
Catch ex As Exception
ClassLogger.Add("Error in Execute_ScalarWithConnectionString: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False)
LOGGER.Warn("Error in Execute_ScalarWithConnectionString: " & ex.Message)
LOGGER.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
End Function
@@ -438,8 +438,8 @@ Public Class ClassDatabase
SQLconnect.Close()
Return result
Catch ex As Exception
ClassLogger.Add("Error in OracleExecute_Scalar: " & ex.Message, True)
ClassLogger.Add("#SQL: " & cmdscalar, False)
LOGGER.Warn("Error in OracleExecute_Scalar: " & ex.Message)
LOGGER.Warn("#SQL: " & cmdscalar)
Return Nothing
End Try
End Function
@@ -460,8 +460,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Error in OracleExecute_non_Query: " & ex.Message, True)
ClassLogger.Add("#SQL: " & ExecuteCMD, False)
LOGGER.Warn("Error in OracleExecute_non_Query: " & ex.Message)
LOGGER.Warn("#SQL: " & ExecuteCMD)
Return False
End Try
@@ -485,8 +485,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Error in Oracle_Return_Datatable: " & ex.Message, True)
ClassLogger.Add("#SQL: " & Select_anweisung, False)
LOGGER.Warn("Error in Oracle_Return_Datatable: " & ex.Message)
LOGGER.Warn("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function