CommentCaMarche
Recherche
Posez votre question Signaler

Connexion base de données access avec VB.net

mahdi - Dernière réponse le 20 nov. 2011 à 23:32
Bonjour,
J'ai besoin de vos aides. J'ai une base de données Access à travers laquelle j'ai voulu la connecter avec visual basic. net et j'ai pas réussi de le faire je vous remercie tous le monde qui s'intéresse de cette question.
(Adresse mail supprimée, Modération CCM).
Lire la suite 
Réponse
+40
moins plus
voilà un exemple de connexion tu peux l'utiliser dans ton projet ..


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
salam- 31 mai 2009 à 14:19
mon amie votre code est correct mais est que tu peut donne le code de mode connecte car mais des problemes de l'enregistrement a la base de donnee et merci
Répondre
lyvo- 14 sept. 2010 à 05:54
pourquoi on est oblige de dire System.Data.OleDb.OleDbConnection()
car on a deja importer le package
Répondre
kawtar- 22 oct. 2011 à 21:57
bonjour
merci ton code est correct c'est parfis vraiment merci à vous.
Répondre
Jok- 19 nov. 2011 à 17:17
Ben avec VB 2010 Express, j'ai un problème :

(Outre 2 variables inutilisées dans la fonction (StrConnect) et (requete)



End Function est souligné et le message suivant s'affiche :


Avertissement 1 : La fonction 'access' ne retourne pas une valeur pour tous les chemins de code. Une exception: de référence null peut se produire au moment de l'exécution lorsque le résultat est utilisé.

Débutant en VB 2010 (ex développeur en VB6) je suis un peu paumé...

J'ai bien pigé comment passer le chemin d'accès pour se connecter à la base depuis une Form Ex :
Dim CheminBase As String
CheminBase = "C:\_DATA\BASE.mdb"
Call connection(CheminBase)


En revanche, je suis paumé pour créer le passage des paramètres à la fonction (qui pose un PB en VB 2010 Express) depuis la Form ???

DataSet
OleDbDataAdapter
OleDbCommand

On fait QUOI avec depuis la Form ???

Comment fait-on pour récupérer dans un DataGridView1 un truc du genre :
Select *.* Where TABLE = MaTable FROM Champ MACHIN = `Truc' ORDER BY `NOM ASC


Merci de votre aide.
Répondre
Jok- 20 nov. 2011 à 23:32
C'est bon, avec qq modifs, j'ai trouvé comment faire :-)
Répondre
Ajouter un commentaire
Réponse
+1
moins plus
vois un peu ceci

connexion access visual basic
Ajouter un commentaire
Réponse
+1
moins plus
met ce code dans la chaine de connection et ça va marcher
"Provider=Microsoft.Jet.OLEDB.4.0;Data source=le lien de la base .mdb "

et bonne courage
Ajouter un commentaire
Réponse
-1
moins plus
pierrem- 14 mai 2011 à 15:55
merci de me dire comment lier une BDD sous ACCESS 2010 ? le gestionnaire de données ne propose que la fragmentation de données !
Répondre
Ajouter un commentaire
Ce document intitulé «  connexion base de données access avec VB.net  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

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.

Le fait d'être membre vous permet d'avoir des options supplémentaires.