Sql server 将输出变量值从存储过程提取到调用程序

我试图将sql存储过程中的输出值提取到调用程序中。存储过程是：

ALTER  PROCEDURE  selectdediario (@descr varchar(20),@disp decimal output)
AS  
begin
   SET NOCOUNT ON;
   SELECT @disp = sum(disp)
   FROM diario
   WHERE descr = @descr;
  return
  end

我收到的输出是：

Stored Procedure: mala2.dbo.Selectdediario
Return Code = 0
Output Parameter(s): 
@disp = 676

我的visual basic子过程在vb6.0中：

Private Sub cmdApendTable_Click()
' declare the variable to to receive the output value of the procedure
Dim vdescr As String
vdescr = "gas sousa"

Dim vdisp As Currency

Call StartConnection

Set cmdEmpresa = New ADODB.Command
With cmdEmpresa
.Parameters.Append .CreateParameter("@descr", adVarChar, adParamInput, 20, vdescr)
.Parameters.Append .CreateParameter("@disp money OUTPUT", adCurrency, adParamoutput)

.ActiveConnection = conexao
.CommandType = adCmdStoredProc
.CommandText = "Selectdediario"
Set rsEmpresa = .Execute
 End With
 Debug.Print disp
End Sub

---

程序要求参数

@disp

，因此我将其添加为0值。我想把

@disp

的值输入到我的程序中。

这一行的可能重复。Parameters.Append.CreateParameter（“@disp money OUTPUT”，adCurrency，adParamoutput）看起来像是你要把“@disp”而不是文字字符串parts money和OUTPUT这一行的可能重复。Parameters.Append.CreateParameter(“@disp money OUTPUT”、adCurrency、adParamoutput）看起来像是将“@disp”而不是文本字符串部分money和OUTPUT放在一起