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

Question

一个例子:
    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帮助)

Answer 1

用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