VBA执行Update语句时变量未生效，如何正确传递变量值到数据库？

这问题我太熟悉了！你现在的SQL语句里把变量名Marsha直接用单引号包起来当成字符串了，数据库自然会把它当成字面量"Marsha"写入，而不是取变量Marsha的值"hi"。下面给你两种可行的解决办法：

方法1：字符串拼接（简单直接） #

把变量的值直接拼接到SQL语句中，注意要给字符串类型的变量加上单引号包裹：

Dim StoreNoToUpdate As String
Dim Marsha As String
StoreNoToUpdate = "ABCXYZ123"
Marsha = "hi"
' 用&符号把变量和SQL字符串拼接起来
db.Execute "Update TblLodgingReport set [MarshaCode]= '" & Marsha & "' where [Store Number ID]= '" & StoreNoToUpdate & "'"

这里的关键是'" & Marsha & "'——前后的单引号是SQL里字符串的标识，中间用&连接变量Marsha，这样SQL就能识别出要写入的是变量的值"hi"了。顺便把Store Number ID的条件也换成变量，这样以后修改门店号更方便。

⚠️ 注意：如果变量Marsha的值里包含单引号（比如"O'Connell"），直接拼接会导致SQL语法错误，这时候需要把单引号转义成两个单引号，比如Marsha = Replace(Marsha, "'", "''")再拼接。

方法2：参数化查询（更安全健壮） #

如果要处理可能包含特殊字符的内容，或者想避免SQL注入风险，推荐用参数化查询，这也是专业开发里更推荐的方式：

Dim StoreNoToUpdate As String
Dim Marsha As String
Dim qdf As QueryDef

StoreNoToUpdate = "ABCXYZ123"
Marsha = "hi"

' 创建带参数的查询定义
Set qdf = db.CreateQueryDef("", "Update TblLodgingReport set [MarshaCode]= [p_Marsha] where [Store Number ID]= [p_StoreNo]")
' 给参数赋值
qdf.Parameters("[p_Marsha]") = Marsha
qdf.Parameters("[p_StoreNo]") = StoreNoToUpdate
' 执行更新
qdf.Execute
' 释放对象
Set qdf = Nothing

这种方法不需要手动处理单引号转义，数据库会自动处理参数的类型和格式，既安全又省心。

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