mamash_bek
Messages postés20Date d'inscriptionmercredi 6 juin 2007StatutMembreDernière intervention11 juin 2009
-
9 juin 2009 à 11:40
mamash_bek
Messages postés20Date d'inscriptionmercredi 6 juin 2007StatutMembreDernière intervention11 juin 2009
-
11 juin 2009 à 14:48
Bonjour,
Je dois comptabiliser certains éléments sur l' AD mais le traitement est un peu long avec le RecordCount. N'est-il pas possible de passer par une comptabilisation au sein de la requête (un peu comme sur les BDD classiques)?
= > Anomalie sur :
objCommand.CommandText = "SELECT Count(*) FROM 'LDAP://" &
strChemin & "' WHERE objectCategory='" & strCategorie & "'"
Script actuel fonctionnant:
Function Calcul(strChemin,strCategorie)
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider= ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 100000
objCommand.CommandText = "SELECT * FROM 'LDAP://" & strChemin & "' WHERE objectCategory='" & strCategorie & "'"
Set objRecordSet = objCommand.Execute
[...]
Calcul = objRecordSet .RecordCount
En vous remerciant par avance
A voir également:
Opera has modified script or content on www.google.com (patch-1269, hide chrome ad from google pages). see browser.js for details
mamash_bek
Messages postés20Date d'inscriptionmercredi 6 juin 2007StatutMembreDernière intervention11 juin 20091 10 juin 2009 à 10:50
Bon en fait le réel problème de lenteur provient des contrôles sur les données du Recordset que j'effectue parla suite.
J' inclue donc des conditions plus restrictives dans mon WHERE et effectue plusieurs
objCommand.Execute.
Par contre, j'aimerai y rajouter quelques chose comme :
objCommand.CommandText = "SELECT [...]
where [...] and not Mid(sAMAccountName,1,4)='adm-' "
Mais cela n'est pas interprété par l' AD auriez vous une idée de la syntaxe à appliquer dans le cas ou cela est possible?