有一个表
课程 工厂 部门 等级 职位
语文 H IT 1 A
语文 H IT 2 B
语文 H IT 3 C
语文 H BT 1 A
语文 H BT 2 B
语文 P BT 3 E
语文 P BT 4 D
数学 H IT 1 A
数学 H IT 2 B
数学 H IT 3 C
数学 H BT 1 A
数学 H BT 2 B
数学 P BT 3 E
数学 P BT 4 D显示成
课程 工厂 部门 等级 职位
语文 H IT,BT 1,2,3 A,B,C
语文 P BT 3,4 E,D
数学 H IT,BT 1,2,3 A,B,C
数学 P BT 3,4 E,D
辛苦各位了
课程 工厂 部门 等级 职位
语文 H IT 1 A
语文 H IT 2 B
语文 H IT 3 C
语文 H BT 1 A
语文 H BT 2 B
语文 P BT 3 E
语文 P BT 4 D
数学 H IT 1 A
数学 H IT 2 B
数学 H IT 3 C
数学 H BT 1 A
数学 H BT 2 B
数学 P BT 3 E
数学 P BT 4 D显示成
课程 工厂 部门 等级 职位
语文 H IT,BT 1,2,3 A,B,C
语文 P BT 3,4 E,D
数学 H IT,BT 1,2,3 A,B,C
数学 P BT 3,4 E,D
辛苦各位了
标题：按某字段合并字符串之一(简单合并)
作者：爱新觉罗.毓华(十八年风雨,守得冰山雪莲花开)
时间：2008-11-06
地点：广东深圳描述：将如下形式的数据按id字段合并value字段。
id value
----- ------
1 aa
1 bb
2 aaa
2 bbb
2 ccc
需要得到结果：
id value
------ -----------
1 aa,bb
2 aaa,bbb,ccc
即：group by id, 求 value 的和（字符串相加）
*/
--1、sql2000中只能用自定义的函数解决
create table tb(id int, value varchar(10))
insert into tb values(1, 'aa')
insert into tb values(1, 'bb')
insert into tb values(2, 'aaa')
insert into tb values(2, 'bbb')
insert into tb values(2, 'ccc')
gocreate function dbo.f_str(@id int) returns varchar(100)
as
begin
declare @str varchar(1000)
set @str = ''
select @str = @str + ',' + cast(value as varchar) from tb where id = @id
set @str = right(@str , len(@str) - 1)
return @str
end
go--调用函数
select id , value = dbo.f_str(id) from tb group by iddrop function dbo.f_str
drop table tb
--2、sql2005中的方法
create table tb(id int, value varchar(10))
insert into tb values(1, 'aa')
insert into tb values(1, 'bb')
insert into tb values(2, 'aaa')
insert into tb values(2, 'bbb')
insert into tb values(2, 'ccc')
goselect id, [value] = stuff((select ',' + [value] from tb t where id = tb.id for xml path('')) , 1 , 1 , '')
from tb
group by iddrop table tb
--3、使用游标合并数据
create table tb(id int, value varchar(10))
insert into tb values(1, 'aa')
insert into tb values(1, 'bb')
insert into tb values(2, 'aaa')
insert into tb values(2, 'bbb')
insert into tb values(2, 'ccc')
go
declare @t table(id int,value varchar(100))--定义结果集表变量
--定义游标并进行合并处理
declare my_cursor cursor local for
select id , value from tb
declare @id_old int , @id int , @value varchar(10) , @s varchar(100)
open my_cursor
fetch my_cursor into @id , @value
select @id_old = @id , @s=''
while @@FETCH_STATUS = 0
begin
if @id = @id_old
select @s = @s + ',' + cast(@value as varchar)
else
begin
insert @t values(@id_old , stuff(@s,1,1,''))
select @s = ',' + cast(@value as varchar) , @id_old = @id
end
fetch my_cursor into @id , @value
END
insert @t values(@id_old , stuff(@s,1,1,''))
close my_cursor
deallocate my_cursorselect * from @t
drop table tb
insert into tb values('语文', 'H' , 'IT' , 1 , 'A')
insert into tb values('语文', 'H' , 'IT' , 2 , 'B')
insert into tb values('语文', 'H' , 'IT' , 3 , 'C')
insert into tb values('语文', 'H' , 'BT' , 1 , 'A')
insert into tb values('语文', 'H' , 'BT' , 2 , 'B')
insert into tb values('语文', 'P' , 'BT' , 3 , 'E')
insert into tb values('语文', 'P' , 'BT' , 4 , 'D')
insert into tb values('数学', 'H' , 'IT' , 1 , 'A')
insert into tb values('数学', 'H' , 'IT' , 2 , 'B')
insert into tb values('数学', 'H' , 'IT' , 3 , 'C')
insert into tb values('数学', 'H' , 'BT' , 1 , 'A')
insert into tb values('数学', 'H' , 'BT' , 2 , 'B')
insert into tb values('数学', 'P' , 'BT' , 3 , 'E')
insert into tb values('数学', 'P' , 'BT' , 4 , 'D')
go
create function dbo.f_str1(@课程 varchar(10) ,@工厂 varchar(10)) returns varchar(100)
as
begin
declare @str varchar(1000)
set @str = ''
select @str = @str + ',' + cast(部门 as varchar) from (select distinct 课程 ,工厂 ,部门 from tb) t where 课程 = @课程 and 工厂 = @工厂
set @str = right(@str , len(@str) - 1)
return @str
end
go
create function dbo.f_str2(@课程 varchar(10) ,@工厂 varchar(10)) returns varchar(100)
as
begin
declare @str varchar(1000)
set @str = ''
select @str = @str + ',' + cast(等级 as varchar) from (select distinct 课程 ,工厂 ,等级 from tb) t where 课程 = @课程 and 工厂 = @工厂
set @str = right(@str , len(@str) - 1)
return @str
end
go
create function dbo.f_str3(@课程 varchar(10) ,@工厂 varchar(10)) returns varchar(100)
as
begin
declare @str varchar(1000)
set @str = ''
select @str = @str + ',' + cast(职位 as varchar) from (select distinct 课程 ,工厂 ,职位 from tb) t where 课程 = @课程 and 工厂 = @工厂
set @str = right(@str , len(@str) - 1)
return @str
end
go--调用函数
select t1.*,t2.等级 , t3.职位 from
(select 课程,工厂, 部门 = dbo.f_str1(课程,工厂) from (select distinct 课程 ,工厂 ,部门 from tb) t group by 课程,工厂) t1,
(select 课程,工厂, 等级 = dbo.f_str2(课程,工厂) from (select distinct 课程 ,工厂 ,等级 from tb) t group by 课程,工厂) t2,
(select 课程,工厂, 职位 = dbo.f_str3(课程,工厂) from (select distinct 课程 ,工厂 ,职位 from tb) t group by 课程,工厂) t3
where t1.课程 = t2.课程 and t1.工厂 = t2.工厂 and t1.课程 = t3.课程 and t1.工厂 = t3.工厂drop table tb
drop function dbo.f_str1
drop function dbo.f_str2
drop function dbo.f_str3/*
课程 工厂 部门 等级 职位
---------- ---------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------
数学 H BT,IT 1,2,3 A,B,C
数学 P BT 3,4 D,E
语文 H BT,IT 1,2,3 A,B,C
语文 P BT 3,4 D,E（所影响的行数为 4 行）*/
insert into tb values(N'语文', 'H' , 'IT' , 1 , 'A')
insert into tb values(N'语文', 'H' , 'IT' , 2 , 'B')
insert into tb values(N'语文', 'H' , 'IT' , 3 , 'C')
insert into tb values(N'语文', 'H' , 'BT' , 1 , 'A')
insert into tb values(N'语文', 'H' , 'BT' , 2 , 'B')
insert into tb values(N'语文', 'P' , 'BT' , 3 , 'E')
insert into tb values(N'语文', 'P' , 'BT' , 4 , 'D')
insert into tb values(N'数学', 'H' , 'IT' , 1 , 'A')
insert into tb values(N'数学', 'H' , 'IT' , 2 , 'B')
insert into tb values(N'数学', 'H' , 'IT' , 3 , 'C')
insert into tb values(N'数学', 'H' , 'BT' , 1 , 'A')
insert into tb values(N'数学', 'H' , 'BT' , 2 , 'B')
insert into tb values(N'数学', 'P' , 'BT' , 3 , 'E')
insert into tb values(N'数学', 'P' , 'BT' , 4 , 'D')
go
select t1.*,t2.等级 , t3.职位 from
(select 课程,工厂,部门= stuff((select ',' + 部门 from (select distinct 课程 ,工厂 ,部门 from tb) m where m.课程 = n.课程 and m.工厂=n.工厂 for xml path('')) , 1 , 1 , '') from (select distinct 课程 ,工厂 ,部门 from tb) n group by 课程,工厂) t1,
(select 课程,工厂,等级= stuff((select ',' + 等级 from (select distinct 课程 ,工厂 ,cast(等级 as varchar) 等级 from tb) m where m.课程 = n.课程 and m.工厂=n.工厂 for xml path('')) , 1 , 1 , '') from (select distinct 课程 ,工厂 ,cast(等级 as varchar) 等级 from tb) n group by 课程,工厂) t2,
(select 课程,工厂,职位= stuff((select ',' + 职位 from (select distinct 课程 ,工厂 ,职位 from tb) m where m.课程 = n.课程 and m.工厂=n.工厂 for xml path('')) , 1 , 1 , '') from (select distinct 课程 ,工厂 ,职位 from tb) n group by 课程,工厂) t3
where t1.课程 = t2.课程 and t1.工厂 = t2.工厂 and t1.课程 = t3.课程 and t1.工厂 = t3.工厂drop table tb/*
课程 工厂 部门 等级 职位
---------- ---------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
数学 H BT,IT 1,2,3 A,B,C
数学 P BT 3,4 D,E
语文 H BT,IT 1,2,3 A,B,C
语文 P BT 3,4 D,E(4 行受影响)*/
from tb5 a group by 课程,工厂
go
create table [tb]([课程] varchar(4),[工厂] varchar(1),[部门] varchar(2),[等级] int,[职位] varchar(1))
insert [tb]
select '语文','H','IT',1,'A' union all
select '语文','H','IT',2,'B' union all
select '语文','H','IT',3,'C' union all
select '语文','H','BT',1,'A' union all
select '语文','H','BT',2,'B' union all
select '语文','P','BT',3,'E' union all
select '语文','P','BT',4,'D' union all
select '数学','H','IT',1,'A' union all
select '数学','H','IT',2,'B' union all
select '数学','H','IT',3,'C' union all
select '数学','H','BT',1,'A' union all
select '数学','H','BT',2,'B' union all
select '数学','P','BT',3,'E' union all
select '数学','P','BT',4,'D'--select * from [tb]select [课程],[工厂]
,stuff((select distinct ','+[部门] from tb where [课程]=t.[课程] and [工厂]=t.[工厂] for xml path('')),1,1,'') [部门]
,stuff((select distinct ','+rtrim([等级]) from tb where [课程]=t.[课程] and [工厂]=t.[工厂] for xml path('')),1,1,'') [等级]
,stuff((select distinct ','+[职位] from tb where [课程]=t.[课程] and [工厂]=t.[工厂] for xml path('')),1,1,'') [职位]
from tb t
group by [课程],[工厂]
/*
课程 工厂 部门 等级 职位
---- ---- -------- ---- ---------
数学 H BT,IT 1,2,3 A,B,C
数学 P BT 3,4 D,E
语文 H BT,IT 1,2,3 A,B,C
语文 P BT 3,4 D,E
*/