[申请加精]SQL表中的行列转置

sunsoncheng

HkYds5HJ.rar (4.72 KB, 下载次数: 151)

2008-3-2 15:24 上传

点击文件名下载附件
[申请加精]SQL表中的行列转置

[此贴子已经被作者于2008-3-3 22:54:54编辑过]

wsri

4\都来几年了,有个这么灵光的想法,也该奖励下了

支持一下！希望版主鼓励！！！

ychh_wy

SQL表中有没有数据透视表呢?

彭希仁

TRANSFORM SUM([销量]) SELECT [省份] FROM [数据$A1:IV65536] GROUP BY [省份] PIVOT [机型]

一句话就搞定了,那有你说的这么麻烦.

sunsoncheng

这是本人实际的情况,从sql2000数据库中取出一个查询,再从该查询中将厚度转置,如下图中,的0.38   0.76两项就是厚度的两个结果,我按彭大人的说法画个葫芦,但出错了,请指示.

    胶片成品 = " round(sum(case   when A1.宽 > = IsNull(A1.上底,0) then  A1.宽  else  A1.上底  end  " & _
               " * A1.高 * A2.数量*A2.数量级/1000000) , 2)  as 胶片面积  "
   

    SQL2 = "  select A2.生产日期,A1.厚 , A3.厚度 , " & _
              胶片成品 & ", " & 加大面积 & "   " & _
            "  from  客户原数 A1,胶片使用记录 A2,胶片资料 A3" & _
            "  where " & DateArr & " and A1.单号=A2.单号 " & _
            "  and A1.序号=A2.序号 and A2.卷级 is not null  " & _
            "  and A2.卷级=A3.卷号   " & _
            "  group by A2.生产日期,A1.厚,A3.厚度"
               
    SQL3 = Replace(SQL2, "级", "一") & "   union " & _
           Replace(SQL2, "级", "二") & "   union " & _
           Replace(SQL2, "级", "三") & "   union " & _
           Replace(SQL2, "级", "四")
               
    strsql = " TRANSFORM SUM(胶片面积) SELECT 厚 FROM (" & SQL3 & ") as A group by 生产日期,厚  PIVOT 厚度 "

    'strsql = " TRANSFORM SUM(A.胶片面积) SELECT A.生产日期,A.厚 FROM (" & SQL3 & ") as A group by A.生产日期,A.厚  PIVOT A.厚度 "

两个都有错误提示,

请指点

 

[此贴子已经被作者于2008-3-3 9:23:53编辑过]

nawong

Sub BB()

        Dim tt As Date
        tt = Now()
        Dim cnn
        Dim RS1 As New ADODB.Recordset
 
        Set cnn = CreateObject("ADODB.Connection")
        cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes';Data Source=F:\不打開工作薄批量刪除資料11.xls"

        RS1.Open ("TRANSFORM Max([Sheet1$].數量) AS 數量之最大值 SELECT [Sheet1$].姓名 FROM [Sheet1$] GROUP BY [Sheet1$].姓名 PIVOT [Sheet3$].項目"), cnn
       
       
        Range("A2").CopyFromRecordset RS1
       
        RS1.Close
        Set RS1 = Nothing

        cnn.Close
        Set cnn = Nothing
    MsgBox Format(Now() - tt, "ss")

End Sub

[此贴子已经被作者于2008-3-3 11:28:06编辑过]

sunsoncheng

非常感谢两位的指点,经测试在SQL2000上行不通!

出的错误在一楼已补上

sunsoncheng

请各位再测试下是否有问题的说

兰州人

你的帖子说

在word 才900多字,但这里却不让发表了,不知道何故?

问题主要是表格线占字节数太大。

彭希仁

http://club.excelhome.net/viewthread.php?tid=268622&px=0

用这个工具,按说明进行设置,可以自动生成你所需要的SQL语句.