批量查询ACCESS中内容

lyyy

我想查询ACCESS表“机号”字段中等于EXCEL表中的A2:A10，该怎样写SQL语句。
下面这个是我自己写的，报错：类型不匹配
Sql = "Select * From 厂家 Where 机号 IN ('" & Range("A2:A10") & "')"

bibisin

在ACCESS中操作，然后提取EXCEL表中单元格内容，倒是没试过
LZ试试可不可以建子查询来帮助，像这样
假设A2：A10中，A2为字段"机号"，A3：A10为机号明细
Sql = "Select * From 厂家 Where 机号 IN (select 机号 from [EXCEL表页名$A2:A10])

[ 本帖最后由 bibisin 于 2010-11-17 21:28 编辑 ]

lyyy

多谢楼上老师的回答，但没做成功，请给做个例子好吗。见附件：

bibisin

1. 
   
2. Sub 查询()
   
3.     Dim aa As String, num As Integer
   
4.     For num = 1 To 9
   
5.         aa = aa & """" & [a1].Offset(num, 0) & ""","
   
6.     Next
   
7.     Range("C2:J65536").ClearContents
   
8.    
   
9.     Set cnn = CreateObject("Adodb.Connection")
   
10.     Set rst = CreateObject("Adodb.Recordset")
    
11.     Stpath = ThisWorkbook.Path & Application.PathSeparator & "Êý¾Ý¿â.mdb"
    
12.     cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    
13.     cnn.Open "Data Source =" & Stpath & ";Jet OLEDB:Database Password=" & ""
    
14.    
    
15.     'Sql = "Select * From ³§¼Ò Where »úºÅ IN ('" & Range("A2") & "','" & Range("A3") & "','" & Range("A4") & "','" & Range("A5") & "','" & Range("A6") & "','" & Range("A7") & "','" & Range("A8") & "','" & Range("A9") & "','" & Range("A10") & "')"
    
16.     Sql = "Select * From ³§¼Ò Where »úºÅ IN (" & aa & ")"
    
17. 
    
18.     Range("C2").CopyFromRecordset cnn.Execute(Sql)
    
19.     Set rst = Nothing
    
20.     Set cnn = Nothing
    
21. End Sub
    

复制代码

新建文件夹.rar (33.13 KB, 下载次数: 95)

2010-11-17 23:32 上传

点击文件名下载附件

lyyy

非常感谢bibisin老师，代码正是我想要的。

另外，就是因为实际工作中，数据太多，运行速度有点慢。数据库中有40+列、50W+行，经常需要同时查询出2000-3000条记录。

bibisin

原帖由 lyyy 于 2010-11-18 19:53 发表
非常感谢bibisin老师，代码正是我想要的。

另外，就是因为实际工作中，数据太多，运行速度有点慢。数据库中有40+列、50W+行，经常需要同时查询出2000-3000条记录。

考虑全部在ACCESS中完成，如要分析再用EXCEL

darren987

我要從Access 匯入 Excel 的表
嘗試將SQL放入Access 還是搞不懂

praisemikes

bibisin 发表于 2010-11-18 19:58
考虑全部在ACCESS中完成，如要分析再用EXCEL

bibisin,能实现SELECT IN模糊查询吗？