Imports System.Data.OleDb
Imports System.Configuration
Imports System.Data.SqlClient

Public Class Database

    Public Shared Function GetConnectionString(ByVal name As String) As String
        Dim connectionSettings As ConnectionStringSettings = ConfigurationManager.ConnectionStrings(name)
        Dim connectionstring As String = connectionSettings.ConnectionString

        Return connectionstring
    End Function

    Public Shared Function GetConnection(ByVal name As String) As OleDbConnection
        Dim connection As New OleDb.OleDbConnection(GetConnectionString(name))
        connection.Open()
        Return connection
    End Function

    Public Shared Function GetCommand(ByVal name As String, ByVal sql As String, ByVal ParamArray pars() As OleDbParameter) As OleDbCommand
        Dim connection As OleDbConnection = GetConnection(name)
        Dim command As OleDbCommand = connection.CreateCommand
        command.CommandText = sql
        'loop om parameters toe te voegen
        Return command


    End Function

    Public Shared Sub ExecuteNonQuery(ByVal name As String, ByVal sql As String, ByVal ParamArray pars() As OleDbParameter)

    End Sub

    Public Shared Function getDatareader(ByVal name As String, ByVal sql As String, ByVal ParamArray pars() As OleDbParameter) As OleDbDataReader
        Dim command As OleDbCommand = GetCommand(name, sql, pars)
        Return command.ExecuteReader
    End Function
End Class