如何使用 VBA 中的 datetime 参数调用 SQL Server 存储过程？

Question

我有一个 SQL Server 存储过程，它接受两个 datetime 数据类型的输入参数。我想从 Excel VBA 中调用它。

VBA 没有日期时间类型，所以我尝试了这样的方法：

Dim spCommand As ADODB.Command
Set spCommand = New ADODB.Command
spCommand.ActiveConnection = cnn
spCommand.CommandText = "myProcedureName"
spCommand.CommandType = adCmdStoredProc
spCommand.Parameters.Refresh
spCommand.Parameters(1).Value = "6/1/2016"      'DateValue("2016-06-01") + TimeValue("00:00:00")
spCommand.Parameters(2).Value = "6/1/2016"     'DateValue("2016-06-01") + TimeValue("23:59:59")
spCommand.Execute

但我收到此错误：

我该如何解决？

编辑 1
在遵循@Joe 的建议后，我打开了调试器并得到了这个，但错误仍然存​​在：

Answer 1

使用 DateSerial 函数：

spCommand.Parameters(1).Value = DateSerial(2016,1,6)

如果需要，还可以选择 TimeSerial 函数：

spCommand.Parameters(2).Value = DateSerial(2016,1,6) + TimeSerial(23,59,59)

VBA 没有日期时间类型

是的，确实如此：

Dim dtDateTime as Date
dtDateTime = DateSerial(2016,1,6) + TimeSerial(23,59,59)

更新

在您进行编辑后，我看到 Parameters 集合包含三个项目。第一个是返回参数，第二个和第三个是adDBTimeStamp类型的输入参数。

此外，Command.NamedParameters 属性为 false，因此您可能无法使用命名参数，就像您在编辑随附的屏幕截图中尝试的那样。

更新 2

VBA 集合的索引从 1 开始，而不是 0，因此您应该将参数指定为：

spCommand.Parameters(2).Value = ...
spCommand.Parameters(3).Value = ...

我认为上面是错误的。标准 VB/VBA 集合从 1 开始编入索引。我认为在我看来错误的基本原理是基于 1 的索引“更直观”。

在开发 ADO 时，我相信 Microsoft 意识到基于 1 的集合是一个错误，并决定使 ADO 集合基于 0。这使得它们与标准集合不一致，但对 javascript 开发人员来说“更直观”。真是一团糟。

如果我是对的（而且我使用 ADO 已经很久了，我还没有测试过），那么你需要：

spCommand.Parameters(1).Value = ...
spCommand.Parameters(2).Value = ...

这应该可以消除您的 3265 错误，但不能解决您原来的问题。您的调试跟踪似乎显示参数已设置为预期值。我只能建议您尝试生成MCVE，包括相关存储过程的简化版本。