Connexion à une base de données access avec vba - Vie pratique - Discussions
MarshPosté le 01-03-2012 à 22:21:01
bonjour tt le monde j voulais exécuter un code vba qui me permet de me sonnecter a une base de données access
voici mon code
Dim db As Database Private Sub Commande6_Click()
'Déclaration de la variable de connexion Dim cnx As ADODB.Connection Set cnx = New ADODB.Connection
'Définition du pilote de connexion cnx.Provider = "Microsoft.Jet.Oledb.4.0" 'Définition de la chaîne de connexion Set db = OpenDatabase("C:\base de données1.mdb" ) 'Ouverture de la base de données
cnx.Open MsgBox ("connexion reussi" )
End Sub
sauf ke ca bug ca m'affiche comme message echec de l'authentification au niveau de cnx.open aidez moi svp
Marsh Posté le 01-03-2012 à 22:21:01
bonjour tt le monde
j voulais exécuter un code vba qui me permet de me sonnecter a une base de données access
voici mon code
Dim db As Database
Private Sub Commande6_Click()
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
Set db = OpenDatabase("C:\base de données1.mdb" )
'Ouverture de la base de données
cnx.Open
MsgBox ("connexion reussi" )
End Sub
sauf ke ca bug ca m'affiche comme message echec de l'authentification au niveau de cnx.open
aidez moi svp