行列转换的SQL语句

A195713812

高手帮我看看，用Sql语句怎么进行行列的转换，我转换的时候只能列字段只能有一列，大侠帮我看看该怎么写，详情见附件 sql合并多列数据.rar (10.3 KB, 下载次数: 37)

2015-8-15 17:11 上传

点击文件名下载附件

wuxiang_123

1. transform first(辅助列)
   
2. select 款号,条形码,类别 from [sheet1$a:f]
   
3. where 款号
   
4. group by 款号,条形码,类别
   
5. pivot 规格

复制代码

A195713812

wuxiang_123 发表于 2015-8-15 22:25

sql合并多列数据2.rar (12.55 KB, 下载次数: 25)

2015-8-16 10:46 上传

点击文件名下载附件

谢谢，完美的解决了我的问题，我这边还有一个问题，麻烦帮我看一下

wuxiang_123

A195713812 发表于 2015-8-16 10:46
谢谢，完美的解决了我的问题，我这边还有一个问题，麻烦帮我看一下

猜测结果：

1. transform first(辅助列)
   
2. select 款号,条形码,类别 from
   
3. (SELECT A.款号,A.条形码,A.类别,A.规格,B.辅助列  FROM [sheet1$a:f]A,[sheet1$a:f]B
   
4. WHERE A.款号=B.款号)
   
5. where 款号
   
6. group by 款号,条形码,类别
   
7. pivot left(辅助列,2)

复制代码

A195713812

wuxiang_123 发表于 2015-8-17 00:06
猜测结果：

果然强大无比

LMY123

Sub Test4()
  Dim Conn As Object, Rst As Object
  Dim strConn As String, strSQL As String
  Dim i As Integer, PathStr As String
  Set Conn = CreateObject("ADODB.Connection")
  Set Rst = CreateObject("ADODB.Recordset")
  PathStr = ThisWorkbook.FullName '设置工作簿的完整路径和名称
  Select Case Application.Version * 1  '设置连接字符串,根据版本创建连接
  Case Is <= 11
  strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
  Case Is >= 12
  strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
  End Select
  '设置SQL查询语句
  strSQL = "transform first(辅助列) select 款号,条形码,类别 from [sheet1$a:f] where 款号 group by 款号,条形码,类别 pivot 规格"
  Conn.Open strConn  '打开数据库链接
  Set Rst = Conn.Execute(strSQL)  '执行查询，并将结果输出到记录集对象
  With Sheet3
  .Cells.Clear
  For i = 0 To Rst.Fields.Count - 1  '填写标题
    .Cells(1, i + 1) = Rst.Fields(i).Name
  Next i
  .Range("A2").CopyFromRecordset Rst
  .Cells.EntireColumn.AutoFit '自动调整列宽
  .Cells.EntireColumn.AutoFit '自动调整列宽
  End With
  Rst.Close  '关闭数据库连接
  Conn.Close
  Set Conn = Nothing
  Set Rst = Nothing
End Sub

shemay1978

果然强大无比 學習