Discussion :

[gueulederack]

Bonjour,

Je sélectionne dans un combobox préalablement chargé via l'active directory, le nom et prénom d'une personne, et lorsque je sélectionne cette personne je souhaite obtenir son service rattachée dans un label:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Private Sub RechercheInADUsers()
 
Dim Nom As String
Dim Prenom As String
Dim Sevice As String
 
Const ADS_SCOPE_SUBTREE = 2
 
Set objConnection = CreateObject("ADODB.Connection") 'Création d'un objet pour la connexion
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject" 'Définition du pilote de connexion
objConnection.Open "Active Directory Provider" 'Ouverture de la base
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
'Recherche des utilisateurs dans l'active directory
objCommand.CommandText = _
"SELECT givenname, sn FROM 'LDAP://dc=specinov,dc=local ' WHERE objectClass='user' and objectCategory ='Person'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
cbContributeur.Clear
cbValideurNom.Clear
Do Until objRecordSet.EOF
  If objRecordSet.Fields("givenName").Value <> Null Then
    Nom = objRecordSet.Fields("givenName").Value
  End If
  If objRecordSet.Fields("sn").Value <> Null Then
    Prenom = objRecordSet.Fields("sn").Value
  End If
    cbContributeur.AddItem (Nom & " " & Prenom)
    cbValideurNom.AddItem (Nom & " " & Prenom)
    objRecordSet.MoveNext
Loop
 
On Error Resume Next
 
End Sub

Je ne sais pas si je peux faire une requete du type :
"SELECT department FROM 'LDAP://dc=specinov,dc=local ' WHERE "
givenName = xxx and sn = yyyy pour obtenir cettte information ? Une autre idée ?

[gueulederack]

j'avais oublié de mettre mon code du changement de valeur de ma combobox

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
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub cbContributeur_Change()
 
  Dim Sevice As String
  Dim Referent As String
 
  Referent = cbContributeur.Value
 
Const ADS_SCOPE_SUBTREE = 2
 
Set objConnection = CreateObject("ADODB.Connection") 'Création d'un objet pour la connexion
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject" 'Définition du pilote de connexion
objConnection.Open "Active Directory Provider" 'Ouverture de la base
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
'Recherche des utilisateurs dans l'active directory
objCommand.CommandText = _
"SELECT Department FROM 'LDAP://dc=specinov,dc=local 'WHERE displayName='" & Referent & "' and objectClass='user' and objectCategory ='Person'"
Set objRecordSet = objCommand.Execute
If objRecordSet.Fields("department").Value <> Null Then
 lResponsableService.Caption = objRecordSet.Fields("department").Value
End If
 
End Sub
 
End Sub

J'ai une erreur sur le ligne "If objRecordSet.Fields("department").Value <> Null Then"

il me dit que EOF ou BOF est = True ou l'enregistrement actuel a été supprimé. Je ne vois pas ce que ça signifie

[gueulederack]

J'ai modifié ainsi comme ça, je sécurise l'exécution du code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
"SELECT Department FROM 'LDAP://dc=specinov,dc=local 'WHERE displayName='" & Referent & "' and objectClass='user' and objectCategory ='Person'"
Set objRecordSet = objCommand.Execute
If objRecordSet.EOF = False Then
  objRecordSet.MoveFirst
  Do Until objRecordSet.EOF
    If objRecordSet.Fields("department").Value <> Null Then
      lResponsableService.Caption = objRecordSet.Fields("department").Value
    End If
  Loop
End If