如何用Excel VBA从Access取数？AND条件SQL报错求助

我帮你排查下这个问题——你遇到的 -2147467259 错误，大概率是SQL语法细节、数据类型不匹配，或者Recordset的打开参数设置导致的。虽然你的SQL在Access里能正常运行，但VBA的ADO连接对SQL的解析有一些特殊要求，咱们一步步拆解解决：

核心问题分析与解决方案 #

1. 字符串含特殊字符导致SQL语法崩溃 #

这是最常见的原因：如果你的Item或Size字段值里包含单引号（比如O'Ring Button），直接拼接SQL字符串会破坏语法结构，ADO解析时就会报错。

最优解决：用参数化查询替代字符串拼接
不要手动拼SQL，改用ADO的Command对象绑定参数，它会自动处理特殊字符，还能避免SQL注入风险：

' 替换原来的SQL拼接和rs.Open部分
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdText

If Sheet2.Range("J2").Value = "Yes" Then
    cmd.CommandText = "SELECT * FROM PhoneList WHERE Item = ?"
    cmd.Parameters.Append cmd.CreateParameter("Item", adVarChar, adParamInput, 255, item)
Else
    cmd.CommandText = "SELECT " & col_name & " FROM PhoneList WHERE Item LIKE ? AND Size LIKE ?"
    cmd.Parameters.Append cmd.CreateParameter("ItemLike", adVarChar, adParamInput, 255, item & "%")
    cmd.Parameters.Append cmd.CreateParameter("SizeLike", adVarChar, adParamInput, 50, Isize & "%")
End If

' 执行查询获取Recordset
Set rs = cmd.Execute()

2. 数据类型不匹配 #

如果Size字段是数字类型（比如Integer/Number），你用单引号包裹数值（比如Size = '17'）会导致类型不匹配——Access本身允许宽松解析，但ADO连接的规则更严格。

检查修正：

• 打开Access表设计，确认Size的数据类型：
  • 如果是数字类型：去掉SQL里的单引号，直接写Size = 17（参数化查询会自动处理类型，不用手动改）
  • 如果是文本类型：保留引号，但还是推荐用参数化查询自动适配

3. Recordset打开参数的隐性问题 #

默认的rs.Open参数可能不适合你的场景，显式指定CursorType和LockType可以避免一些莫名其妙的异常：

' 如果暂时不想用参数化查询，修改rs.Open为：
rs.Open SQL, cnn, adOpenStatic, adLockReadOnly

（注意：要确保你的VBA项目引用了Microsoft ActiveX Data Objects x.x Library，如果没引用，用常量数值代替：adOpenStatic=3，adLockReadOnly=1）

4. 带空格的字段名要加方括号 #

如果你的查询字段（比如Customized Standard）包含空格，必须用方括号包裹，否则ADO会把它当成两个字段解析：

' 自动处理带空格的字段名，还能转义方括号本身
col_name = "[" & Replace(ComboBox3.Text, "]", "]]") & "]"

完整优化后的代码 #

结合上面的所有修正，你的核心代码可以改成这样：

Option Explicit
Private Sub CommandButton1_Click()
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim cmd As ADODB.Command ' 新增Command对象处理参数
    Dim dbPath As String
    Dim item As String
    Dim Isize As String
    Dim col_name As String

    On Error GoTo errHandler:
    Application.ScreenUpdating = False
    Sheet2.Range("A2:G10000").ClearContents

    ' 获取参数
    dbPath = Sheet1.Range("I3").Value
    item = ComboBox1.Text
    Isize = "17" ' 可以改成从ComboBox2.Text获取
    col_name = "[" & Replace(ComboBox3.Text, "]", "]]") & "]" ' 处理带空格的字段名

    ' 建立数据库连接
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath

    ' 配置参数化查询
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = cnn
    cmd.CommandType = adCmdText

    If Sheet2.Range("J2").Value = "Yes" Then
        cmd.CommandText = "SELECT * FROM PhoneList WHERE Item = ?"
        cmd.Parameters.Append cmd.CreateParameter("Item", adVarChar, adParamInput, 255, item)
    Else
        cmd.CommandText = "SELECT " & col_name & " FROM PhoneList WHERE Item LIKE ? AND Size LIKE ?"
        cmd.Parameters.Append cmd.CreateParameter("ItemLike", adVarChar, adParamInput, 255, item & "%")
        cmd.Parameters.Append cmd.CreateParameter("SizeLike", adVarChar, adParamInput, 50, Isize & "%")
    End If

    ' 执行查询
    Set rs = cmd.Execute()

    ' 处理空结果
    If rs.EOF And rs.BOF Then
        MsgBox "There are no records in the recordset!", vbCritical, "No Records"
        GoTo cleanup
    End If

    ' 写入数据到工作表
    Sheet2.Range("a2").CopyFromRecordset rs
    MsgBox "Congratulation the data has been successfully Imported", vbInformation, "Data Imported"

cleanup:
    ' 清理资源（避免内存泄漏）
    If Not rs Is Nothing Then
        If rs.State = adStateOpen Then rs.Close
        Set rs = Nothing
    End If
    If Not cmd Is Nothing Then Set cmd = Nothing
    If Not cnn Is Nothing Then
        If cnn.State = adStateOpen Then cnn.Close
        Set cnn = Nothing
    End If
    Application.ScreenUpdating = True
    Exit Sub

errHandler:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Import_Data"
    GoTo cleanup
End Sub

最后检查项 #

• 确认VBA项目引用了Microsoft ActiveX Data Objects 6.1 Library（或更高版本）：打开VBA编辑器 → 工具 → 引用 → 勾选对应库
• 测试硬编码SQL时，确保字段名和值完全匹配（比如大小写，虽然Access默认不区分，但部分环境可能敏感）

内容的提问来源于stack exchange，提问作者MASBHA NOMAN