Connexion à une base de données Access
Contenu du snippet
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()
Compatibilité : VB 2005, VB.NET 1.x
Disponible dans d'autres langages :
A voir également
- Connexion à une base de données Access
- Connexion base de données - Conseils pratiques -PHP
- Base de données javascript - Conseils pratiques -Javascript
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Restauration base de données sql server ✓ - Forum SQL
- Exemple base de données access gestion du personnel - Forum Visual Basic
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.