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 ?