This commit is contained in:
SchreiberM
2017-02-15 09:07:26 +01:00
parent a815c8ab5d
commit 81c3ebe35e
25 changed files with 7215 additions and 7503 deletions

View File

@@ -182,8 +182,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, True)
ClassLogger.Add("#SQL: " & Select_anweisung, False)
ClassLogger.Add("Error in Return_Datatable_Connection: " & ex.Message)
ClassLogger.Add("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function
@@ -214,8 +214,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, True)
ClassLogger.Add("SQL: " & ExecuteCMD, False)
ClassLogger.Add("Error in Execute_non_Query: " & ex.Message)
ClassLogger.Add("SQL: " & ExecuteCMD)
Return False
End Try
End Function