Access et vb.net

Commenter

Contenu du snippet

Du déja vu mé bien pratique!
Voici la maniére de se connecter a une bd access avec vb.net
J'ai trouvé se code sur le net et je voulais en faire profiter tous le monde!
Voila c'est fait!!!

Source / Exemple : 


Imports System.Data.OleDb

'////////////////////////MODULE FONCTION ACCESS////////////////
Module bdaccess

    Dim MyConnection As New System.Data.OleDb.OleDbConnection()

    'procédure de connection a une bd access
    Public Sub connection(ByVal nombd As String)
        Try
            MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & nombd
            MyConnection.Open()
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try
    End Sub

    'deconenction de la base
    Public Sub deconnection()
        Try
            MyConnection.Close()
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try

    End Sub

    Public Function access(ByVal requetesql As String) As DataSet
        Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter()
        Dim MyDataSet As DataSet = New DataSet("MesDonnées")
        Dim StrConnect As String
        Dim MyCommand As OleDbCommand
        Dim requete As String

        Try
            MyCommand = New OleDbCommand(requetesql, MyConnection)
            MyAdapter.SelectCommand = MyCommand
            MyDataSet.Clear()
            MyAdapter.Fill(MyDataSet, "fichier")
            'A ce niveau les donnes résultantes de la requete
            'se trouvent dans => MyDataSet.Tables(0)
            Return MyDataSet
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try

    End Function
End Module

Conclusion :


exemple d'appel de la fonction (la form doit contenir un objet DATAGRID: ici l'objet donnee)

connection("c:\bd.mdb")
'objet datagrid recevant le résultat de la requete
donnee.DataSource = access("select nom_fichier from fichier").Tables(0)
MsgBox("cliquez sur ok pour continuer")
donnee.DataSource = access("select num_facture from fichier").Tables(0)
deconnection()

A voir également

S'inscrire maintenant

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.

Du même auteur (fcampagne)