PDA

Vollständige Version anzeigen : LDAP abfragen


LegendzZ
21.04.2011, 13:27
Hallo liebes Forum

Ich muss in Acces das LDAP Verzeichnis meines Betriebs auslesen.

Ich habe folgenden Code :


Public Function fktGetUserInfos()

Dim oConnection As New ADODB.Connection
Dim oRecordset As ADODB.Recordset
Dim oCommand As ADODB.Command

Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
Set oCommand = CreateObject("ADODB.Command")
oConnection.Provider = "ADsDSOObject"
oConnection.Open
oCommand.ActiveConnection = oConnection

oCommand.CommandText = "SELECT title, givenname, sn, cn, mail, telephonenumber " & _
"FROM 'LDAP://OU=MIBAG,OU=CH,OU=Europa,OU=UsersAndGroups,DC=bycn,DC=bouygues-construction,DC=com"

oCommand.Properties("Page Size") = 10000
Set oRecordset = oCommand.Execute
oRecordset.MoveFirst

End Function


Das Problem ist: Set oRecordset = oCommand.Execute Hier bekomme ich die Fehlermeldung "Der Befehl enthielt mindestens einen Fehler"

Ich finde nicht raus was das Problem ist. Ich arbeite mit Access 2007 und habe den verweis ActiveXData Objects 2.8 Library eingebunden. Betriebsystem ist Windows 7.

Vielen Dank für eure Hilfe

avogt_at_home
21.04.2011, 19:01
Hallo,
schau mal ob dieser Thread dir weiterhilft (2. Posting):
https://groups.google.com/group/de.comp.datenbanken.ms-access/browse_thread/thread/c876e6d8402c4730/66149f9c92f25df2?hl=de&lnk=gst&q=LDAP#66149f9c92f25df2

Gruß Andreas