求助在EXCEL中多条件、多数据查询Access

hbqjzdk

TEM.rar (27.03 KB, 下载次数: 38)

2011-12-31 11:47 上传

点击文件名下载附件

本人是个Access盲，求助各位大侠了，先行谢过！

zhangjimfu

1. Sub test()
   
2.    
   
3.     Dim cnn, rst, strSql$, i%
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     Set rst = CreateObject("ADODB.Recordset"): i = 2
   
6.    
   
7.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & ThisWorkbook.Path & "\db1.mdb"
   
8.     While Cells(i, 1) <> ""
   
9.         strSql = "Select 字段3,字段2 From 数据库 Where 字段5=" & Cells(i, 1) & " and 字段4=" & Cells(i, 2)
   
10.         Set rst = cnn.Execute(sqlstr)
    
11.         Range("c" & i).CopyFromRecordset rst
    
12.         i = i + 1
    
13.     Wend
    
14.    
    
15.     cnn.Close
    
16.     Set cnn = Nothing
    
17.     Set rst = Nothing
    
18.    
    
19. End Sub
    

复制代码

供参考!

hbqjzdk

谢谢版主!但是在我这里运行错误:没有为命令对象设置命令;点调试就到Set rst = cnn.Execute(sqlstr)这句上面显示黄色

hbqjzdk

发现原因了,是拼写错误,前面是strsql,后面是 sqlstr,改过了就好了!太感谢了,解决了一个大问题!谢谢版主