SQL Server中多行多列连接成为单行单列-钱玉炜
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> ADP及SQL SERVER


SQL Server中多行多列连接成为单行单列

发表时间:2008/8/4 8:17:43 评论(0) 浏览(6061)  评论 | 加入收藏 | 复制
   
摘 要:SQL Server中多行多列连接成为单行单列
正 文:

原始结构:

Column1 Column2

----------- ----------

1 A

1 B

2 C

2 D

2 E

3 F

查询效果:

Column1 Column2

----------- ------------------

1 A,B

2 C,D,E

3 F

即将 Column1 相同的行的 Column2 连成一列。

不知如何描述此种用法,是否具有像交叉表相关的 Cross-Table 和 Pivot 之类的约定成熟的专业称谓?

是否也可以称为另一种 Cross-Table ?

此需求应该是常见的,网上也有许多DEMO,只是 CSDN 中频繁有新手提问,现简单实现一个DEMO,以便参考。

-- 多行多列连接成为单行单列示例:需要一个自定义函数

-- http://community.csdn.net/Expert/TopicView3.asp?id=5603231

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[VertToHorzSample]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[VertToHorzSample]

GO

-- 建立测试数据

Create TABLE VertToHorzSample(

Column1 int,

Column2 varchar(100)

)

GO

Insert INTO VertToHorzSample(Column1, Column2)

Select 1, 'A'

UNION ALL

Select 1, 'B'

UNION ALL

Select 2, 'C'

UNION ALL

Select 2, 'D'

UNION ALL

Select 2, 'E'

UNION ALL

Select 3, 'F'

GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ConvertVertToHorz]') and xtype in (N'FN', N'IF', N'TF'))

drop function [dbo].[ConvertVertToHorz]

GO

-- 建立辅助函数

Create FUNCTION ConvertVertToHorz(@Col1Val int)

RETURNS VARCHAR(8000)

AS

BEGIN

-- 实际项目中,应该考虑 @RetVal 是否会超过 8000 个字符

DECLARE @RetVal varchar(8000)

SET @RetVal = ''

-- 通过递归 Select 连接指定列存储到临时变量中

Select @RetVal = Column2 + ',' + @RetVal FROM VertToHorzSample Where Column1 = @Col1Val

-- 连接多列

-- Select @RetVal = Column2 + ',' + Column3 + ',' + Column4 + ',' + @RetVal FROM VertToHorzSample Where Column1 = @Col1Val

-- 去掉尾巴的 , (逗号)

IF LEN(@RetVal) > 0

SET @RetVal = LEFT(@RetVal, LEN(@RetVal) - 1)

--PRINT @RetVal

RETURN @RetVal

END

GO

-- 测试

Select Column1, dbo.ConvertVertToHorz(Column1) Column2 FROM (Select DISTINCT Column1 FROM VertToHorzSample) t

/**//*

Column1 Column2

----------- ------------------

1 A,B

2 C,D,E

3 F

*/

GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[VertToHorzView]') and OBJECTPROPERTY(id, N'IsView') = 1)

drop view [dbo].[VertToHorzView]

GO

-- 可以建立一个视图

Create VIEW dbo.VertToHorzView

AS

Select Column1, dbo.ConvertVertToHorz(Column1) Column2

FROM (Select DISTINCT Column1 FROM dbo.VertToHorzSample) t

GO

-- 测试视图

Select * FROM VertToHorzView

/**//*

Column1 Column2s

----------- -----------------

1 A,B

2 C,D,E

3 F

*/


Access软件网交流QQ群(群号:198465573)
 
 相关文章
通过VBA对Excel所选单元格的所在行列进行高亮显示  【叶海峰  2011/7/15】
VBA对Excel所选区域的所在行列进行高亮显示  【乐乐  2011/11/22】
Excel高亮显示当前行列的示例\高亮当前行\高亮当前行列  【麥田  2012/1/29】
Excel VBA之行列操作  【叶海峰  2012/8/1】
【Access示例】利用交叉表实现行列的转换,使列变成yyyymm...  【缪炜  2013/7/5】
常见问答
技术分类
相关资源
文章搜索
关于作者

钱玉炜

文章分类

文章存档

友情链接