如何在VBA的SQL Insert语句中直接使用变量且无需引号

先看你给出的原始代码，原来的写法是通过字符串拼接把v2的值带上引号插入到SQL语句中：

Dim Xdb As DAO.Database
Set Xdb = CurrentDb
Dim v1 As Integer
Dim v2 As String
With Me
    v1 = 1
    v2 = Trim(.txt2)
End With
Dim Sql As String
Sql = "Insert Into TblCustomers" _
& " (ID,FName)" _
& " Values " _
& " (1,'"& v2 &"')"

你希望改成直接写(1,v2)的形式，不用手动加引号，但直接这么写的话，SQL引擎会把v2当成表的字段名，而不是你定义的VBA变量值，肯定会报错提示找不到这个字段。要实现类似这种“简洁引用变量”的效果，最靠谱的方式是用参数化查询，既不用拼接引号，还能避免SQL注入风险，也不用处理字符串里的单引号转义问题。

方法一：使用DAO QueryDef创建参数查询（推荐） #

这是Access VBA中最规范的写法，代码示例如下：

Dim Xdb As DAO.Database
Set Xdb = CurrentDb
Dim v1 As Integer
Dim v2 As String
With Me
    v1 = 1
    v2 = Trim(.txt2)
End With

' 创建临时参数查询，第一个参数为空字符串表示不保存查询
Dim qdf As DAO.QueryDef
Set qdf = Xdb.CreateQueryDef("", _
    "Insert Into TblCustomers (ID,FName) Values (?, ?)")

' 给占位符赋值：?的顺序对应SQL里的位置，从0开始计数
qdf.Parameters(0) = v1
qdf.Parameters(1) = v2

' 执行插入操作，dbFailOnError会在出错时抛出具体错误信息
qdf.Execute dbFailOnError

' 清理对象，避免内存泄漏
Set qdf = Nothing
Set Xdb = Nothing

方法二：使用命名参数（可读性更强） #

如果你觉得占位符?不够直观，可以用命名参数来绑定值，代码更清晰：

Dim Xdb As DAO.Database
Set Xdb = CurrentDb
Dim v1 As Integer
Dim v2 As String
With Me
    v1 = 1
    v2 = Trim(.txt2)
End With

Dim qdf As DAO.QueryDef
Set qdf = Xdb.CreateQueryDef("", _
    "Insert Into TblCustomers (ID,FName) Values ([pID], [pFName])")

' 通过参数名赋值，不用关心顺序
qdf.Parameters("pID") = v1
qdf.Parameters("pFName") = v2

qdf.Execute dbFailOnError

Set qdf = Nothing
Set Xdb = Nothing

为什么不推荐直接拼接字符串？ #

如果硬要通过字符串拼接实现“看起来”不用引号，其实是做不到的——因为FName是字符串类型字段，SQL要求字符串值必须用单引号包裹。而且如果v2里包含单引号（比如用户输入了O'Neil），你的原始拼接写法会直接报错，参数化查询则会自动处理这种情况，同时还能防止SQL注入攻击，安全性更高。

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