vba - Access crashed when I set a subform recordset to an ADODB recordset -


so i'm working on proof of concept app going search ad phonebook. can details selected user , can populate combo box users pulled active directory. when created form , added subform display results of ldap query, access goes kaboom! below code i'm using , i'll upload access file , post link...

dim objroot variant set objroot = getobject("ldap://rootdse")  dim ldapdomainname string ldapdomainname = objroot.get("defaultnamingcontext")  dim cn variant set cn = createobject("adodb.connection") cn.open "provider=adsdsoobject;"  dim cmd variant set cmd = createobject("adodb.command") cmd.activeconnection = cn  dim rs variant 'adodb.recordset set rs = createobject("adodb.recordset")  dim selectedfields string selectedfields = "employeeid, displayname, mail, telephonenumber, mobile"  dim whereclause string whereclause = " objectcategory='user' , mail = '*@*'"  if not isnull(forms![activedirectorysearch]![txtgivenname])     whereclause = whereclause & " , givenname = '" & forms![activedirectorysearch]![txtgivenname] & "'" end if if not isnull(forms![activedirectorysearch]![txtsn])     whereclause = whereclause & " , sn = '" & forms![activedirectorysearch]![txtsn] & "'" end if if not isnull(forms![activedirectorysearch]![cbxtitle])     whereclause = whereclause & " , title = '" & forms![activedirectorysearch]![cbxtitle] & "'" end if if not isnull(forms![activedirectorysearch]![cbxdepartment])     whereclause = whereclause & " , department = '" & forms![activedirectorysearch]![cbxdepartment] & "'" end if  dim selectldap string selectldap = "select " & selectedfields & " 'ldap://" & ldapdomainname & "' " & whereclause & " order sn, givenname, cn" cmd.commandtext = selectldap set rs = cmd.execute  set me.recordset = rs 


Comments

Popular posts from this blog

c# - How Configure Devart dotConnect for SQLite Code First? -

java - Copying object fields -

c++ - Clear the memory after returning a vector in a function -