Discussion :

[Bouassa]

Je n'arrive pas à accéder à la base de données LDAP. Voici mon code:
Si qlq 1 peut m'aider please. Il me signale qu'il ne lit pas les champs LDAP.

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
41
42
43
44
'Déclaration des variables
Dim cnLDAP As Connection, rsLDAP As Recordset
 
Private Sub Form_Load()
'Instanciation des variables
Set cnLDAP = New Connection
Set rsLDAP = New Recordset
 
    With cnLDAP
        .Provider = "ADSDSOObject"
        .ConnectionString = "User ID=gapog.admin;" & _
                            "Password=Mars12;" & _
                            "Data Source=LDAP://dc=upstream,dc=apc,dc=grp;" ' & _
                            '"Initial Catalog=LDAP"
        .Open "Active Directory Provider"
    End With
 
    With rsLDAP
        .ActiveConnection = cnLDAP
        '.CursorLocation = adUseClient
        '.LockType = adLockBatchOptimistic
        .Open "SELECT * FROM 'LDAP://dc=upstream,dc=apc,dc=grp'"
    End With
 
    'Affectations  rsLDAP!Name
    nn = rsLDAP!Name
    Set txtName.DataSource = rsLDAP
    txtName.DataField = "Name"
 
    Set txtType.DataSource = rsLDAP
    txtType.DataField = "Type"
 
    Set txtDescription.DataSource = rsLDAP
    txtDescription.DataField = "Description"
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
'Ferme toutes les connexions
cnLDAP.Close
rsLDAP.Close
Set cnLDAP = Nothing
Set rsLDAP = Nothing
End Sub

Help please. Thanks

[OhMonBato]

Peut être ce lien pourrait t'aider ?

http://support.abaproduction.com/vie...06df800a83ff1e

[Bouassa]

En fait, mon véritable probleme se trouve maintenant ds cette partie que je ne comprends pas.

Provider" Set rs = conn.Execute( _ "<LDAP://server/o=organization/ou=site/cn=recipients>;" _ & "(objectClass=*);ADsPath,objectClass,cn;subtree")

o=organization ?

ou=site?

cn=recipients?

subtree?

ADsPath?

En fait toute la chaîne de connexion.

[OhMonBato]

Je ne connais rien à tout ça mais peut etre que la MSDN de Microsoft pourra t'aider :

http://msdn2.microsoft.com/en-us/library/aa746384.aspx