使用 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 做过。所以，首先我要做的是查询类型。第二，我没有看到任何参数之间的“，”。