Ouvrir une BD avec PassWord

Question

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.

cs_Frans · Answer

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

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

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)

Ouvrir une BD avec PassWord

3 réponses

Discussions similaires