Utilisateurs Access (DBEngine)
Bonjour,
Je suis bloqué sur la conversion de cette fonction Access VBA en ASP VB .NET :
Code:
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 ?
