VB6.0 调用存储过程

本文主要是介绍VB6.0 调用存储过程，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

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

范例：

 1 Function callStoredProcedure(sEmployeeID As String, Optional sNotes As String = "") As String2     On Error GoTo errHand3     Dim conn As ADODB.Connection4     Set conn = "driver={SQL Server};server=(local);uid=sa;pwd=;database=pubs"5 6     Dim adoComm As Object7     Set adoComm = CreateObject("ADODB.Command") '创建一个对象，用来调用存储过程8     With adoComm9         .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

这篇关于VB6.0 调用存储过程的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---