VB6.0 调用存储过程

最近有在做一个需求,需要在VB6.0中调用存储过程,整理了一下,供大家参考,

范例:

 1 Function callStoredProcedure(sEmployeeID As String, Optional sNotes As String = "") As String
 2     On Error GoTo errHand
 3     Dim conn As ADODB.Connection
 4     Set conn = "driver={SQL Server};server=(local);uid=sa;pwd=;database=pubs"
 5 
 6     Dim adoComm As Object
 7     Set adoComm = CreateObject("ADODB.Command") '创建一个对象,用来调用存储过程
 8     With adoComm
 9         .ActiveConnection = conn '设置连接
10         .CommandType = 4 '类型为存储过程,adCmdStoredProc = 4
11         .CommandText = "dbo.SP_BIG_CASE_REPORT" '存储过程名称
12         '.Parameters.Item("存储过程中参数的名称").Value = “值”
13         .Parameters.Item("@EmployeeID").Value = sEmployeeID '设置输入参数
14         .Parameters.Item("@Notes").Value = sNotes
15         .Execute '执行存储过程
16     End With
17     Set conn = Nothing
18     
19     Exit Function
20 errHand:
21     MsgBox "callStoredProcedure Error : " & Err.Description, vbOKOnly + vbCritical, sApplicName
22 End Function

 

转载于:https://www.cnblogs.com/AnneHan/p/4958978.html

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值