Discussion :

[fx.92]

Bonjour,

Je suis bloqué sur la conversion de cette fonction Access VBA en ASP VB .NET :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function NomGroupe(VUtilisateur As String) As String
    Dim usr As User
 
    Set wrkDefault = DBEngine.Workspaces(0)
    With wrkDefault
        Set usr = .Users(VUtilisateur)
        For Each grpMember In usr.Groups
            If grpMember.Name = "Développeurs" Then
                NomGroupe = "Développeurs"
                Exit For
            End If
            If grpMember.Name = "Lecteurs" Then
                NomGroupe = "Lecteurs"
                Exit For
            End If
        Next
    End With
End Function

Je suis sous Visual Web Developer 2008 Express. Comment faire pour qu'il reconnaisse le type User ainsi que DBEngine (actuellement ce n'est pas le cas) et me permette d'utiliser cette fonction ?

En fait j'aimerais savoir comment sont gérés les Users dans Access : j'ai cherché à afficher les tables cachées mais je n'ai rien trouvé, je ne sais plus où chercher...

[LedZeppII]

Bonjour,

DBEngine, Users, Groups font partie de la bibliothèque DAO.
Il faut ajouter une référence (COM) à "Microsoft DAO x.x Object Library".

Les utilisateurs et groupes d'utilisateurs sont définis dans un fichier groupe de travail (extension mdw).
Par défaut il s'agit de System.mdw. L'emplacement varie selon les versions.
Il contient un utilisateur et deux groupes.
Lorsqu'on met en place la sécurité au niveau utilisateur on crée un nouveau fichier groupe de travail (xxxxxxx.mdw) et on crée les utilisateurs et les groupes.
Ils sont dans le fichier mdw. Les autorisations sont quand à elles dans le fichier base de données (.mdb ou .mde).
Depuis Access 2007 (extension .accdb ou .accde) il n'y a plus de sécurité au niveau utilisateur.

Jette un oeil à Comprendre et mettre en oeuvre la sécurité sous Microsoft Access

A+