Excel VBA-具有字符串连接的LDAP Active Directory请求

Question

我正在尝试从我们公司的Active Directory中查找我正在用Excel 2016编写的工具的联系人属性。当用户提供电子邮件地址或全名（ FIRSTNAME LASTNAME ）时，该程序应该能够执行数据库查找他们希望。

对于用户在数据库中语法上相同的电子邮件地址和其他属性，此方法可以正常工作。 不幸的是，数据库没有以我需要的格式存储全名，即FIRSTNAME LASTNAME

所以我想我必须告诉也返回匹配的请求的属性givenname和sn因为这些构成了所需的全名。

为了做到这一点，我尝试了以下将属性'givenname'和'sn'连接起来的方法。 他们都没有工作：

1. 在SQL的WHERE子句中，我添加了：

    ' OR givenname & " " & sn = '" & Trim(rng.Text) & "' (see code snippet below) 

2. 在SQL的SELECT部分中，我测试了创建别名的几种方法：

    * ([givenname] || [sn]) As myfullname * ([givenname] + [sn]) As myfullname * ([givenname] & [sn]) As myfullname * and all of the above without square brackets and round brackets 

似乎不完全支持LDAP请求中使用的SQL。 因为我什至不能创建别名。 我也不能在SQL命令中使用方括号或诸如CONCAT()函数。

每次我尝试一种出现vba错误的方式时：

至少发生一个错误

（从德语翻译成英语）

在SQL的其他实现中（不在VBA中），此给定名称givenname & " " & sn可以正常工作。

问题 ：如何执行一个请求，以givenname （名字）和sn （姓氏）的属性串联在一起检查我的SearchString ？

' Connect to active directory
Set objDSE = GetObject("LDAP://rootDSE")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
SearchString = "Max Mustermann"

' Contact lookup using SQL-query
objCommand.CommandText = _
    "SELECT givenname, sn, mail, telephoneNumber, mobile, mailNickName, c, l, postalCode, department, company, streetAddress " & _
    "FROM 'LDAP://" & objDSE.Get("defaultNamingContext") & "' " & _
    "WHERE objectCategory='person' AND (mail = '" & SearchString t & "' OR givenname & sn = '" & SearchString & "')"
Set objRecordset = objCommand.Execute

If Not objRecordset.EOF Then
' Further processing which is not relevant to the question
' ...

Answer 1

我终于以我希望能够避免的方式解决了它。 这当然不是常规的，也不是有效的，但是它解决了这个问题。 我写了一个函数，可以将SearchString转换成数据库支持的格式。

如果外面有人对此有更好的处理方法，请随时发布。