VBA 记录集过滤器通配符 'Ending With' 不工作 - 错误 3001

Question

我正在使用 Microsoft.ACE.OLEDB.12.0 将 Excel 文件读入 ADO 记录集中。根据 snb 在 ADO 上的优秀 article，我一直在使用许多工作完美的过滤器，除了 "Ends With" 过滤器，我收到了 Error 3001: "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another"。 "Ends With" 过滤器本质上是一个通配符过滤器，就像在 SQL 中使用的一样，语法如下：

"[FieldName] LIKE '*searchterm'"。

说我已经尝试了通配符（*, %）的所有组合，但没有成功。 Recordset Filter 属性上的 microsoft documentation 说明了以下关于 LIKE 运算符的使用：

”在 LIKE 子句中，您可以在模式的开头和结尾使用通配符。例如，您可以使用 LastName Like 'mit'。或者用 LIKE您只能在模式末尾使用通配符。例如，LastName Like 'Smit*'.

以上似乎不清楚，但我相信他们在说以下内容：

开始和结束：LastName Like 'mit' 是合法的开头为：LastName Like 'Smit*' 是合法的

但是

结尾：像“*t”这样的姓氏是非法的？？？

如果是这样，那么我知道 Ends with 过滤器不可能像人们直觉上认为的那样，我希望有人可以提供一种替代解决方案来模仿 "Ends With" 通配符过滤器。

如果没有，那么我希望有人能指出我所缺少的。非常感谢所有建议、想法或答案。

下面是我的代码：

Option Explicit
Sub SheetToRecrdset()

 Dim strSourceFile As String
 Dim Conn As New ADODB.Connection
 Dim RcrdsetSheet As ADODB.Recordset

  strSourceFile = ThisWorkbook.FullName

    Set Conn = New ADODB.Connection
        With Conn
             .Provider = "Microsoft.ACE.OLEDB.12.0"
             .ConnectionString = "Data Source=" & strSourceFile & _
             ";Extended Properties='Excel 12.0;HDR=YES;IMEX=1'"
             .Open
        End With

    Set RcrdsetSheet = New ADODB.Recordset

     RcrdsetSheet.Open "SELECT * FROM [Data$] Where Not IsNull([Row_ID])", _
     Conn, adOpenKeyset, adLockOptimistic, adCmdText

        If RcrdsetSheet.EOF = True Or RcrdsetSheet.BOF = True Then
            MsgBox "For some reason the query did not return any data. Try closing" & _
            " and and opening the file again.", vbCritical, "Error: No Results Returned"
            Exit Sub
        End If

        'Example String to filter: "MRQ"

        'CONTAINS FILTER WORKS
        RcrdsetSheet.Filter = "[LOCATION] LIKE '*M*'"

        'BEGINS WITH FILTER WORKS
        RcrdsetSheet.Filter = "[LOCATION] LIKE 'M*'"


       'ENDS WITH FILTER DOESN'T WORK
       'RcrdsetSheet.Filter = "[LOCATION] LIKE '*Q'"     'Error 3001

       '@TinMan's Suggestions
       'RcrdsetSheet.Filter = "[LOCATION] LIKE '*Q''"    'Error 2147024809
       'RcrdsetSheet.Filter = "[LOCATION] LIKE '*Q'''"   'Error 3001
       RcrdsetSheet.Filter = "[LOCATION] LIKE ""*Q'"""   'Returns no Records

       Debug.Print RcrdsetSheet.RecordCount 'Returns 0

       Dim arrayOut As Variant

       arryOut = RcrdsetSheet.GetRows       'Error 3021


End Sub

示例数据示例：

另外，注意字段的数据类型是 adVarWChar, DataTypeEnum = 202, 表示以null结尾的Unicode字符串。

Answer 1

新答案

我原来的回答有一些关于在查询中使用引号和单打的有价值的信息，但没有解决 OP 的问题。

虽然不是很清楚，ADO » Recordset » Filter 的这段摘录解释了它

If you use the LIKE operator, you can also use the * or % wildcards as the last character in the string or as the first and last character in the string.

在 ADODB 记录集过滤器属性中使用 LIKE 运算符时，如果过滤器以通配符（* 或 %）开头，则它必须以通配符（* 或 %）结尾。过滤器字符串中间的通配符不起作用。

因此，仅仅因为我们不能在使用 ADO 记录集过滤器的 LIKE 运算符中使用通配符而不以通配符结束过滤器并不意味着我们无法使其工作！

让我们破解系统！

向returns最后一个字符
使用 % 作为 ADO 记录集过滤器的最后一个字符
使用 Like *somevalue% 和计算字段 = 最后一个字符过滤原始字段

测试代码

Sub Test()
    TestFilter "(Location Like '*Q%') AND (LOCATIONLastChar = '''')"
End Sub

Sub TestFilter(Filter As String)
    Const BaseConnectionString = "Data Source=@FullName;Extended Properties='Excel 12.0;HDR=YES;IMEX=1'"
    Dim Conn As New ADODB.Connection, rs As New ADODB.Recordset
    Dim SQL As String

    Set Conn = New ADODB.Connection
    With Conn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = Replace(BaseConnectionString, "@FullName", ThisWorkbook.FullName)
        .Open
    End With

    SQL = "SELECT *, Right(LOCATION,1) AS LOCATIONLastChar FROM [Data$] Where Not IsNull(Row_ID)"

    rs.Open SQL, Conn, adOpenKeyset, adLockOptimistic, adCmdText

    rs.Filter = Filter


    If Not rs.BOF Then
        Worksheets.Add
        Range("A1").CopyFromRecordset rs
    End If
    rs.Close
    Conn.Close
End Sub

原版Post

当我在编写查询时遇到问题时，我会使用 Access 查询设计器来帮助我编写它。

SELECT Table1.Field1
FROM Table1
WHERE (((Table1.Field1) Like "a'*"));

请注意，设计人员在过滤字符串两边使用了引号。 SQL 可以对字符串使用双引号或单引号。

如果您对字符串值使用双引号，则双引号内的任何引号都需要加倍。

这是一个例子：

rs.Open "SELECT Table1.Field1 FROM Table1 WHERE (((Table1.Field1) Like ""a'*""));"

然而，要做到这一点是一件令人头疼的事情。所以我所做的是编写几个辅助函数，为我将引号或单引号加倍。

Function getClipBoardText()
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .getFromClipBoard
        getClipBoardText = .getText
    End With
End Function

Sub PrintText()
    Dim s As String
    s = getClipBoardText
    Debug.Print Replace(s, Chr(34), String(2, 34))
End Sub

现在我所要做的就是复制设计师的 SQL 和运行 PrintText

长话短说，只需将包含在单引号内的单引号加倍即可！

RcrdsetSheet.Filter = "[LOCATION] LIKE '*Q'''"

这是在双引号内使用单引号的方法

RcrdsetSheet.Filter = "[LOCATION] LIKE ""*Q'"""

VBA 记录集过滤器通配符 'Ending With' 不工作 - 错误 3001

VBA Recordset Filter Wildcard 'Ending With' Not working- Error 3001

excel

vba

ado

recordset

新答案

让我们破解系统！

测试代码

原版Post