Connexion à une base de données Access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 51 105 fois - Téléchargée 7 fois

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

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.