Active Directory LDAP query

[bslintx]

Hi,

i am trying to lookup "distinct" title's in AD; however, i had no luck. i am using....

 Set oRs2 = oConn.Execute("SELECT name, title, physicaldeliveryofficename " & _
                          "FROM 'LDAP://" & getUnitPath & getDomain & "' " & _
                          "WHERE department='" & getDepartment & "' AND physicaldeliveryofficename='" & aData(0,i) & "' ORDER BY title")

...which is fine, but it grabs all when i want a distinct list..ie: if returned...

title:
Worker bee
Mgr
Mgr
Worker bee
Operator

i want...
Worker bee
Mgr
Operator

 

[tsuji]

Either sql dialect or ldap query, distinct is not supported. Hence, you have to loop through the resultset and extract distinct title attribute. In vb(s), usually use a dictionary object using its dictionary.exists() method to test for the title string. If exists, then reject it as duplication; if not, set up a key value with that title string with arbitrary item value.

 

[bslintx]

Thanks for the reply..i didn't post it but i came up with a conditional loop to what you were going to...i was simply hoping to return a smaller recordset with distinct in the query...thanks for the heads up. i can now stop scouring for the answer

 For i = iRecFirst To iRecLast
    If i = iRecLast Then
     j = j - 1
    Else
     j = j + 1
    End If
    If NOT isNull(aOffice(0,i)) Then
     If aOffice(0,i) <> aOffice(0,j) Then
       Response.Write aOffice(0,i) & "<br>"
     End If
    End If
 Next