2

我正在尝试在具有以下查询的数据库上连接 excel。

SELECT * FROM Products WHERE Order = [Enter Order]

但 excel 似乎找不到这个查询。它只显示实际表和其他不使用参数的查询。

有没有办法在使用参数的查询上连接 excel?我正在使用 MS-Excel 2007。

4

1 回答 1

2

一些笔记。

“必须在 Microsoft Query 中创建参数查询。”

自定义参数查询
使用 Microsoft Query 检索外部数据

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
于 2012-05-30T11:46:09.070 回答