关于SQL在工作簿-工作表之间的查询、排序、转置（盖楼中....）

nhxyq

学习{:soso_e100:}

jinsha2002

学习{:soso_e163:}

opiona

1. 
   
2. Dim StrSQL$, Cn As Object
   
3. Set Cn = CreateObject("Adodb.Connection") '新建一个ADO连接
   
4. t = Timer   '开始时间
   
5. Cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=YES';data source=" & ThisWorkbook.FullName
   
6. 
   
7. Set sh1 = Sheets("朝阳站")
   
8. SQL1 = ""
   
9. SQL1 = SQL1 + "SELECT 配送站点,format(导入时间,'yyyy-M-d') as 日期,金额,状态,最新异常信息"
   
10. SQL1 = SQL1 + " FROM [汇递通信息$] WHERE 1=1"
    
11. SQL1 = SQL1 + " and 状态<>'取消' "
    
12. SQL1 = SQL1 + " and 最新异常信息<>'货已经退回当当库房'"
    
13. '问题就在上一句上, 求：不为“货已经退回当当库房”的数据,含空白
    
14. '为甚不等于在这里出错呢？？？
    
15. '不注释掉，只能查到符合条件的此列非空行（此列为空的行我也要）
    
16. '注释掉就OK， 此列全部就显示出来，包括：货已经退回当当库房
    
17. '一定要加这个条件，但是不知道错在那里？
    
18. '是代码问题？ 还是数据问题？
    
19. 
    
20. SQL1 = SQL1 + " and 客户名称 LIKE '" & sh1.Cells(2, 2) & "%'"
    
21. SQL1 = SQL1 + " and 配送站点 LIKE '" & sh1.Name & "%'"
    
22. SQL1 = SQL1 + " ORDER BY 最新异常信息 desc"
    
23. MsgBox SQL1
    
24. Sheets("查询结果").Range("A2:G65536").ClearContents
    
25. Sheets("查询结果").Range("A2").CopyFromRecordset Cn.Execute(SQL1)      '在分表中指定位置粘贴数据集
    
26. Sheets("查询结果").Select
    
27. Cn.Close  '关闭ADO连接

复制代码

报表-2.1.rar (33.24 KB, 下载次数: 60)

2012-6-20 13:23 上传

点击文件名下载附件

群主帮助看看，是代码问题，还是数据问题！

opiona

那位大侠，帮忙看看上面的问题！

引子玄

Windows(ThisWorkbook.Name).Activate '回到操作主表界面

wuxiang_123

bluexuemei 发表于 2012-2-29 22:03
赵版，前面为什么多了一个1？

因为编号同时作为行字段和列标题.利用NULL的特性修改即可.

1. TRANSFORM sum([压实度（%）]) as YY  SELECT  NULL FROM [压实度$a3:j14] GROUP BY 0 PIVOT 编号

复制代码

opiona

路过的大侠，给看看33楼的问题呗！
有点着急了！
困扰了3天！！
{:soso_e149:}

wuxiang_123

opiona 发表于 2012-6-20 13:26
群主帮助看看，是代码问题，还是数据问题！

1. SELECT 配送站点,format(导入时间,'yyyy-M-d') as 日期,金额,状态,最新异常信息 FROM [汇递通信息$] WHERE 1=1 and 状态<>'取消' and (最新异常信息<>'货已经退回当当库房' OR 最新异常信息 IS NULL) AND 客户名称 LIKE '当当%' AND 配送站点 LIKE '朝阳站%' ORDER BY 最新异常信息 DESC

复制代码

NULL表示未知值或结果未知,所以,无法判断NULL是否<>'货已经退回当当库房' ,故null不符合<>'货已经退回当当库房' 条件,使用OR加上最新异常信息为NULL即可.

opiona

源数据

效果图

Book2.rar (45.12 KB, 下载次数: 54)

2012-7-22 00:57 上传

点击文件名下载附件
附件

wuxiang_123

opiona 发表于 2012-7-22 00:59

按下面格式写，利用聚合函数忽略空值。

1. select 编号,姓名,max([01日]) as [01日],……,MAX([31日]) AS [31日] FROM 表 GROUP BY 编号,姓名

复制代码