hi all,

i need help to let this select get all records , i have more than 1400 records this code get only maximam 1000 records

thanks

clear
Local con As Adodb.Connection, rs As Adodb.Recordset
con = CreateObject('Adodb.Connection')
con.Provider = "ADsDSOObject"
      *con.Properties('User ID')="****"
      *con.Properties('Password')="****"
con.Open("Active Directory Provider")
 strFrom ='LDAP://istd'
     *,User ID="****",Password="****"

 ********************************************
*rs = con.Execute([SELECT ... WHERE objectCategory = 'person*' ]) 
&& not work
*rs = con.Execute([SELECT ... WHERE objectCategory = person* ]) 
&& no work
*rs = con.Execute([SELECT ... WHERE objectCategory = * ]) 





rs = con.Execute([ SELECT objectCategory,sAMAccountName,initials, displayname,title,Department,physicaldeliveryofficename FROM ']+m.strFrom+[']+;
[WHERE objectCategory ='person' ])&&error message as the last message

*UPPER(name) like "%
*? LIKE ?param1+'%'
*[WHERE objectCategory = person*])&& error message as the last message

*[WHERE objectCategory = 'person*'])&& empty
* i try as 
*rs = con.Execute([ SELECT objectCategory,sAMAccountName,initials, displayname,title,Department,physicaldeliveryofficename FROM ']+m.strFrom+['])&&1000 records

*Like 'person%'&& not works error message
*[ WHERE objectCategory = 'person' and  cn='*' ]) && 1000 records
*and cn='*'&& 1000 records




LOCAL loXML as MSXML.DOMDocument
loXML = Createobject('MSXML.DOMDocument')
rs.Save(m.loXML,1)

XMLTOCURSOR(m.loXML.xml, 'crsResult')

 select cast(SamAccountName as c(30)) as SAMName,CAST(initials as c(10)) as init1 ,CAST(displayname as c(30)), * from crsResult ;
into table mysss

INDEX on init1 tag init1

thanks