请老师帮我实现（按时间段、按内容条件）查询两个子表数据。

zhaogang1960

有一个字段不查询，就不能用*表示了，需要逐个字段列出，区域也要相应改变：[Sheet4$B4:n]"
请看附件
按时间段查询俩表数据SQL (2).rar (22 KB, 下载次数: 252)

2012-5-18 17:52 上传

点击文件名下载附件

xm2012

zhaogang1960 发表于 2012-5-18 17:51
SQL = "select * from [Sheet2$B4:M]" & t & " union all select * from [Sheet3$B4:M]" & t & " union a ...

谢谢老师，太感谢老师您了！！！

xm2012

zhaogang1960 发表于 2012-5-18 17:52
有一个字段不查询，就不能用*表示了，需要逐个字段列出，区域也要相应改变：[Sheet4$B4:n]"
请看附件

谢谢！！！谢谢老师！！！现在的心情除啦说谢谢，都不知道如何表达现在激动的心情！！！

handsomcao

zhaogang1960 发表于 2012-5-18 17:51
SQL = "select * from [Sheet2$B4:M]" & t & " union all select * from [Sheet3$B4:M]" & t & " union a ...

老师，我依葫芦画瓢，套用了，但有一个问题，单号不能查询，请帮我看看

1. Sub 明细()
   
2.     Dim cnn As Object, rs As Object, SQL$
   
3.    
   
4.    
   
5.     If [a2] <> "" Then s = s & " and 单号 ='" & [a2] & "'"
   
6.     If [b2] <> "" Then s = s & " and 辅助列 ='" & [b2] & "'"
   
7.     If [c2] <> "" Then s = s & " and 仓库 ='" & [c2] & "'"
   
8.    
   
9.     If s <> "" Then t = " where " & Mid(s, 5)
   
10.     Set cnn = CreateObject("Adodb.Connection")
    
11.     Set rs = CreateObject("Adodb.Recordset")
    
12.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ActiveWorkbook.FullName
    
13.    
    
14.    
    
15.     SQL1 = "select  '入库' as 收支,日期,单号,单据类型,辅助列,物料名称,规格型号,单位,数量,仓库,备注  from [入帐$a:k] where 品号 is not null union all select  '出库' as 收支,日期,单号,单据类型,辅助列,物料名称,规格型号,单位,数量,仓库,备注 from [出帐$a:k] where 品号 is not null"
    
16.     SQL2 = "select * from (" & SQL1 & ")" & t & " union all select * from (" & SQL1 & ")" & t
    
17.     SQL = "select 收支,日期,单号,单据类型,辅助列,物料名称,规格型号,单位,数量,仓库,备注  from (" & SQL2 & ") order by 日期"
    
18.    
    
19.     rs.Open SQL, cnn, 1, 3
    
20.     Range("a5:l10000").ClearContents
    
21.     Range("a5").CopyFromRecordset rs
    
22.    
    
23.     rs.Close
    
24.     cnn.Close
    
25.     Set rs = Nothing
    
26.     Set cnn = Nothing
    
27.    
    
28. End Sub

复制代码

z00128284

学习了 ,很不错

真的也许是菜鸟

请老师帮忙看看，加一段按时间段查询的代码，谢谢。