使用EXcel中的參數從Excel VBA運行SQL存儲過程

Question

我正在嘗試在vba下運行，但是不幸的是，當我添加參數范圍時，它不起作用（不執行任何操作，沒有任何錯誤），但是如果我使用簡單的代碼，它就可以完美地工作..請幫助！

    Dim HRCONN As ADODB.Connection
    Dim HRDATA As ADODB.Recordset
    Dim HRFIELD As ADODB.FIELD

    Set HRCONN = New ADODB.Connection
    Set HRDATA = New ADODB.Recordset

    HRCONN.connectionstring = CONSTRSQL
    HRCONN.Open

    On Error GoTo closeconnection

    With HRDATA
    .ACTIVECONNECTION = HRCONN

    .Source = "EXEC DBO.LATENCY_REPORT" & "'" & Range("M12").Value & "'" & "," & "'" & Range("M13").Value & "'" & "," & "'" & Range("B12").Value & "'"""


    .locktype = adLockReadOnly
    .cursortype = adopenforwardonly
    .Open
    End With

    On Error GoTo closerecordset

    Worksheets.Add

    For Each HRFIELD In HRDATA.Fields
        ActiveCell.Value = HRFIELD.Name
        ActiveCell.Offset(0, 1).Select
    Next HRFIELD

    Range("A1").Select
    Range("A2").CopyFromRecordset HRDATA
    Range("A1").CurrentRegion.EntireColumn.AutoFit

    On Error GoTo 0
closerecordset:
    HRDATA.Close
closeconnection:
    HRCONN.Close
End Sub

Answer 1

我從來沒有用VBA做到過那樣，但是我是用UI做到的。 因此，首先我要介紹的是查詢類型。 第二，我看不到參數之間的任何“，”。