VBA中ADODB更新Access数据表失败，插入功能正常问题排查

你的更新操作失效的核心原因是SQL语句错误引用了VBA变量，具体分析和解决方法如下：

问题根源 #

你在更新SQL里直接写了Trackerpulldate = pdate，这里的pdate会被Access数据库引擎识别为表中的字段名，而不是你定义的VBA日期变量。因为你的Detail表中不存在名为pdate的字段，所以这条更新语句实际没有匹配到任何可执行的逻辑，自然不会生效。而插入语句能正常运行，是因为它没有引用外部变量，SQL本身是完整合法的。

另外，更新代码里的CMD.Save是多余操作——这个方法是用来将命令对象保存到磁盘文件的，普通数据更新不需要调用它。

解决方法 #

推荐用参数化查询（安全规范，避免SQL注入和格式问题），也可以选择字符串拼接（不推荐，仅作参考）：

方法1：参数化查询（推荐） #

通过ADODB参数传递变量值，避免直接拼接字符串：

Set CMD = CreateObject("ADODB.Command")
CMD.ActiveConnection = Acon
' 用?作为参数占位符
CMD.CommandText = "Update Detail set Trackerpulldate = ? where [Overall status]= 'Completed'"
' 添加日期参数：adDate=7，adParamInput=1（如果未引用ADO库，直接用数值）
CMD.Parameters.Append CMD.CreateParameter("pdateParam", 7, 1, , pdate)
CMD.Execute
' 移除多余的CMD.Save

方法2：字符串拼接（不推荐） #

如果选择这种方式，需要把VBA日期变量转换成Access能识别的格式（用#包裹，格式统一为yyyy-mm-dd）：

Set CMD = CreateObject("ADODB.Command")
CMD.ActiveConnection = Acon
' 格式化日期并拼接到SQL中
strSQL = "Update Detail set Trackerpulldate = #" & Format(pdate, "yyyy-mm-dd") & "# where [Overall status]= 'Completed'"
CMD.CommandText = strSQL
CMD.Execute

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