Discussion :

[pcvesoul]

Bonjour.

Par rapport au code ci-dessous, quels lignes dois-je rajouter pour ouvrir une base sécurisée, connaissant le chemin et le nom de la base "mdw", le nom et le mot de passe de l'administrateur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Con(1)Provider = "Microsoft.jet.oledb.4.0"
Con(1)Properties("Persist Security Info") = False
Con(1).Properties("User ID") = "Admin"
Con(1).Properties("Jet OLEDB:Database password") = "UserPass"
Con(1).Properties("data source") = Chemin & "\" & Base & ".mdb"
Con(1).Open

Merci beaucoup par avance.

[jacma]

Bonjour

Modifies ta chaîne de connexion en t'inspirant du code ci-dessous, dans lequel strGroupe contient le chemin du fichier de sécurité.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
strConnex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & txtCheminDB & ";" & _
                   "Jet OLEDB:System database=" & strGroupe

[pcvesoul]

Merci pour la réponse, mais il me dit : Compte ou mot de passe non valide.

Ou et comment dois-je placer ces infos ?

Merci d'avance.

[jacma]

Normalement comme suit, après la chaîne de connexion.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cn.Open ConnectionString:=strConnex, UserID:=txtUser, Password:=txtPass

PS: c'est bien :=

[pcvesoul]

OK, c'est bon. Merci pour ton aide.