Public Class clsDatabase
    Private Shared connectionString As String

    Public Shared Function Init()
        Try
            connectionString = My.Settings.MyConnectionString
            Dim SQLconnect As New SqlClient.SqlConnection
            SQLconnect.ConnectionString = connectionString
            SQLconnect.Open()
            SQLconnect.Close()
            clsLogger.AddDetailLog("Database initialized")
            Return True
        Catch ex As Exception
            clsLogger.Add("Unexpected Error in DatabaseInit: " & ex.Message, True)
            Return False
        End Try
    End Function

    Public Shared Function Return_Datatable(Select_anweisung As String)
        Try
            Dim SQLconnect As New SqlClient.SqlConnection
            Dim SQLcommand As SqlClient.SqlCommand
            SQLconnect.ConnectionString = connectionString
            SQLconnect.Open()
            SQLcommand = SQLconnect.CreateCommand
            SQLcommand.CommandText = Select_anweisung
            SQLcommand.CommandTimeout = 240

            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
            clsLogger.Add("Unexpected Error in Return_Datatable: " & ex.Message, True)
            clsLogger.Add("##SQL-Return_Datatable: " & Select_anweisung, False)
            Return Nothing
        End Try
    End Function
    Public Shared Function Execute_non_Query(ExecuteCMD As String)
        Try
            Dim SQLconnect As New SqlClient.SqlConnection
            Dim SQLcommand As SqlClient.SqlCommand
            SQLconnect.ConnectionString = connectionString
            SQLconnect.Open()
            SQLcommand = SQLconnect.CreateCommand
            SQLcommand.CommandTimeout = 240
            'Update Last Created Record in Foo
            SQLcommand.CommandText = ExecuteCMD
            SQLcommand.ExecuteNonQuery()
            SQLcommand.Dispose()
            SQLconnect.Close()
            Return True
        Catch ex As Exception
            clsLogger.Add("Unexpected Error in Execute_non_Query: " & ex.Message, True)
            clsLogger.Add("###############################", False)
            clsLogger.Add("##SQL-Execute_non_Query: " & ExecuteCMD, False)
            clsLogger.Add("###############################", False)
            Return False
        End Try
    End Function
    Public Shared Function Execute_Scalar(cmdscalar As String)
        Dim result
        Try
            Dim SQLconnect As New SqlClient.SqlConnection
            Dim SQLcommand As SqlClient.SqlCommand
            SQLconnect.ConnectionString = connectionString
            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
            clsLogger.Add("Unexpected Error ExecuteScalar: " & ex.Message, True)
            clsLogger.Add("###############################", False)
            clsLogger.Add("##SQL-ExecuteScalar: " & cmdscalar, False)
            clsLogger.Add("###############################", False)
            Return Nothing
        End Try
    End Function
End Class