Imports System

Module _DatabaseInterface

    Public Const TABLE_PERSONNEL As Byte = 0
    Public Const TABLE_CLIENT As Byte = 1
    Public Const TABLE_TUTEUR As Byte = 2
    Public Const TABLE_TRANSPORTER As Byte = 3
    Public Const TABLE_FRERESOEUR As Byte = 4
    Public Const TABLE_ECOLE As Byte = 5
    Public Const TABLE_DIAGNOSTIC As Byte = 6
    Public Const TABLE_MEDICAMENT As Byte = 7
    Public Const TABLE_POSOLOGIE As Byte = 8
    Public Const TABLE_ALLERGIE As Byte = 9
    Public Const TABLE_MAX As Byte = 10

    Public dataSet(TABLE_MAX) As DataSet
    Public db As New DatabaseInterface(dataSet, My.Settings.Default.PathDB)

End Module

Public Class DatabaseInterface

    Public connection As Data.OleDb.OleDbConnection



    Sub New(ByRef dataSet As Array, Optional ByVal dbName As String = "..\GrandioseProject.mdb", Optional ByVal provider As String = "Microsoft.Jet.OLEDB.4.0")

        Dim i As Byte
        For i = 0 To TABLE_MAX
            Select Case i
                Case 0
                    dataSet(i) = New DataSet
                    dataSet(i).DataSetName = "PersonneInterne"
                Case 1
                    dataSet(i) = New DataSet
                    dataSet(i).DataSetName = "Client"
                Case 2

            End Select
        Next
        connection = New Data.OleDb.OleDbConnection("Provider=" & provider & ";" & "Data Source=" & dbName)
        Try
            connection.Open()
        Catch exception As Exception
            Log(exception.Message)
        End Try

    End Sub

    Public Function execute(ByVal query As String, ByRef dataSet As DataSet) As Boolean

        If connection.State = ConnectionState.Open Then
            Try
                'Dim queryResult As New Data.OleDb.OleDbCommand(query, connection)
                Dim adapter As New Data.OleDb.OleDbDataAdapter(query, connection)
                adapter.Fill(dataSet, dataSet.DataSetName)
                Log("DataBaseInterface.excute(" & query & "," & dataSet.DataSetName & ")", 1)
                Return True
            Catch exception As Exception
                Log(exception.Message)
            End Try
            Return False
        Else
            Log("Connection To Database Status:" & connection.State, 0, 1)
        End If

    End Function

    Protected Overrides Sub Finalize()

    End Sub
End Class