MS

app/DD_PM_Server/ClassDatabase.vb

@@ -0,0 +1,76 @@
+Imports System.Data.SqlClient
+
+Public Class ClassDatabase
+    Public Shared Function Execute_MSSQL(Sql As String)
+        Try
+            Dim Connection As SqlConnection
+            Connection = New SqlConnection(My.Settings.SQLConnection)
+            Dim Command As SqlCommand
+            Command = New SqlCommand(Sql, Connection)
+            ' Verbindung zur Datenbank aufbauen
+            Try
+                Connection.Open()
+            Catch ex As Exception
+                ClassLogger.Add("Fehler in Execute_MSSQL DB aufbauen - Fehler: " & ex.Message, False)
+                Connection.Close()
+                Return False
+            End Try
+
+            ' SQL ausführen
+            Command.ExecuteNonQuery()
+            Connection.Close()
+            Return True
+        Catch ex As Exception
+            ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
+            ClassLogger.Add("Unbekannter Fehler in Execute_MSSQL - Fehler: " & ex.Message, False)
+            ClassLogger.Add("## SQL  " & Sql, False)
+            Return False
+        End Try
+    End Function
+    Public Shared Function Execute_Scalar(Sql As String)
+        Try
+            Dim Connection As SqlConnection
+            Connection = New SqlConnection(My.Settings.SQLConnection)
+            Dim Command As SqlCommand
+            Command = New SqlCommand(Sql, Connection)
+            Dim result
+            ' Verbindung zur Datenbank aufbauen
+            Try
+                Connection.Open()
+            Catch ex As Exception
+                ClassLogger.Add("Fehler in Execute_MSSQL DB aufbauen - Fehler: " & ex.Message, False)
+                Connection.Close()
+                Return False
+            End Try
+
+            'SQL ausführen
+            result = Command.ExecuteScalar()
+            Connection.Close()
+            Return result
+        Catch ex As Exception
+            ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
+            ClassLogger.Add("Unbekannter Fehler in Execute_MSSQL - Fehler: " & ex.Message, False)
+            ClassLogger.Add("## SQL  " & Sql, False)
+            Return False
+        End Try
+    End Function
+    Public Shared Function Return_Datatable(Sql As String)
+        Try
+            Dim Connection As SqlConnection
+            Connection = New SqlConnection(My.Settings.SQLConnection)
+            Dim Command As SqlCommand
+            Command = New SqlCommand(Sql, Connection)
+
+
+            Dim adapter1 As SqlDataAdapter = New SqlDataAdapter(Command)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            Connection.Close()
+            Return dt
+        Catch ex As Exception
+            ClassLogger.Add("Unbekannter Fehler in Return_Datatable - Fehler: " & ex.Message, False)
+            ClassLogger.Add("## SQL  " & Sql, False)
+            Return Nothing
+        End Try
+    End Function
+End Class