Question

如何用VB6调用带参数带输出的存储过程？

有这么这存储过程。我在VB6里面该如何调用？

CREATE PROCEDURE Valid(
@CustName varchar(100),
@date varchar(10),
@OUT varchar(5) OUTPUT
)
AS

IF exists(select 1 from ServiceFee
where fee_CustName=@CustName
and (Year(@date) Between fee_BeginDate And fee_EndDate)
)
SELECT @OUT='TRUE'
ELSE
SELECT @OUT='FALSE'
GO

Answer 1

追加参数法调用存储过程

　　追加参数通过CreateParameter方法，用来指定属性创建新的Parameter对象。具体语法如下：

Set parameter = command.CreateParameter (Name, Type, Direction, Size, Value)

　　·Name 可选，字符串，代表 Parameter 对象名称。
　　·Type 可选，长整型值，指定 Parameter 对象数据类型。
　　·Direction 可选，长整型值，指定 Parameter 对象类型。
　　·Size 可选，长整型值，指定参数值最大长度（以字符或字节数为单位）。
　　·Value 可选，变体型，指定 Parameter 对象值。

　　这种方法与上面一种方法的分别主要在于，追加参数的方法在向存储过程传递参数时，这种方法首先通过CreateParameter方法为存储过程创建参数，然后通过Append方法将创建的参数追加到Parameters集合中去。

　　仍然以存储过程doc_ProcName的调用为例，关键代码如下：

Dim mRst As ADODB.Recordset 'Recordset 对象表示的是来自基本表或命令执行结果的记录全集。
Dim prm As ADODB.Parameter 'Parameter 对象代表参数或与基于参数化查询或存储过程的Command 对象相关联的参数。
adoconn.ConnectionString = Adodc1.ConnectionString
adoconn.Open
Set adocomm.ActiveConnection = adoconn
adocomm.CommandText = "doc_ProcName"
adocomm.CommandType = adCmdStoredProc
Set prm = adocomm.CreateParameter("parameter1", adTinyInt, adParamInput, , "1")
adocomm.Parameters.Append prm
Set prm = adocomm.CreateParameter("parameter2", adInteger, adParamOutput)
adocomm.Parameters.Append prm
Set mRst = adocomm.Execute
ReturnValue = adocomm.Parameters(0)