Question

我编写的代码在访问中连接两个表，使用Excel中下拉列表提供的条件，然后将数据返回到电子表格中的特定位置（工作表上已有的标题）。

这在我的盒子上以及机器上具有MS Access的其他人都可以正常工作，但写这个的目的是为了在他们的机器上（其中大部分都是）没有MS Access的人（同事）能够对数据库进行简单的查询。

当我们尝试在没有MS Access的计算机上运行它时，我们收到错误消息

“编译错误：无法找到项目或库。”

因为这在目前为止具有Access的任何机器上都可以正常工作，而不是其他机器，我想知道如果没有实际的Access软件这是不可能的。任何帮助或见解将不胜感激。

Answer 1

您需要使用ADO和“jet”提供商。这将允许您在没有安装访问权限的情况下查询访问数据库

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"

set objRecordset=Server.CreateObject("ADODB.recordset")
objRecordset.activeconnection = conn
objRecordset.source = "select * from table where field1 = 'asdf'"
objRecordset.open

'do you work here

objRecordset.close
conn.close

使用Excel从没有安装在计算机上的MS Access的Access中读取

1 个答案: