Imports System.Data.OleDb
Public Class Bd
Private Connection As System.Data.OleDb.OleDbConnection
Public Sub Open(ByVal FileName As String)
Connection = New System.Data.OleDb.OleDbConnection()
Connection.ConnectionString = "Provider=microsoft.jet.oledb.4.0;Data Source=" & FileName & ";"
Connection.Open()
End Sub
Public Function GetTable(ByVal Requete As String) As System.Data.DataTable
Try
Dim DtSet As New System.Data.DataSet()
Dim AdapTContact As New System.Data.OleDb.OleDbDataAdapter(Requete, Connection)
AdapTContact.Fill(DtSet, Chr(0))
Return DtSet.Tables(0)
Catch Err As System.Exception
Throw Err
End Try
End Function
Public Sub Close()
Connection.Close()
Connection.Dispose()
Connection = Nothing
End Sub
End Class
Example d'utilisation:
Dim Table As System.Data.DataTable
Dim Bd As New Bd()
Bd.Open("Chemin\De\Votre\BaseDeDonnee")
Table = Bd.GetTable("select * from NomDeVotreTable")
Bd.Close()