Ouvrir une BD avec PassWord

Question

Sujet Précédent Sujet Suivant

Ouvrir une BD avec PassWord

Signaler

gwiwi

Messages postés: 127
Date d'inscription: lundi 8 juillet 2002
Statut: Membre
Dernière intervention: 4 janvier 2007

- 3 sept. 2002 à 12:04
ragnagnac

Messages postés: 36
Date d'inscription: mercredi 10 juillet 2002
Statut: Membre
Dernière intervention: 3 septembre 2002

- 3 sept. 2002 à 14:57

Comment ouvrir dans VB une base de donnée Acces avec un mot de passe ????

Pour info, j'ouvre la base comme suit

Set DatabaseF = DBEngine.Workspaces(0).OpenDatabase(CheminBase)

Merci de votre aide car j'ai essayé diverses options pour caser le password mais tjrs ko.

A voir également:

Ouvrir une BD avec PassWord
Ouvrir une BD avec un mot de passe ✓ - Forum - Visual Basic
Connexion ado sur bd access protégée par password - Codes sources - Visual Basic / VB.NET (Base de Donnees)
Fichier jnlp ne s'ouvre pas ✓ - Forum - Java
Access bd - Conseils pratiques - Visual Basic / VB.NET
Vba copier une feuille dans un autre classeur sans ouvrir - Forum - Visual Basic

3 réponses

Posez votre question

cs_Frans · Answer 1 · 2002-09-03T13:21:47+0200

Salut,
Tu peux essayer de cette maniere :

Set pcnc_Main = New ADODB.Connection
pcnc_Main.CursorLocation = adUseClient
pcnc_Main.Mode = adModeReadWrite + adModeShareDenyNone
pcnc_Main.Provider = str_Provider
pcnc_Main.ConnectionString = "Data Source=" & str_DataSource
pcnc_Main.Open , str_User, str_Password

où str_User contient le nom d'utilisateur et str_password, le password.
Je ne l'ai jamais testé (ds mon application, le user est admin et le password est vide) mais il n'y a pas de raisn que ca n'aille pas.
A+

ragnagnac · Answer 2 · 2002-09-03T14:57:02+0200

Réponse 2 / 3

ragnagnac

Messages postés: 36
Date d'inscription: mercredi 10 juillet 2002
Statut: Membre
Dernière intervention: 3 septembre 2002

3 sept. 2002 à 14:57

Sinon :

Set DatabaseF = DBEngine.Workspaces(0).OpenDatabase("Name", , , "MsAccess;DATABASE=C:\XXX;UID=YYY;PWD=ZZZZ")

C'était vraiment très intéressant... :big) MythoMAN dans une autre vie ! :clown)

ragnagnac · Answer 3 · 2002-09-03T14:57:13+0200

Réponse 3 / 3

ragnagnac

Messages postés: 36
Date d'inscription: mercredi 10 juillet 2002
Statut: Membre
Dernière intervention: 3 septembre 2002

3 sept. 2002 à 14:57

Sinon :

Set DatabaseF = DBEngine.Workspaces(0).OpenDatabase("Name", , , "MsAccess;DATABASE=C:\XXX;UID=YYY;PWD=ZZZZ")

C'était vraiment très intéressant... :big) MythoMAN dans une autre vie ! :clown)

Votre réponse