Connecting Excel to Access

后端 未结 1 1917
自闭症患者
自闭症患者 2020-12-21 17:41

I\'m trying to connect excel on a database which has the following query.

SELECT * FROM Products WHERE Order = [Enter Order]

but excel can\

相关标签:
1条回答
  • 2020-12-21 18:28

    Some notes.

    "Parameter queries must be created in Microsoft Query."

    Customize a parameter query
    Use Microsoft Query to retrieve external data

    ADODB & VBA

    ''Ref: Microsoft ActiveX Data Objects x.x Library
    Dim cmd As New ADODB.Command
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim prm As ADODB.Parameter
    Dim strConn As String
    
    strConn = "Provider = Microsoft.ACE.OLEDB.12.0;" _
            & "Data Source=z:\docs\test.accdb"
    
    conn.Open strConn
    
    cmd.ActiveConnection = conn
    cmd.CommandText = "Query4"
    cmd.CommandType = adCmdStoredProc
    Set prm = cmd.CreateParameter("EnterText", adVarWChar, adParamInput, 50)
    cmd.Parameters.Append prm
    cmd.Parameters("EnterText").Value = ActiveWorkbook.Sheets("Sheet5").[A2]
    
    'Execute the Stored Procedure
    Set rs = cmd.Execute
    ActiveWorkbook.Sheets("Sheet8").Cells(2, 1).CopyFromRecordset rs
    'Close the connection
    conn.Close
    
    0 讨论(0)
提交回复
热议问题