MSACCESS SQL错误3021：新增DISPATCH_NOTES后本地更新正常服务端更新失败

问题原因 #

1. 字符串转义错误：你新增的DISPATCH_NOTES备注字段允许用户输入自由文本，当输入内容包含单引号（比如示例里的PO's）时，直接拼接SQL会打断字符串的闭合语法，生成非法SQL语句。本地执行未报错大概率是因为Access本地SQL解析容错性更高，而远端服务端数据库的SQL语法校验更严格。
2. SQL拼接语法错误：你的代码中PLANNED_SHIP_DATE字段赋值后缺少明确的逗号分隔符，拼接逻辑完全依赖PSD变量自带逗号，一旦PSD的值不是Null就会导致前后两个字段的赋值语句连在一起，触发语法错误。
3. 链接表无唯一标识：如果远端服务端的表没有设置主键，或者你在Access中创建该表的链接时没有选择唯一标识符字段，Access执行更新操作时无法定位到对应记录，就会抛出3021“无当前记录”错误。
4. WHERE条件无匹配记录：服务端更新的WHERE条件拼接错误，没有匹配到任何可更新的记录，也可能触发该错误。

解决方案 #

临时修复方案 #

1. 先新增单引号转义函数，所有需要拼接进SQL的字符串都用该函数处理：

Function EscapeSqlQuote(strInput As String) As String
    ' 把单引号替换为两个单引号完成转义
    EscapeSqlQuote = Replace(strInput, "'", "''")
End Function

2. 修正SQL拼接的逗号缺失问题，在PLANNED_SHIP_DATE赋值后明确添加逗号：

' 以服务端更新代码为例，本地代码同步修改即可
strSQL = "UPDATE TrafficDatabase_Query " & vbNewLine & _
         "SET TrafficDatabase_Query.COMMENTS ='" & EscapeSqlQuote(Me.COMMENTS.Value) & "', " & _
         "TrafficDatabase_Query.DISPATCH_NOTES ='" & EscapeSqlQuote(Me.DISPATCH_NOTES.Value) & "', " & _
         "TrafficDatabase_Query.TRAFFIC_SPECIALIST ='" & EscapeSqlQuote(GetUsername) & "', " & _
         "TrafficDatabase_Query.PLANNED_SHIP_DATE = " & PSD & ", " & _ ' 这里明确加了逗号
         "TrafficDatabase_Query.LAST_UPDATE =#" & Now() & "#" & vbNewLine & _
         "WHERE (((LTRIM(RTRIM(TrafficDatabase_Query.CUSTOMER_PURCHASE_ORDER_ID)) & TrafficDatabase_Query.DELIVERY_NUMBER) in (" & PODO & ")));"

3. 排查远端表的链接配置：打开链接表的设计视图，确认已经设置了主键字段，如果没有就重新创建链接，选择正确的唯一标识符字段。
4. 调试时打印服务端生成的完整SQL语句，复制到Access查询编辑器直接执行，可快速定位语法错误或条件匹配问题。

最优解决方案 #

使用参数查询完全避免SQL拼接的各类问题，不需要处理转义、不需要关心分隔符，同时也能避免SQL注入风险：

Dim qdf As DAO.QueryDef
' 用?作为参数占位符
Set qdf = CurrentDb.CreateQueryDef("", _
    "UPDATE TrafficDatabase_Query " & _
    "SET COMMENTS = ?, DISPATCH_NOTES = ?, TRAFFIC_SPECIALIST = ?, PLANNED_SHIP_DATE = ?, LAST_UPDATE = ? " & _
    "WHERE LTRIM(RTRIM(CUSTOMER_PURCHASE_ORDER_ID)) & DELIVERY_NUMBER IN (" & PODO & ")")
' 按顺序给参数赋值，自动处理数据类型和转义
qdf.Parameters(0) = Me.COMMENTS.Value
qdf.Parameters(1) = Me.DISPATCH_NOTES.Value
qdf.Parameters(2) = GetUsername
qdf.Parameters(3) = PSD
qdf.Parameters(4) = Now()
qdf.Execute dbFailOnError
Set qdf = Nothing

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