VBA调用Teradata SQL出现运行时错误3021，求排查提示

我遇到一个奇怪的问题：以下VBA代码调用Teradata SQL时返回运行时错误3021，但对应的SQL语句在Teradata SQLAssistant中执行完全正常。单元格里的值是John Doe，麻烦帮忙排查下问题！

相关代码片段：

Dim ConcatSQL As String
ConcatSQL = Sheets("LogIn").Cells(8, 3).Value
QueryA = "select * from database.table WHERE Name = " & ConcatSQL & ""
cmdSQLData.CommandText = QueryA
cmdSQLData.CommandType = adCmdText
cmdSQLData.CommandTimeout = 0
MsgBox (QueryA)
Set rs = cmdSQLData.Execute()
Row = 1
rs.Move...

我帮你瞅了下这段代码，问题其实出在SQL字符串拼接的语法错误上，这也是VBA调用数据库时非常容易踩的坑：

• 直接拼接字符串导致SQL语法错误：
  你的单元格值是John Doe（带空格的字符串），拼接后生成的SQL语句是：

  select * from database.table WHERE Name = John Doe
  

  在Teradata里，字符串类型的字段值必须用单引号包裹，不然数据库会把John当成一个列名，Doe当成无效标识符，直接导致语法错误，自然查不到数据，抛出3021错误。而你在SQLAssistant里执行时应该是手动加了单引号，所以能正常运行。

• 快速修复方法：
  在拼接的时候给字符串加上单引号即可，修改QueryA的赋值语句：

  QueryA = "select * from database.table WHERE Name = '" & ConcatSQL & "'"
  

  这样生成的SQL就变成了符合语法的：

  select * from database.table WHERE Name = 'John Doe'
  

• 更安全的进阶方案：参数化查询
  直接拼接字符串不仅容易出语法问题，还存在SQL注入风险。建议改用参数化查询，示例代码如下：

  Dim ConcatSQL As String
  ConcatSQL = Sheets("LogIn").Cells(8, 3).Value
  
  ' 清空原有参数
  cmdSQLData.Parameters.DeleteAll
  ' 设置SQL模板
  QueryA = "select * from database.table WHERE Name = ?"
  cmdSQLData.CommandText = QueryA
  cmdSQLData.CommandType = adCmdText
  cmdSQLData.CommandTimeout = 0
  ' 添加参数
  cmdSQLData.Parameters.Append cmdSQLData.CreateParameter("Name", adVarChar, adParamInput, 50, ConcatSQL)
  ' 执行查询
  Set rs = cmdSQLData.Execute()
  Row = 1
  rs.Move...
  

  这种方式不需要手动处理引号，数据库会自动处理字符串格式，既安全又能避免这类语法问题。

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