sql 中的返回值

[chenxyon]

各为高手，如何在sql 中将储存过程中的返回值在VB中使用。

[wangchong]

什么意思？？？

[Luke_cn]

用ADO的command 对象来调用存储过程，并且设置一变量来接收存储过程的返回值（如果有的话）。

[cqq_chen]

Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = cn
With cmd
.CommandType = adCmdStoredProc
.CommandText = "Update_TPers"
.Parameters.Refresh
xh.Col = 2
xh.Row = 1
.Parameters("@FNumber") = xh.Text
.Parameters("@FNumber").Direction = adParamInput
xh.Col = 2
xh.Row = 2
.Parameters("@FName") = xh.Text
.Parameters("@FName").Direction = adParamInput
xh.Col = 2
xh.Row = 3
.Parameters("@FSex") = xh.Text
.Parameters("@FSex").Direction = adParamInput
xh.Col = 2
xh.Row = 4
.Parameters("@FBegDate") = xh.Text ' Format(xh.Text, "yyyy-mm-dd")
.Parameters("@FBegDate").Direction = adParamInput
xh.Col = 2
xh.Row = 5
.Parameters("@FDeprNumber") = xh.Text
.Parameters("@FDeprNumber").Direction = adParamInput
xh.Col = 2
xh.Row = 6
.Parameters("@FDeprName") = xh.Text
.Parameters("@FDeprName").Direction = adParamInput
xh.Col = 2
xh.Row = 7
.Parameters("@FZyName") = xh.Text
.Parameters("@FZyName").Direction = adParamInput
xh.Col = 2
xh.Row = 8
.Parameters("@FZbName") = xh.Text
.Parameters("@FZbName").Direction = adParamInput
xh.Col = 2
xh.Row = 9
.Parameters("@FXlName") = xh.Text
.Parameters("@FXlName").Direction = adParamInput
xh.Col = 2
xh.Row = 10
.Parameters("@FGbName") = xh.Text
.Parameters("@FGbName").Direction = adParamInput
xh.Col = 2
xh.Row = 11
.Parameters("@FHjName") = xh.Text
.Parameters("@FHjName").Direction = adParamInput
xh.Col = 2
xh.Row = 12
If xh.Text = "" Then
.Parameters("@FEndDate") = Null
.Parameters("@FEndDate").Direction = adParamInput
Else
.Parameters("@FEndDate") = Format(xh.Text, "yyyy-mm-dd")
.Parameters("@FEndDate").Direction = adParamInput
End If
xh.Col = 2
xh.Row = 13
.Parameters("@FZj") = xh.Text
.Parameters("@FZj").Direction = adParamInput
xh.Col = 2
xh.Row = 14
.Parameters("@FBank") = xh.Text
.Parameters("@FBank").Direction = adParamInput
xh.Col = 2
xh.Row = 15
.Parameters("@FQb") = xh.Text
.Parameters("@FQb").Direction = adParamInput
xh.Col = 2
xh.Row = 16
.Parameters("@FSj") = xh.Text
.Parameters("@FSj").Direction = adParamInput
xh.Col = 2
xh.Row = 17
.Parameters("@FKc") = xh.Text
.Parameters("@FKc").Direction = adParamInput
xh.Col = 2
xh.Row = 18
.Parameters("@FKj") = xh.Text
.Parameters("@FKj").Direction = adParamInput
xh.Col = 2
xh.Row = 19
.Parameters("@FKh") = xh.Text
.Parameters("@FKh").Direction = adParamInput
xh.Col = 2
xh.Row = 20
.Parameters("@FHtDate") = IIf(Len(xh.Text) = 0, Null, Format(xh.Text, "yyyy-mm-dd"))
.Parameters("@FHtDate").Direction = adParamInput
xh.Col = 2
xh.Row = 21
.Parameters("@FAddress") = xh.Text
.Parameters("@FAddress").Direction = adParamInput
xh.Col = 2
xh.Row = 22
.Parameters("@FBirthday") = IIf(Len(xh.Text) = 0, Null, Format(xh.Text, "yyyy-mm-dd"))
.Parameters("@FBirthday").Direction = adParamInput
xh.Col = 2
xh.Row = 23
.Parameters("@FNote") = xh.Text
.Parameters("@FNote").Direction = adParamInput
.Parameters("@FFull") = strFull
.Parameters("@FFull").Direction = adParamInput
.Execute
End With

[hhbll_2001]

Dim cmd As New ADODB.Command
Dim ParamA As New ADODB.Parameter
ParamA.Type = adInteger
ParamA.Direction = adParamOutput '定义为输出参数
cmd.Parameters.Append ParamA
......
cmd.Execute
MsgBox ParamA.Value 'text1.text=parama.value