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