查询问题

humengqiang

请教各位老师，我有一个access数据库表格，里面有大概20万条数据，数据中有一列是身份证号码。另外在一个excel表中有10000多个身份证号码，想查询出access数据库表的记录中，所有和这10000多个身份证号码相同的记录。我用的是循环命令，但是太慢，有没有什么办法可以快速查询？因数据量大，附件无法上传，所以只复制了我的代码，请问哪个老师可以教我什么方法快？
Sub 县域外就医()
    Dim cnn As New ADODB.Connection
    Dim sq As String
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\2016.mdb"
    For i = 1 To Sheets("sheet3").Range("a65536").End(xlUp).Row
     sq = "select *   from  数据库表  where  身份证号='" & Sheets("sheet3").Range("d" & i) & "'"
     Range("c" & [c65536].End(xlUp).Row + 1).CopyFromRecordset cnn.Execute(sq)
    Next i
   cnn.Close
   Set cnn = Nothing

end sub

jiangxiaoyun

用链接啊。。。。。。

jiangxiaoyun

select * from 表1,表2 where 表1.身份证=表2.身份证
或
select 表1.* from 表1 left join 表2 on 表1.身份证=表2.身份证

duquancai

慢的因素 还有你 不断读写单元格。用数组。

iwangyi

建议用数组或字典******

abc123281

想要有答案   最好能上传附件

ivccav

把for循环改为试试：

sq = "select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & ";].[sheet3$d1:d] A left join 数据库表 B on A.身份证号=B.身份证号"
Range("c" & [c65536].End(xlUp).Row + 1).CopyFromRecordset cnn.Execute(sq)
select *需要改为需要的字段，另外，你的sheet3是否有标题也未可知，我是假设D1单元格是标题“身份证号”了的。

humengqiang

就是附件太大，无法上传，谢谢各位指点，我先试试

humengqiang

ivccav 发表于 2018-8-4 12:46
把for循环改为试试：

sq = "select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & ";].[shee ...

d列没有标题。只是身份证号码