在VB中如何用调用带参数的存储过程？

[dqj]

在VB中如何用调用带参数的存储过程？

[wjl]

一个例子:
Result = SqlRpcInit(Sqlconn, "sp_dboption", 0)
Result = SqlRpcParam(Sqlconn, "@dbname", 0, SQLCHAR, 30, Len("UserInfo"), "UserInfo")
Result = SqlRpcParam(Sqlconn, "@optname", 0, SQLCHAR, 35, Len("Select into/bulkcopy"), "Select into/bulkcopy")
Result = SqlRpcParam(Sqlconn, "@optvalue", 0, SQLCHAR, 10, Len("true"), "true")
Result = SqlRpcExec(Sqlconn)
(以上程序使用db_library API,详细使用情况请阅读vb帮助)

[lyy]

用VB的ADO就可以实现，例子如下：
Dim lconn As New ADODB.Connection
Dim lcmd As New ADODB.Command
Dim Param1, Param2, Param3, Param4, Param5 As ADODB.Parameter

lconn.Open gsCon
lcmd.ActiveConnection = lconn
lcmd.CommandText = "sp_aaa" ' 存储过程名
lcmd.CommandType = adCmdStoredProc

Set Param1 = lcmd.CreateParameter("nf", adInteger, adParamInput)
Set Param2 = lcmd.CreateParameter("yf", adInteger, adParamInput)
Set Param3 = lcmd.CreateParameter("jls", adInteger, adParamInput)
Set Param4 = lcmd.CreateParameter("retcode", adInteger, adParamOutput)
Set Param5 = lcmd.CreateParameter("retmsg", adBSTR, adParamOutput, 30)

Param1.Value = Int(Trim(txtNf.Text)) ' 打印年份
Param2.Value = Int(Trim(txtYf.Text)) ' 打印月份
Param3.Value = Int(Trim(txtPage.Text)) ' 打印月份

lcmd.Parameters.Append Param1
lcmd.Parameters.Append Param2
lcmd.Parameters.Append Param3
lcmd.Parameters.Append Param4
lcmd.Parameters.Append Param5

lcmd.Execute
lconn.close