MS_Initial

2015-07-07 13:04:46 +02:00
commit 7f0028d22c
123 changed files with 63075 additions and 0 deletions
--- a/Global_Indexer/ClassDatabase.vb
+++ b/Global_Indexer/ClassDatabase.vb
@@ -0,0 +1,108 @@
+Imports Oracle.ManagedDataAccess.Client
+Public Class ClassDatabase
+    Private Shared SQLSERVERConnectionString As String
+    Private Shared OracleConnectionString As String
+    Public Shared Function Init()
+        Try
+            SQLSERVERConnectionString = MyConnectionString
+            Dim SQLconnect As New SqlClient.SqlConnection
+            SQLconnect.ConnectionString = SQLSERVERConnectionString
+            SQLconnect.Open()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            ClassLogger.Add("Fehler bei DatabaseInit: " & 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)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = SQLSERVERConnectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+
+            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+            Return dt
+        Catch ex As Exception
+            If userInput = True Then
+                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)
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = SQLSERVERConnectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            If userInput = True Then
+                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)
+         
+            Return False
+        End Try
+    End Function
+    Public Shared Function Execute_Scalar(cmdscalar As String, ConString As String, Optional userInput As Boolean = False)
+        Dim result
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = ConString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return result
+        Catch ex As Exception
+            If userInput = True Then
+                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)
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
+        Dim result
+        Try
+            Dim SQLconnect As New OracleConnection
+            Dim SQLcommand As New OracleCommand
+            SQLconnect.ConnectionString = OracleConnection
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return result
+        Catch ex As Exception
+            ClassLogger.Add("Fehler bei OracleExecute_Scalar: " & ex.Message, True)
+            ClassLogger.Add("SQL: " & cmdscalar, False)
+            Return Nothing
+        End Try
+    End Function
+End Class