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