如何将存储过程执行的一个结果值赋给一个文本框?

Question

while not rs.eof
   Text.text=rs("字段名")
rs.movenext
wend

Answer 1

比喻作一个简单例子,存储过程为：CREATE PROCEDURE P_Count AS
                              select count(*) from sale
怎么把的P_Count 值赋给text1.text?

Answer 2

Use OUT parameter in your store procedure.

Answer 3

Sample:
CREATE PROCEDURE test
  @fld1 varchar (5) ,
@fld2 varchar(5),
         @ID int OUTPUT  //THIS IS A OUTPUT PARAMETER
AS
           Insert into test values(@fld1,@fld2 )
Select @ID=@@IDENTITYvb code:
Dim oSpParameters(15) As ADODB.Parameter
Dim oCmdInsSp As New ADODB.Command
Set oCmdInsSp.ActiveConnection = oConnoCmdInsSp.CommandText = "InsChkLeave"
oCmdInsSp.CommandType = adCmdStoredProcSet oSpParameters(1) = oCmdInsSp.CreateParameter("fld1", adVarChar, adParamInput, 5)
oSpParameters(1).Value = Trim(txt1.Text)
oCmdInsSp.Parameters.Append oSpParameters(1)Set oSpParameters(2) = oCmdInsSp.CreateParameter("fld2", adVarChar, adParamInput, 5)
oSpParameters(2).Value = Trim(txt2.Text)
oCmdInsSp.Parameters.Append oSpParameters(2)
Set oSpParameters(3) = oCmdInsSp.CreateParameter("ID", adInteger, adParamOutput) 'this is output parameter
oCmdInsSp.Parameters.Append oSpParameters(3)oCmdInsSp.ExecutetextID.Text=Cstr(oSpParameters(3).Value)

Answer 4

should be: Dim oSpParameters(3) As ADODB.Parameter