如何使用 VBA 从 Access 模糊查询中获取结果？

Question

数据库就像

• 身份证名称
• 1 aaa
• 2 bba
• 3 aac
• 4 ddb

在 Access 查询设计中我使用

select * from dbname where name like '*'& [The Name ?] &'*'

做模糊搜索，没问题。

但是当我在 VBA 中使用这个查询时，它什么也得不到。

Public Sub SeekClientData()
Dim adoConn As ADODB.Connection
Dim adoRs As ADODB.Recordset

Set adoConn = New ADODB.Connection
Set adoRs = New ADODB.Recordset

With adoConn
   .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Open ThisWorkbook.Path & "\fsdb.mdb"
End With

adoRs.Open "[testquery]'aa'", adoConn    'testQuery


Range("A2").CopyFromRecordset adoRs


adoRs.Close: Set adoRs = Nothing
adoConn.Close: Set adoConn = Nothing
End Sub

当我调试这段代码时，我得到了 adoRs.EOF。

但是当我设置严格时，我的意思是没有模糊，它可以正常工作。 我的意思是：

select * from dbname where name=[The Name ?]

工作正常。

我已经做了很多搜索，但无法解决这个问题。欢迎任何帮助！

Answer 1

范围（A2）？听起来像 Excel。 ThisWorkbook.Path 听起来也像 Excel。这严格在 Access 中吗？是混血儿吗？