Imports System.Data.OleDb
Imports System.Configuration

Public Class Db

    'deze methode zal geactiveerd worden bij insert/delete/update-statements
    Public Shared Sub ExecuteSQL(ByVal naamConnectionString As String, ByVal sSQL As String, ByVal ParamArray parameters() As OleDbParameter)

        Dim oCommand As OleDbCommand = GetCommand(naamConnectionString, sSQL, parameters)
        Try
            oCommand.ExecuteNonQuery()
        Catch ex As Exception
            Throw ex        'Fout terug opwerpen naar de aanroepende klasse
        Finally
            oCommand.Connection.Close()     'connectie ALTIJD sluiten
        End Try


    End Sub

    'deze functie geeft het overeenkomstig commando-object terug
    Public Shared Function GetCommand(ByVal naamConnectionString As String, ByVal sSQL As String, ByVal ParamArray parameters() As OleDbParameter) As OleDbCommand

        Dim oConnection As OleDbConnection = GetConnection(naamConnectionString)
        Dim oCommand As New OleDbCommand(sSQL, oConnection)
        oCommand.CommandText = sSQL

        'parameters ook toevoegen aan oCommand
        For Each oPar As OleDbParameter In parameters
            oCommand.Parameters.Add(oPar)

        Next

        Return oCommand

    End Function

    'deze functie geeft een connectie met de database terug
    Public Shared Function GetConnection(ByVal naamConnectionString As String) As OleDbConnection

        Dim sConnectionString = GetConnectionString(naamConnectionString)
        Dim oConnection As New OleDbConnection(sConnectionString)
        oConnection.Open()

        Return oConnection

    End Function

    'gaat de connectionstring in het app.config bestand gaan opzoeken en terug geven
    Public Shared Function GetConnectionString(ByVal naamConnectionString As String) As String

        Dim oSettings As ConnectionStringSettings = ConfigurationManager.ConnectionStrings(naamConnectionString)
        Dim sConnectiestring As String = oSettings.ConnectionString

        Return sConnectiestring

    End Function

    'deze functie wordt gebruikt voor SELECT-statements
    Public Shared Function Getreader(ByVal naamConnectionString As String, ByVal sSQL As String, ByVal ParamArray parameters() As OleDbParameter) As OleDbDataReader

        Dim oCommand As OleDbCommand = GetCommand(naamConnectionString, sSQL, parameters)
        Dim oReader As OleDbDataReader = oCommand.ExecuteReader()

        Return oReader

    End Function
End Class