Internes Limit bei SELECT aus Active Directory?

04/10/2007 - 10:43 von Sebastian Kaps | Report spam
Hallo!

Ich lese per SELECT aus einem Active Directory alle Benutzergruppen aus:

Set objconn = CreateObject("ADODB.Connection")
objconn.Provider = "ADsDSOObject"
objconn.Open "Active Directory Provider"

'Command Objekt instanziieren und definieren
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objconn

'Pfad ins AD holen
Set objRoot = GetObject("LDAP://rootDSE")
strDomain = objRoot.Get("defaultNamingContext")
Set objDomain = GetObject("LDAP://" & strDomain)

'Query aufbauen
strSQL = "SELECT distinguishedName FROM 'LDAP://" & strDomain & "'" & " WHERE objectClass='Group'"

'und Befehl dem CommandObject übergeben
objCommand.CommandText = strSQL

'Query ausführen
Set objRS = objCommand.Execute
[...]

Problem: Ich bekomme nur 1000 Datensàtze zurück, obwohl es mehr Gruppen
gibt. Gibt es da ein internes Limit? Wie bekomme ich alle Gruppen
ausgelesen?


Ciao, Sebastian
 

Lesen sie die antworten

#1 Henry Habermacher [MVP Access]
04/10/2007 - 11:09 | Warnen spam
Hallo Sebastian

"Sebastian Kaps" wrote:
Ich lese per SELECT aus einem Active Directory alle Benutzergruppen aus:

Set objconn = CreateObject("ADODB.Connection")
objconn.Provider = "ADsDSOObject"
objconn.Open "Active Directory Provider"

'Command Objekt instanziieren und definieren
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objconn



Beim command Objekt kannst Du die Page Size angeben. Diese ist defaultmàssig
auf 1000 eingestellt. Versuch mal folgendes:

objCommand.Properties("Page Size") = 10000

nachdem Du das Command Objekt instanziiert hast.

HTH
Henry
Keine E-Mails auf Postings
KB: http://support.microsoft.com/default.aspx
FAQ: http://www.donkarl.com/AccessFAQ.htm
OH: Online Hilfe von MS Access (Taste F1)
Downloads: http://www.dbdev.org

Ähnliche fragen