Access VBA中SQL日期语法错误（3075）及类型冲突问题求助

这问题我之前也碰到过！核心是你混淆了Access本地Jet SQL和SQL Server T-SQL的语法差异，尤其是日期格式和UPDATE语句的细节，咱们一步步来解决：

问题根源拆解 #

1. 日期分隔符不兼容：Allen Brown的SQLDate函数是给Access本地表设计的，会生成#02/12/2018#这种格式——但SQL Server不认#，它会把这个当成数值除法运算（02/12/2018的结果是整数），所以才会报「日期与整数不兼容」的错误。
2. 语法适配问题：虽然你的UPDATE FROM写法看起来接近T-SQL，但Access作为前端执行链接表的SQL时，需要严格遵循T-SQL规范，同时日期格式必须符合SQL Server的识别要求。

快速修复方案（直接修改SQL字符串） #

把日期格式改成SQL Server兼容的'yyyy-MM-dd'格式，替换掉原来的SQLDate函数，同时用单引号包裹日期值：

strSQLDeps = "UPDATE dbo_Production_Schedule_1 " & _ 
" SET dbo_Production_Schedule_1.StartDate = '" & Format(!EndDate, "yyyy-MM-dd") & "' " & _ 
" FROM dbo_Production_Schedule " & _ 
" INNER JOIN dbo_Production_Sched_Dependencies " & _ 
" ON dbo_Production_Schedule.ProductionScheduleID = dbo_Production_Sched_Dependencies.ProdSchedID " & _ 
" INNER JOIN dbo_Production_Schedule AS dbo_Production_Schedule_1 " & _ 
" ON dbo_Production_Sched_Dependencies.DependentActivityID = dbo_Production_Schedule_1.ActivityID " & _ 
" AND dbo_Production_Schedule.ItemSerialNo = dbo_Production_Schedule_1.ItemSerialNo " & _ 
" WHERE dbo_Production_Schedule_1.StartDate < '" & Format(!EndDate, "yyyy-MM-dd") & "' " & _ 
" AND dbo_Production_Schedule.ProductionScheduleID = " & !ProductionScheduleID & ";"

关键修改点：

• 用Format(!EndDate, "yyyy-MM-dd")生成SQL Server绝对能识别的日期格式，避免区域设置（比如中文系统的MM/dd/yyyy vs dd/MM/yyyy）导致的解析错误。
• 用单引号'包裹日期值，符合T-SQL的语法要求，而不是Access的#。

更稳妥的方案：使用参数查询 #

手动拼接SQL字符串不仅容易出格式问题，还存在SQL注入风险。推荐用ADODB参数查询，让数据库自动处理类型转换：

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection ' 使用当前Access的链接

' 编写带参数的T-SQL语句
cmd.CommandText = _
"UPDATE dbo_Production_Schedule_1 " & _
" SET StartDate = @EndDate " & _
" FROM dbo_Production_Schedule " & _
" INNER JOIN dbo_Production_Sched_Dependencies " & _
" ON dbo_Production_Schedule.ProductionScheduleID = dbo_Production_Sched_Dependencies.ProdSchedID " & _
" INNER JOIN dbo_Production_Schedule AS dbo_Production_Schedule_1 " & _
" ON dbo_Production_Sched_Dependencies.DependentActivityID = dbo_Production_Schedule_1.ActivityID " & _
" AND dbo_Production_Schedule.ItemSerialNo = dbo_Production_Schedule_1.ItemSerialNo " & _
" WHERE dbo_Production_Schedule_1.StartDate < @EndDate " & _
" AND dbo_Production_Schedule.ProductionScheduleID = @ProdID;"

' 添加参数（自动处理类型转换，不用管格式）
cmd.Parameters.Append cmd.CreateParameter("@EndDate", adDate, adParamInput, , !EndDate)
cmd.Parameters.Append cmd.CreateParameter("@ProdID", adInteger, adParamInput, , !ProductionScheduleID)

' 执行语句
cmd.Execute

Set cmd = Nothing ' 释放对象

这个方法的优势：

• 彻底避免日期格式、数值类型等转换问题，参数会自动匹配SQL Server的字段类型。
• 杜绝SQL注入，安全性更高。
• 代码可读性更好，后期维护更方便。

验证方法 #

修改完后，再次用Debug.Print strSQLDeps（针对字符串拼接方案）输出SQL，复制到SSMS里执行，如果能正常运行，说明格式没问题，再回到Access里执行就不会报错了。

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