从VBA调用SQL Server 2017存储过程仅前3个执行的问题

核心错误原因 #

你提供的VBA代码存在逻辑错误：反复给QueryDef的.SQL属性赋值会覆盖之前的内容，最终调用.Execute时，实际上只执行了最后一个存储过程sp_Step6，前面的sp_Step1到sp_Step5并未被执行。你误以为前3个正常，大概率是之前单独测试过它们，或者混淆了执行逻辑。

正确写法 #

方式一：逐个执行每个存储过程

这种方式适合需要按顺序执行、且便于排查单个存储过程问题的场景：

With CurrentDb.QueryDefs("STOREDPROC")
   .ReturnsRecords = False
   
   .SQL = "EXEC dbo.sp_Step1"
   .Execute dbFailOnError ' 添加dbFailOnError便于捕获执行错误
   
   .SQL = "EXEC dbo.sp_Step2"
   .Execute dbFailOnError
   
   .SQL = "EXEC dbo.sp_Step3"
   .Execute dbFailOnError
   
   .SQL = "EXEC dbo.sp_Step4"
   .Execute dbFailOnError
   
   .SQL = "EXEC dbo.sp_Step5"
   .Execute dbFailOnError
   
   .SQL = "EXEC dbo.sp_Step6"
   .Execute dbFailOnError
End With

MsgBox "Import Complete"

方式二：合并调用语句一次性执行

如果存储过程之间无严格的分步排查需求，可以将所有执行语句用分号分隔，一次性提交执行：

With CurrentDb.QueryDefs("STOREDPROC")
   .SQL = "EXEC dbo.sp_Step1; EXEC dbo.sp_Step2; EXEC dbo.sp_Step3; EXEC dbo.sp_Step4; EXEC dbo.sp_Step5; EXEC dbo.sp_Step6"
   .ReturnsRecords = False
   .Execute dbFailOnError
End With

MsgBox "Import Complete"

额外注意事项 #

• 若存储过程存在依赖关系（如后续步骤依赖前序步骤的执行结果），两种方式都能保证顺序执行；
• 添加dbFailOnError参数后，一旦某个存储过程执行失败，代码会抛出错误，便于定位问题；
• 确认Access连接SQL Server的权限足够执行所有目标存储过程，且连接字符串配置正确。

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