使用 VBA 中的两个参数调用 SQL Server 过程

Question

我在 Excel 中实现了一些 VBA 代码，它调用了一个需要两个参数的 SQL Server 存储过程：整数和日期。

问题：如果我在 Excel 中执行我的 VBA 代码，我不会从我的 SQL Server 过程中获得任何数据。

我也没有收到任何错误消息。

如果我使用

在 SQL Server Management Studio 中执行我的过程

EXEC [dbo.spsClient] '123456' '01.01.2014'

我从我的 SQL Server 过程中获得了一些数据。我认为我在处理 VBA 中的两个参数时遇到了问题。

我实现了以下代码：

...
nr = 123456
datepoint = DateValue(ActiveWorkbook.Sheets(sheetData).Cells(4, 3))

Dim ADODBCmd As New ADODB.Command
With ADODBCmd
    .ActiveConnection = objconn
    .CommandTimeout = 500
    .CommandText = "dbo.spsClient"
    .CommandType = adCmdStoredProc
    .Parameters.Refresh
    .Parameters.Append ADODBCmd.CreateParameter("@number", adVarChar, adParamInput, 50, nr)
    .Parameters.Append ADODBCmd.CreateParameter("@date", adDate, adParamInput, datepoint)
    Set recordset = .Execute()
End With

Answer 1

我解决了我的问题：在第二个 Append.Parameters 中，我忘记验证大小，在本例中为（“50”）。

谢谢你帮助我。