如何实现多个access数据库间的查询

蒋老三 · 发表于 2009-11-24 22:30

我有两个access数据库，能不能对其查询，代码如何写呢？求救论坛上的老师们

[ 本帖最后由蒋老三于 2009-11-24 23:37 编辑 ]

来生缘 · 发表于 2009-11-24 23:50

不明白楼主意思，建议先搞个模板看看

蒋老三 · 发表于 2009-11-25 00:27

原帖由 来生缘 于 2009-11-24 23:50 发表
不明白楼主意思，建议先搞个模板看看

譬如，查询“华东”分销区域的总营业额，则从数据库 “基础资料” 及“数据库” 查询所有属于“华东”分销区域的客户的总营业额，并将查询结果显示在EXCEL中

[ 本帖最后由蒋老三于 2009-11-25 00:30 编辑 ]

来生缘 · 发表于 2009-11-25 08:03

按道理用jion应该可以

但你这种是两个数据库，如果是同一数据库的两个表应该没问题。。。。。。。。。、

ericfei · 发表于 2009-11-25 08:39

两个数据库的话只能分两次操作了。
分别建立两个数据库链接，取得数据后在VBA中进行筛选并输出。

apollokk · 发表于 2009-11-25 09:13

可以考虑合并数据库，或者链接表，这样只要操作一个库就简单多了

lipton · 发表于 2009-11-25 09:25

请测试：

Sub AdoExcelAcc()
Dim Cnn
Dim Sql As String

Set Cnn = CreateObject("ADODB.Connection")
With Cnn
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .ConnectionString = "Data Source =" & ThisWorkbook.Path & "\基础资料.mdb"
      .Open
End With
Sql = "SELECT aa.分销区域,aa.客户,bb.营业额 FROM [客户资料] as aa INNER JOIN [MS Access;DATABASE=" & _
ThisWorkbook.Path & "\数据库].销售表 as bb ON aa.客户=bb.客户 where aa.分销区域='华东';"

Sheet1.Range("a10").CopyFromRecordset Cnn.Execute(Sql)
Cnn.Close
Set Cnn = Nothing
End Sub

蒋老三 · 发表于 2009-11-25 17:28

原帖由 lipton 于 2009-11-25 09:25 发表
请测试：

Sub AdoExcelAcc()
Dim Cnn
Dim Sql As String

Set Cnn = CreateObject("ADODB.Connection")
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "D ...

感谢老师，多个数据库应该也可以吧

lipton · 发表于 2009-11-25 18:03

原帖由 蒋老三 于 2009-11-25 17:28 发表

感谢老师，多个数据库应该也可以吧

可以多个数据库联接，连接可以是多表结合包括左右连接，另一种方式多个表结构相同可以用联合查询

笨熊弟弟 · 发表于 2009-11-25 18:10

长见识了.....还好昨晚没有帮忙编辑...要不然笑死人了...

谢谢楼上的无私分享...

		自动登录	找回密码
密码			免费注册

[求助] 如何实现多个access数据库间的查询