Menu

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

pyrus2047 81 Messages postés lundi 3 juillet 2017Date d'inscription 5 octobre 2018 Dernière intervention - 12 août 2018 à 08:53 - Dernière réponse : pyrus2047 81 Messages postés lundi 3 juillet 2017Date d'inscription 5 octobre 2018 Dernière intervention
- 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

2 réponses

jordane45 22872 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 17 octobre 2018 Dernière intervention - Modifié par jordane45 le 12/08/2018 à 10:49
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 81 Messages postés lundi 3 juillet 2017Date d'inscription 5 octobre 2018 Dernière intervention - 12 août 2018 à 15:13
Re merci beaucoup
Une histoire de guillemets enfin mon problème est résolu merci
Commenter la réponse de jordane45