OVH Cloud OVH Cloud

automatisation d'une base sécurisée

1 réponse
Avatar
JS
Dans la s=E9rie des questions fun sur la s=E9curisation=20
auxquelles personne ne r=E9pond:

Je suis dans la base1.mdb, jointe au bon fichier mdw et=20
logu=E9 sous un utilisateur disposant des privil=E8ges de=20
lecture/ouverture/execution

Le code

Dim appDist As New Application
appDist.OpenCurrentDatabase pathBaseDist

donne l'erreur "7866 : Imposible d'ouvrir la BDD car celle=20
ci est manquante ou a =E9t=E9 ouverte en mode exlcusif"

Evidemment si pathbaseDist pointe sur une base non=20
s=E9curis=E9e, cel=E0 marche.

J'espere que quelqu'un sait comment faire, sinon je vais=20
encore devoir lancer des Shell dans tous les sens

Merci
J

1 réponse

Avatar
Benoit Compoint
Bonjour,

Si j'ai bien compris, la base distante n'est pas sécurisée par un simple mot
de passe, mais par une sécurité définie au niveau des utilisateurs (définis
dans un fichier MDW).
Dans ce cas il faut passer par la fonction Shell. La base de connaissances
Microsoft donne un exemple de code VBA :
http://support.microsoft.com/default.aspx?scid=KB;FR;192919

Benoît Compoint.

"JS" wrote in message
news:018301c356b0$067d1780$
Dans la série des questions fun sur la sécurisation
auxquelles personne ne répond:

Je suis dans la base1.mdb, jointe au bon fichier mdw et
logué sous un utilisateur disposant des privilèges de
lecture/ouverture/execution

Le code

Dim appDist As New Application
appDist.OpenCurrentDatabase pathBaseDist

donne l'erreur "7866 : Imposible d'ouvrir la BDD car celle
ci est manquante ou a été ouverte en mode exlcusif"

Evidemment si pathbaseDist pointe sur une base non
sécurisée, celà marche.

J'espere que quelqu'un sait comment faire, sinon je vais
encore devoir lancer des Shell dans tous les sens

Merci
J