Connecting Excel to Access

巧了我就是萌 提交于 2020-03-12 05:32:20

问题


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

SELECT * FROM Products WHERE Order = [Enter Order]

but excel can't seem to find this query. It only shows the actual table and other queries which does not use parameters.

Is there a way to connect excel on a query which uses parameters? I'm using MS-Excel 2007.


回答1:


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


来源:https://stackoverflow.com/questions/10815204/connecting-excel-to-access

标签
易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!