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

  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 1

打赏作者

zuoxingyu

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值