问通过VBA将值动态传递给SQL Server

EN

Private Sub cmdImport_Click()

    Call cmdClear_Click

    Dim conn As New ADODB.Connection, cmd As New ADODB.Command, rs As New ADODB.Recordset

    With conn
        .ConnectionString = _
            "Provider=SQLOLEDB; " & _
            "Data Source=PRGTAPPDBSWC019; " & _
            "Initial Catalog=DETEP;" & _
            "Integrated Security=SSPI;"
        .Open
    End With

    With cmd
        .ActiveConnection = conn
        .CommandText = "SELECT * FROM [dbo].[tbl_PMHeader] WHERE [PMHeader_PM_NUM] = '30881570'"
        .CommandType = adCmdText
    End With

    Set rs.Source = cmd
    rs.Open

    'Need this to populate header row, starting at specified Range
    For intColIndex = 0 To rs.Fields.Count - 1
        Range("B1").Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name
    Next

    'This is where your data table will be copied to
    ActiveSheet.Range("B2").CopyFromRecordset rs

    Worksheets("Sheet1").Columns("B:BB").AutoFit

    Worksheets("Sheet1").Range("A25").Formula = "=COUNTA(B:B)-1"

End Sub