MYSQL存储过程VB调用方法。

Private Sub Command1_Click()
   
    Dim MyComm As New ADODB.Command      '定义一个命令对象
    Dim Rs_GetList As New ADODB.Recordset '定义一个记录集对象
    Dim param As ADODB.Parameter         '定义一个参数对象
   
    With MyComm
        .ActiveConnection = Cn           '数据连接
        .CommandText = "pp"              '存储过程名称
        .CommandType = adCmdStoredProc   '表明这是一个存储过程
        .Prepared = True                 '要求将SQL命令先行编译
        Set param = .CreateParameter("@a", adInteger, adParamInput, 4, 3)   '申明一个参数
        .Parameters.Append param         '把参数添加到参数列表里
        Set Rs_GetList = .Execute        '执行此存储过程，返回记录集
    End With
   
    While Not Rs_GetList.EOF             '循环打印记录集的字段
        Debug.Print Rs_GetList.Fields(0).Value
        Rs_GetList.MoveNext
    Wend
End Sub