Access et vb.net

Soyez le premier à donner votre avis sur cette source.

Snippet vu 51 206 fois - Téléchargée 34 fois

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

Ajouter un commentaire

Commentaires

Messages postés
8
Date d'inscription
lundi 21 juin 2010
Statut
Membre
Dernière intervention
21 octobre 2010

salut tout le monde moi j'ai posté un code gestion pharmacie jeté zi un œil svp mais mon problème de toujours c'est de ne pas pouvoir visualiser les enregistrements fais dans l'application au niveau de la base de données au quelle je l'ai connecté. merci de m'aider je galère trop
Messages postés
2
Date d'inscription
dimanche 9 avril 2006
Statut
Membre
Dernière intervention
23 juin 2010

Merci 000 ,j'avais un souci pour faire une connxion avec un bd access verouillée par un mot de passe , a chaque fois il me lance "... fichier en mode exclusif...",(pour faire un mot de pass a une bd access faut passer par mode exclusif) , mais j'ai ajouté "Jet OLEDB:Database Password= MotdePasse;" et ca marche bien.
merci bcp
Messages postés
132
Date d'inscription
mercredi 6 mars 2002
Statut
Membre
Dernière intervention
27 novembre 2012
1
Tout juste ce qu'il me fallais pour commencer a travailler ... Merci a toi (vous)

j'ai mis une demi journée a comprendre les mecanismes ODBC avec les activeX sous VB6. Là ca fait 2 jours que je galere. Faute de resultat je me decide enfin a requerir de l'aide... Heureusement que vous etes passé par la avant moi <smiley>. Certains disent que c'est plus facile avec dotnet... je dois etre trop mauvais !

Bon ben je vais continuer sur ces bases. Mais j'ai pas tout compris. Oh joie, bonheur de la programmation.
Messages postés
1
Date d'inscription
dimanche 13 mai 2007
Statut
Membre
Dernière intervention
13 mai 2007

Messages postés
2
Date d'inscription
mercredi 5 avril 2006
Statut
Membre
Dernière intervention
1 juin 2006

bonjour
je suis en stage dans un centre de reéducation ,mon travail est de realiser une connexion avec une base de données en access j'avais utilisé votre code pour connection et déconnection mais j'ai un message d'execption qui dit impossible d'etablir la connexion à la base .la refernce d'objet n'est pas définie à une instance d'un objet
est ce que vous pouvez m'aider
d'autre part j'ai utilisé ADO pour faire la communication avec ma base de donnés et le prgramme en VB.net mon but est de chercher le nom de chaque patient pas le numero pour savoir si il est deja inscrit dans ma base ou non, le probleme c'est que je peux selectionnée la colonnes ou se trouve les noms des patients dans ma base a partir de mon code et la position ou l'ordre de chaque ligne mais pas le nom de patient
Me.objFichePatient.FichePatient.NomColumn mais pas au données qui sont dans ce colone
si vous pouvez m'aider sera vraiment sympa ,ça fait plus d'une semaine que je suis dans ce pb merci d'avance
Afficher les 29 commentaires

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.