AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS v2.0

Browse Source
This commit is contained in:
SchreiberM
2019-11-29 14:35:20 +01:00
parent 7e541a8013
commit 2c5f1e4aea
49 changed files with 9759 additions and 3658 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@@ -73,13 +73,10 @@ Public Class ClassDatabase
SQLconnect.Close()
Return dt
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn($"Unexpected Error in Return_Datatable: {ex.Message} [{Select_anweisung}]")
If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
Clipboard.SetText("Error: " & ex.Message & vbNewLine & "SQL: " & Select_anweisung)
LOGGER.Info("Fehler bei Return_Datatable: " & ex.Message, True)
LOGGER.Info("#SQL: " & Select_anweisung, False)
Return Nothing
End Try
End Function
@@ -100,12 +97,10 @@ Public Class ClassDatabase
oSQLconnect.Close()
Return oReturnDatatable
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn($"Unexpected Error in Return_Datatable_ConId: {ex.Message} [{SQLCommand}]")
If userInput = True Then
MsgBox("Error in Return_Datatable_ConId - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & SQLCommand, MsgBoxStyle.Critical)
End If
LOGGER.Info("Fehler bei Return_Datatable_ConId: " & ex.Message, True)
LOGGER.Info("#SQL: " & SQLCommand, False)
Return Nothing
End Try
End Function
@@ -125,12 +120,10 @@ Public Class ClassDatabase
oSQLconnect.Close()
Return oReturnDatatable
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn($"Unexpected Error in Return_Datatable_ConStr: {ex.Message} [{SQLCommand}]")
If userInput = True Then
MsgBox("Error in Return_Datatable_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & SQLCommand, MsgBoxStyle.Critical)
End If
LOGGER.Info("Fehler bei Return_Datatable_ConStr: " & ex.Message, True)
LOGGER.Info("#SQL: " & SQLCommand, False)
Return Nothing
End Try
End Function