[已解决]如何实现在另一工作表中显示满足条件的所有记录

scdiye

急求附件疑难解答，谢谢各位大侠相助！

最佳答案

月排行榜 / 总排行榜

柳如烟

2012-9-2 15:53

修改一下代码试试能不能发。

1. 
   
2. 
   
3. Sub 查询()
   
4.     Dim cn, rs, sql$
   
5.     Set cn = CreateObject("adodb.connection")
   
6.     With cn
   
7.         .provider = "microsoft.ace.oledb.12.0"
   
8.         .connectionstring = "extended properties='excel 12.0;hdr=no';data source=" & ThisWorkbook.FullName
   
9.         .Open
   
10.     End With
    
11.     sql = "select f7,f8,f9,f10,f11,f12,f13,f14,f15,f17 from [产品信息库$a2:q"
    
12.     sql = sql & Sheet2.Range("a65536").End(3).Row & "] where"
    
13.     With Sheet3
    
14.         If .Range("d2") <> "" Then sql = sql & " f8='" & .Range("d2") & "' and "
    
15.         If .Range("g2") <> "" Then sql = sql & " f9='" & .Range("g2") & "' and "
    
16.         If .Range("j2") <> "" Then sql = sql & " f7 like '%" & .Range("j2") & "%' and "
    
17.         sql = Left(sql, Len(sql) - 5)
    
18.         Set rs = cn.Execute(sql)
    
19.         .Range("4:1000").ClearContents
    
20.         .Range("a4").CopyFromRecordset rs
    
21.     End With
    
22.     cn.Close: Set cn = Nothing
    
23. End Sub
    

复制代码

跳转到最佳答案楼层

lisachen

求助：信息库查询，先谢谢了.rar (26.17 KB, 下载次数: 35)

2012-9-2 15:11 上传

点击文件名下载附件

柳如烟

不能发代码，只发附件吧。

柳如烟

不能发代码，提示“含有不良信息”，汗！
只好发张图片了，附件中有代码。

柳如烟

修改一下代码试试能不能发。

1. 
   
2. 
   
3. Sub 查询()
   
4.     Dim cn, rs, sql$
   
5.     Set cn = CreateObject("adodb.connection")
   
6.     With cn
   
7.         .provider = "microsoft.ace.oledb.12.0"
   
8.         .connectionstring = "extended properties='excel 12.0;hdr=no';data source=" & ThisWorkbook.FullName
   
9.         .Open
   
10.     End With
    
11.     sql = "select f7,f8,f9,f10,f11,f12,f13,f14,f15,f17 from [产品信息库$a2:q"
    
12.     sql = sql & Sheet2.Range("a65536").End(3).Row & "] where"
    
13.     With Sheet3
    
14.         If .Range("d2") <> "" Then sql = sql & " f8='" & .Range("d2") & "' and "
    
15.         If .Range("g2") <> "" Then sql = sql & " f9='" & .Range("g2") & "' and "
    
16.         If .Range("j2") <> "" Then sql = sql & " f7 like '%" & .Range("j2") & "%' and "
    
17.         sql = Left(sql, Len(sql) - 5)
    
18.         Set rs = cn.Execute(sql)
    
19.         .Range("4:1000").ClearContents
    
20.         .Range("a4").CopyFromRecordset rs
    
21.     End With
    
22.     cn.Close: Set cn = Nothing
    
23. End Sub
    

复制代码

scdiye

非常感谢
我再研究一下怎么把它弄到工作表里去 {:301:}

scdiye

lisachen 发表于 2012-9-2 15:12

非常感谢！
可，输入单一条件查询时就报错
经常遇到的情况是：输入1个或2个查询条件，如型号+产品名称，或 型号，或 产品名称

xxlh33

多多学习，多掌握知识

kgxuehua

？？