如何得到存储过程返回值？

Question

3x

Answer 1

'''Get a datetime value from Service with stored procedure
The example of Stored procedure:
CREATE PROCEDURE GetServerDate(@ServerDate smalldatetime output)
AS
set @ServerDate=GetDate()
GO'''Load in VB:
Private Function GetDate() As Date
Dim Com As New ADODB.Command
On Error GoTo Er:
        With Com
                .ActiveConnection = Cn
                .CommandType = adCmdStoredProc
                .CommandText = "GetServerDate"
                .Parameters .CreateParameter("@ServerDate", adDate, adParamOutput)
                .Execute
                GetDate = .Parameters("@ServerDate").Value
        End With
Er:
        If Not Com Is Nothing Then Set Com = Nothing
End Function
Try it

Answer 2

或者：
rs.open "exec sp_who",cn

Answer 3

不好意思,上面的這句要改一下
.Parameters .CreateParameter("@ServerDate", adDate, adParamOutput)
改成:
.Parameters.Append .CreateParameter("@ServerDate", adDate, adParamOutput)