Menu

Connexion a ma base access protégé par mot de pass [Résolu]

Messages postés
105
Date d'inscription
lundi 3 juillet 2017
Dernière intervention
6 décembre 2018
- - Dernière réponse : pyrus2047
Messages postés
105
Date d'inscription
lundi 3 juillet 2017
Dernière intervention
6 décembre 2018
- 12 août 2018 à 15:13
Bonjour,
Depuis un userform dans un fichier excel j'utilise cette macro (Connecte_base_Access) pour la connexion a ma base access
je souhait protégé ma base access
Sub Connecte_base_Access()
Dim rs As Object
Dim Nom_Base, Chemin_Base, SQL, connstring

Set conn = CreateObject("ADODB.Connection")
Nom_Base = "pyrus2047_ListView-table-access.accdb"
Chemin_Base = ThisWorkbook.Path & "\" & Nom_Base
connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base
conn.Open connstring
End Sub

J'ai trouver ceci mais je ne parviens pas a l'adapter
 connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base;
Uid=Admin;Pwd="mot de passe";ExtendedAnsiSQL=1;

si vous avez une solution merci
Cordialement
Afficher la suite 

Votre réponse

1 réponse

Messages postés
23618
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
15 décembre 2018
0
Merci
Bonjour,
Un truc du genre
connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base & ";Uid=Admin;Pwd=mot de passe;ExtendedAnsiSQL=1;"


Cordialement, 
Jordane                                                                 
pyrus2047
Messages postés
105
Date d'inscription
lundi 3 juillet 2017
Dernière intervention
6 décembre 2018
-
Re merci beaucoup
Une histoire de guillemets enfin mon problème est résolu merci
Commenter la réponse de jordane45