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