执行存储过程时遇到问题

Question

当以下 VBA 代码执行时，它会将以下字符串传递给 SQL，并使用世界“默认”而不是所需的整数。正如您在下面的代码中看到的那样，我什至通过声明它来确保传递的是一个整数。

当我在这里运行探查器时会遇到什么：

exec dbo.Dispensing_Days '9999',default

VBA 代码：

Sub ADO_DispensingDays()
    Dim DayValue As Integer    
    DayValue = Forms("PatientRecordTabbedF").DaysDispensed.Value    

    Call Module4.ADO      ' Opens the oConn SQL connection
    Dim cmdObjCmd As New ADODB.Command
        With cmdObjCmd
            .ActiveConnection = oConn
            .CommandType = adCmdStoredProc
            .CommandTimeout = 15
            .CommandText = "dbo.Dispensing_Days"
            .Parameters.Append .CreateParameter("@PatientID", adVarChar, adParamInput, 16, Forms("PatientRecordTabbedF").PatientID.Value)
            .Parameters.Append .CreateParameter("@Days", adInteger, , DayValue)
            .Execute
        End With
        Set cmdObjCmd = Nothing
    Call Module4.ADO_Close    ' Closes the oConn SQL connection
End Sub

Answer 1

在这行代码中……

.Parameters.Append .CreateParameter("@Days", adInteger, , DayValue)

我错过了 adParamInput 值。代码应该是这样的......

.Parameters.Append .CreateParameter("@Days", adInteger, adParamInput, , DayValue)

我花了好几个小时试图弄清楚这一点。