批量查询ACCESS中内容

lyyy · 发表于 2010-11-17 20:58

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

bibisin · 发表于 2010-11-17 21:26

在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 · 发表于 2010-11-17 22:32

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

bibisin · 发表于 2010-11-17 23:32

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

复制代码

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

lyyy · 发表于 2010-11-18 19:53

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

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

bibisin · 发表于 2010-11-18 19:58

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

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

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

darren987 · 发表于 2011-2-15 09:37

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

praisemikes · 发表于 2012-6-14 16:08

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

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

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

[求助] 批量查询ACCESS中内容