Droits sur une base Access [Résolu]

[Louis-Guillaume Morand]

Bonjour,

J'imagine que je probleme est tout con mais il me saoule depuis quatre semaines.

Soit A une société possédant une appli access (donnee.mdb) avec des forms (forms.mdb) et un fichier mdw avec les comptes. Lorsqu'on ouvre le fichier Access, on doit utiliser une paire de credentials du fichier mdw. normal.

Maintenant, moi je ne veux que le fichier Donnee.mdb SANS le reste. Je l'envoi donc sur ma machine et je l'ouvre. Deja c'est un fichier Acc2003 et j'ai Acc2007.
Ensuite je peux ouvrir n'importe quelle table et voir les données qu'elles contiennent car je suis loggué en tant qu'utilisateur "Admin".

Le probleme, c'est que j'ai une appli web qui tape dessus SANS credentials et donc utilise aussi le compte Admin mais là, ca me dit clairement que je n'ai pas les droits de "read" la table. Pas grave, il me suffit d'aller dans Database Tools > autorisations et de mettre les droits de lectures.

et là ca prout. Je coche les cases mais je ne peux pas appliquer. Je dois deja avoir les droits "administrer" ou etre propriétaire pour modifier les autorisations. Bizarrement Admin n'a souvent aucun droit sur ces tables et quand je veux modifier le propriétaire, c'est un utilisateur "unknown" et ca me dit que je n'ai pas les droits pour modifier ca.

Comment puis-je m'en sortir? je tourne en rond là.

[loufab]

Bonjour,

lorsque la sécurité en place on prend les données et le fichier de sécurité (mdw) sinon ça ne peut que prouter...

Cordialement,

[Louis-Guillaume Morand]

le probleme est que quand je met le fichier mdw avec, il ne semble plus etre lié et le fichiers de données s'ouvre directement et me log tjs en tant qu'Admin.

[LedZeppII]

Bonjour,

Ce lien vers la faq montre comment se lier au fichier mdw avec un raccourci.

Je ne sais pas par quel moyen ton appli web se connecte à la base Access, mais il y a surement un moyen de préciser le fichier mdw.
Exemple (partiel) en VBA+ADO de chaîne de connexion ADO où le fichier sécurité est précisé.

Code :

1
2
3
4
PROVIDER=Microsoft.Jet.OLEDB.4.0;
DATA SOURCE=E:\E\bd_3.mdb;
PERSIST SECURITY INFO=FALSE;
Jet OLEDB:System database=E:\E\ACCSECUR.mdw

A+

[zangel]

J'ai rencontré un problème semblable au tien. Le problème c'est que si tu enlèves pas les pouvoirs au compte administrateur, il les conserve tous car le fichier system.mdw par défaut lui confère tous les droits. Il faut les enlever à partir de la base de données.

Va sur ce site http://loufab.developpez.com/securite/ et lit le document au complet. C'est long mais ça en vaut la peine! Tu verras qu'après avoir créer le superutilisateur, il faut enlever les pouvoirs à administrateur. Afin de faire ça, il faut bien sur nommer superutilisateur comme propriétaire, ref IX-D. Propriétaire.

X. - Mot de passe et dégradation expliquer comment enlever les pouvoirs à Administrateur.

En espérant que ça t'aide.

Bonne journée

[Louis-Guillaume Morand]

alors mon appli web est sur un hebergeur et donc je ne controle pas la connexion. cest une connexion DSN mais je ne peux pas préciser le fichier mdw. en tout cas pas dans les exemples qu'il donne et j'ai pas vu de chaine de connexion web pouvant préciser le mdw.

moi s'il se connecte avec le compte Admin qui a les droits sur les tables ca me va mais actuellement ce compte Admin n'a pas de droits du tout
tanpis jvais faire ca à la cochonou

merci

[LedZeppII]

Bonsoir,

Je suppose que c'est donc une connexion ODBC.
Je me suis livré à quelques tests dans Excel pour exécuter une requête via ODBC dans une base Access.
  La base (sécurisée - Admin n'a aucun droits) : E:\E\ACCSECUR.mdw
  Le fichier sécurité (mdw) : E:\E\ACCSECUR.mdw
  User : TestUser
  Password : 123
1. Avec DSN complet (base Access, fichier mdw, UserID, PWD)

Code vba :

1
2
3
4
5
6
7
8
9
Dim qt As Excel.QueryTable
' Ma feuille Excel a déjà une requête
' Je vais modifier sa connexion et sa requête SQL
Set qt = Me.QueryTables(1)
 
qt.Connection = "ODBC;DSN=MSACC-BD_3;"
 
qt.CommandText = "SELECT * FROM Table2"
qt.Refresh

2. Avec DSN partiel (seulement la base Access)

Code vba :

1
2
3
4
5
6
7
8
9
Dim qt As Excel.QueryTable
 
Set qt = Me.QueryTables(1)
qt.Connection = "ODBC;DSN=MSACC-BD_3_2;" & _
                "SystemDB=E:\E\ACCSECUR.mdw;" & _
                "UID=TestUser;PWD=123;"
 
qt.CommandText = "SELECT * FROM Table2"
qt.Refresh

3. Sans DSN

Code vba :

1
2
3
4
5
6
7
8
9
10
11
Dim qt As Excel.QueryTable
 
Set qt = Me.QueryTables(1)
 
qt.Connection = "ODBC;Driver={Microsoft Access Driver (*.mdb)};" & _
                "DBQ=E:\E\bd_3.mdb;" & _
                "SystemDB=E:\E\ACCSECUR.mdw;" & _
                "UID=TestUser;PWD=123;"
 
qt.CommandText = "SELECT * FROM Table2"
qt.Refresh

En espèrant que ça t'aide à trouver une solution moins "cochonou"