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

时　间:2008-08-04 08:17:43
作　者:umvsoft整理   ID：16  城市：江阴
摘　要: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群 (群号:54525238) 　　　　　　Access源码网店