Excel VBA使用变量查询Access数据库报缺少必需参数错误

问题现象 #

• 实现目标：通过Excel VBA连接Access数据库，检索Orders表Voltage列匹配当前工作表A1单元格值的记录，将匹配行数据回写到Excel
• 异常表现：查询条件写固定值时运行正常，将固定值替换为VBA变量后触发错误：No value given for one or more required parameters（一个或多个必需参数未赋值）
• 核心错误代码位置：SQL语句直接写了VBA变量名，没有做拼接或传参

' 错误写法
Source = "SELECT * FROM Orders Where[Voltage]=var"

问题根因 #

SQL语句是作为纯字符串传递给Access引擎解析的，VBA不会自动把字符串内的var替换为你定义的同名变量值。Access引擎解析时会把var识别成一个未赋值的SQL参数，直接抛出参数缺失错误。
另外原SQL中Where关键字和[Voltage]字段名之间没有加空格，属于潜在语法隐患，部分版本的Access引擎可能无法正常解析语句。

修复方案 #

方法1：字符串拼接（快速修复，适合简单场景） #

直接把VBA变量的值拼接进SQL字符串即可。因为Voltage是数字类型，不需要额外加定界符；如果是文本类型需要在值两侧加单引号，日期类型需要加#号。
把SQL行替换为以下内容即可：

Source = "SELECT * FROM Orders WHERE [Voltage] = " & var

方法2：参数化查询（规范方案，推荐生产环境使用） #

字符串拼接存在SQL注入风险，遇到文本、日期类型时还需要手动处理转义、格式匹配问题，用ADO Command对象传参更稳定安全。
完整修正后代码：

Option Explicit

Sub getDataFromAccess()
    ' 读取查询条件
    Dim var As Integer
    ' 明确指定工作表，避免活动表切换时取错值
    var = ThisWorkbook.ActiveSheet.Range("A1").Value
    
    Dim DBFullName As String
    Dim Connect As String, Source As String
    Dim Connection As ADODB.Connection
    Dim Recordset As ADODB.Recordset
    Dim Cmd As ADODB.Command
    Dim Col As Integer

    ' 数据库路径，不要在字符串中间随意换行
    DBFullName = "C:\Users\jmike\Desktop\excel database - Copy\Database.accdb"

    ' 初始化数据库连接
    Set Connection = New ADODB.Connection
    Connect = "Provider=Microsoft.ACE.OLEDB.12.0;"
    Connect = Connect & "Data Source=" & DBFullName & ";"
    Connection.Open ConnectionString:=Connect

    ' 构造参数化查询，?为参数占位符
    Source = "SELECT * FROM Orders WHERE [Voltage] = ?"
    Set Cmd = New ADODB.Command
    With Cmd
        .ActiveConnection = Connection
        .CommandText = Source
        .CommandType = adCmdText
        ' 按占位符顺序绑定参数值
        .Parameters.Append .CreateParameter(, adInteger, adParamInput, , var)
        ' 执行查询拿到结果
        Set Recordset = .Execute
    End With

    ' 写入字段名
    For Col = 0 To Recordset.Fields.Count - 1
        Range("A2").Offset(0, Col).Value = Recordset.Fields(Col).Name
    Next

    ' 写入查询结果，先判断是否有匹配记录避免报错
    If Not (Recordset.EOF And Recordset.BOF) Then
        Range("A3").CopyFromRecordset Recordset
    Else
        MsgBox "未查询到匹配的记录", vbInformation
    End If

    ' 自动调整列宽
    ActiveSheet.Columns.AutoFit

    ' 释放资源 关闭连接
    Set Recordset = Nothing
    Set Cmd = Nothing
    Connection.Close
    Set Connection = Nothing
End Sub

额外注意事项 #

• 原代码中数据库路径字符串被手动拆成了两行，VBA中字符串换行需要加行连续符_，否则会报语法错误或找不到数据库，建议把路径写在同一行
• 引用单元格时尽量明确指定所属工作表，不要直接写Range("A1")，否则代码运行时如果活动工作表不是存放查询值的表，会读取到错误的查询条件
• 写SQL语句时注意关键字、字段名之间保留空格，避免数据库引擎解析失败

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