VBA Excel数据库查询变量传递报错，如何正确传入VIN_T与PN5D_T？

你的报错原因很明确：SQL语句里的VIN_T和PN5D_T被数据库当成了表的列名，而不是你在VBA里定义的变量。数据库执行查询时只会解析自身的表结构，找不到名为VIN_T的列，所以抛出“无效列名”的错误。

下面是两种正确传递变量的方法：

方法1：字符串拼接（需处理单引号转义） #

直接把VBA变量的值嵌入SQL字符串中，字符串类型的变量需要用单引号包裹，同时要转义变量中可能存在的单引号（避免SQL语法错误）：

' 先转义变量中的单引号，防止SQL语法错误
Dim escapedVIN As String
Dim escapedPN As String
escapedVIN = Replace(VIN_T, "'", "''")
escapedPN = Replace(PN5D_T, "'", "''")

' 拼接SQL语句，将变量值嵌入并包裹单引号
strQuery = "SELECT [RONum] FROM [dbo].[Warranty] WHERE RIGHT([VIN],6)='" & escapedVIN & "' AND LEFT([PN],5)='" & escapedPN & "'"

方法2：参数化查询（推荐，更安全） #

用参数化查询的方式传递变量，不需要拼接字符串，能避免SQL注入风险，是更规范的写法：

' 假设你已经有一个有效的数据库连接对象YourConnection
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command

cmd.ActiveConnection = YourConnection
cmd.CommandText = "SELECT [RONum] FROM [dbo].[Warranty] WHERE RIGHT([VIN],6)=? AND LEFT([PN],5)=?"
cmd.CommandType = adCmdText

' 添加参数并赋值，参数类型和长度根据实际情况调整
cmd.Parameters.Append cmd.CreateParameter("VINParam", adVarChar, adParamInput, 6, VIN_T)
cmd.Parameters.Append cmd.CreateParameter("PNParam", adVarChar, adParamInput, 5, PN5D_T)

' 执行查询获取结果
Dim rs As ADODB.Recordset
Set rs = cmd.Execute

内容的提问来源于stack exchange，提问作者Rafael Rodrigues Santos