Excel调取access数据进行查询，如何实现？

qjt_凛冬将至

基本情况是，有一个很大的access文件，需要做一个查询程序，打算在Excel中做。由于数据太多，无法全部导入到Excel中，就想通过Excel连接access来实现。由于还要做一个窗体来进行显示，单我不知道如何直接将查询结果显示到窗体中，就打算先把查询结果放到单元格内，再从单元格把结果显示到窗体内。所以想问一下如何用Excel对access进行查询，并把查询结果显示到相应单元格内？
关于Excel连接access，我是直接通过数据-自access-仅创建连接  ，这样可以吗？
Excel连接到access进行查询.zip (530.53 KB, 下载次数: 1750)

2014-7-13 11:30 上传

点击文件名下载附件

qjt_凛冬将至

可能我描述太复杂了，简单来说就是如何通过Excel查询access内的数据。

taller

是用ADO连接Access查询，请在论坛中搜索

zhaogang1960

qjt_凛冬将至 发表于 2014-7-13 15:16
可能我描述太复杂了，简单来说就是如何通过Excel查询access内的数据。

在Excel中用ADO连接Access数据库：
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\data of shipping.accdb"
再编写SQL查询语句，把查询结果复制到工作表中

zhaogang1960

数据表中的Builder_ID字段有重复值，下面程序仅查询第一条Builder_ID所对应的记录（请注意，D列数据不能超过4500行，否则会出现错行）：

1. Sub 宏1()
   
2.     Dim cnn As Object
   
3.     Dim SQL As String
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\data of shipping.accdb"
   
6.     SQL = "select b.Acquired_Price,b.Builder,b.Builder_CoD from [Excel 12.0;Database=" & ThisWorkbook.FullName _
   
7.         & ";].[" & ActiveSheet.Name & "$d1:d" & Range("d" & Rows.Count).End(xlUp).Row _
   
8.         & "] a left join (select Acquired_Price,Builder,Builder_CoD,first(Builder_ID) as Builder_ID from Sheet1 group by Acquired_Price,Builder,Builder_CoD) b on a.Builder_ID=b.Builder_ID"
   
9.     Range("A2").CopyFromRecordset cnn.Execute(SQL)
   
10.     cnn.Close
    
11.     Set cnn = Nothing
    
12. End Sub
    

复制代码

qjt_凛冬将至

zhaogang1960 发表于 2014-7-13 17:44
数据表中的Builder_ID字段有重复值，下面程序仅查询第一条Builder_ID所对应的记录（请注意，D列数据不能超过 ...

谢谢！Microsoft.ACE.OLEDB.12.0 是条明路啊，我本来一直在用Microsoft.jet.OLEDB.4.0连接但是却不成功。代码我等下好好研究，但请问为什么不能超过4500行？有什么解决办法吗？

qjt_凛冬将至

taller 发表于 2014-7-13 17:22
是用ADO连接Access查询，请在论坛中搜索

谢谢！！！

zhaogang1960

qjt_凛冬将至 发表于 2014-7-13 18:00
谢谢！Microsoft.ACE.OLEDB.12.0 是条明路啊，我本来一直在用Microsoft.jet.OLEDB.4.0连接但是却不成功。 ...

原因是生成的查询会根据某个字段重新进行排序，使得查询中的Builder_ID字段与D列Builder_ID顺序不同
解决办法：用查询中的Builder_ID字段覆盖D列Builder_ID，缺点是顺序发生变化了

qjt_凛冬将至

zhaogang1960 发表于 2014-7-13 18:12
原因是生成的查询会根据某个字段重新进行排序，使得查询中的Builder_ID字段与D列Builder_ID顺序不同
解决 ...

不好意思，再请问一下，如果我只是想查询一项Builder_ID（这个会通过复选框输入）对应的信息，应该怎么样写SQL代码
因为数据太多，如果全部导入到Excel太慢了，所以只要导入想查询的那条就可以了。

zhaogang1960

qjt_凛冬将至 发表于 2014-7-13 20:08
不好意思，再请问一下，如果我只是想查询一项Builder_ID（这个会通过复选框输入）对应的信息，应该怎么样 ...

没有理解，请上传附件说明