VB6.0 調用存儲過程

最近有在做一個需求，需要在VB6.0中調用存儲過程，整理了一下，供大家參考，

范例：

Function callStoredProcedure(sEmployeeID As String, Optional sNotes As String = "") As String
    On Error GoTo errHand
    Dim conn As ADODB.Connection
    Set conn = "driver={SQL Server};server=(local);uid=sa;pwd=;database=pubs"

    Dim adoComm As Object
    Set adoComm = CreateObject("ADODB.Command") '創建一個對象，用來調用存儲過程
    With adoComm
        .ActiveConnection = conn '設置連接
        .CommandType = 4 '類型為存儲過程，adCmdStoredProc = 4
        .CommandText = "dbo.SP_BIG_CASE_REPORT" '存儲過程名稱
        '.Parameters.Item("存儲過程中參數的名稱").Value = “值”
        .Parameters.Item("@EmployeeID").Value = sEmployeeID '設置輸入參數
        .Parameters.Item("@Notes").Value = sNotes
        .Execute '執行存儲過程
    End With
    Set conn = Nothing
    
    Exit Function
errHand:
    MsgBox "callStoredProcedure Error : " & Err.Description, vbOKOnly + vbCritical, sApplicName
End Function