Accueil > > > ACCESS ET VB.NET
ACCESS ET VB.NET
Information sur la source
Description
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
- 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
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()
Historique
- 12 août 2005 11:18:33 :
- Suite aux remarque faites, voici une correction du code
-Ajout d'une fonction de connection
-Ajout d'une fonction de déconnection
-Permet de faire plusieurs requetes toujours sur la même connection
- 12 août 2005 11:24:46 :
- _
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Refresh d'un datagrid sur vb avec connexion access [ par barjo ]
salutVoilà j'ai une base de donnée access et sous vb j'ai mis un datagrid afin de visualiser ce que j'ai dans une de mes table, ce qui fonctionne. Le
**********HELP - CONNEXION ET REQUETE VERS ACCESS EN DAO !!!!************** [ par pingwee ]
Je nouveau en programmation vb6, et je souhaiterai savoir si quelqu'un sait comment se connecter à une base excel en dao, et comment faire une requete
***********AIDE : CONNEXION A UNE BASE ACCESS 2000 en DAO************** [ par pingwee ]
lors de la connexion : Set db = dbworkspace.OpenDatabase("C:\mabase.mdb", ReadOnly = True)j'ai l'erreur "format de base de donnée ("C:\mabase.mdb")inc
Connexion ADO de excel VERS ACCESS help !! :'( [ par Metos ]
Sub Connexion() Deconnexion 'Au cas ou ! Objconn.Open "PROVIDER=MSDASQL.1;DSN=" & "TestADO", UserId:="", Password:="" Quel est le Provider
Table liée sous Access via connexion RNIS : au secours !!! [ par BELLIV ]
Bonjour,Bon voilà j'ai une application access 2000 qui contient des tables attachées sur une autre base de données Access MDB. Seulement entre l'appli
Visual basic excel et connexion a Access [ par matpal ]
Bonjour, je suis en stage et je dois faire du vb excel pour me connecter a une base access mais je n'ai jamais vu le vb :-((Alors si quelqu'un pouvait
Connexion Multiple VB->Access 2K [ par Cavo ]
Je n'arrive pas à connecté plusieurs utilisateurs sur une même base access,Aidez-moi SVP !!!
Changer le chemin de connexion d'une table liée sous Access, en code VBA [ par ragnagnac ]
Je dispose d'une application Access avec une base associée (CurrentDb), et certaines tables sont liées.Je voudrais, en code VBA, changer le chemin de
connexion access [ par chrissou ]
Je souhaiterais savoir comment se connecter à une base access 2000 ayant un mot de passe.connection.odbc Merci d'avance.
pb connexion access/vb : help me please [ par Cecile29 ]
1 Dim db As Database2 Dim rs As Recordset3 Set db = OpenDatabase("nomdemabase.mdb")4 Dim sql5 sql = "select * from matable where Nomchamp= '" & Me.Nom
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|