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

MS 19.08

Browse Source
This commit is contained in:
SchreiberM
2015-08-19 14:36:21 +02:00
parent 1910ac0a74
commit 524552a2da
25 changed files with 3961 additions and 3397 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Global_Indexer/ClassDatabase.vb
View File

@@ -11,12 +11,12 @@ Public Class ClassDatabase
SQLconnect.Close()
Return True
Catch ex As Exception
ClassLogger.Add("Fehler bei DatabaseInit: " & ex.Message, True)
ClassLogger.Add("Fehler bei Database-Init: " & ex.Message, True)
Return False
End Try
End Function
<System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Security", "CA2100:SQL-Abfragen auf Sicherheitsrisiken überprüfen")> Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False)
Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
@@ -35,7 +35,7 @@ Public Class ClassDatabase
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Fehler bei Return_Datatable: " & ex.Message, True)
ClassLogger.Add("SQL: " & Select_anweisung, False)
ClassLogger.Add("#SQL: " & Select_anweisung, False)
Return Nothing
End Try
End Function
@@ -57,7 +57,7 @@ Public Class ClassDatabase
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True)
ClassLogger.Add("SQL: " & ExecuteCMD, False)
ClassLogger.Add("#SQL: " & ExecuteCMD, False)
Return False
End Try
@@ -81,7 +81,7 @@ Public Class ClassDatabase
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Fehler bei Execute_Scalar: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False)
ClassLogger.Add("#SQL: " & cmdscalar, False)
Return Nothing
End Try
End Function
@@ -101,7 +101,7 @@ Public Class ClassDatabase
Return result
Catch ex As Exception
ClassLogger.Add("Fehler bei OracleExecute_Scalar: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False)
ClassLogger.Add("#SQL: " & cmdscalar, False)
Return Nothing
End Try
End Function