树形数据转换

原帖地址:
http://community.csdn.net/Expert/topic/3663/3663934.xml?temp=.9100458

--测试数据
create table PROJECT(id int,name nvarchar(20),parent_id int)
insert PROJECT select 1,'所有项目',null
union all select 2,'项目1',1
union all select 3,'项目2',1

create table task(id int,name nvarchar(20),outline varchar(10))
insert task select 1 ,'任务1' ,'1'
union all select 2 ,'任务1.1' ,'1.1'
union all select 3 ,'任务1.1.1' ,'1.1.1'
union all select 4 ,'任务1.1.2' ,'1.1.2'
union all select 5 ,'任务2' ,'2'
union all select 6 ,'任务2.1' ,'2.1'
union all select 7 ,'任务2.1.1' ,'2.1.1'
union all select 8 ,'任务2.1.1.1','2.1.1.1'
union all select 9 ,'任务3' ,'3'
union all select 10,'任务4' ,'4'
union all select 11,'任务4.1' ,'4.1'
go

/*--处理要求

1.把一数据库的TASK表的数据导入到另一数据库的PROJECT表与TEMP1表.导进去的数据上下级关系不再是用大纲显示，而是通过parent_id和project_id表示上下级。
2.表TEMP1的project_id与project表中的id关联，表project表中的parent_id是对该表本身id字段的关连。
3.要把task表的最底层的任务（没有子任务的）导入到temp1表，他的上级任务通过project_id关连
4.从TASK表导入数据的parent_id自己输入
--*/

/*--最后实现的结果:

--** PROJECT 表的内容
id name parent_id
----------- -------------------- -----------
1 所有项目 NULL
2 项目1 1
3 项目2 1
4 任务1 2
5 任务1.1 4
6 任务2 2
7 任务2.1 6
8 任务2.1.1 7
9 任务4 2

（所影响的行数为 9 行）

--temp1 表的内容
id name project_id
----------- -------------------- -----------
1 任务1.1.1 5
2 任务1.1.2 5
3 任务2.1.1.1 8
4 任务3 2
5 任务4.1 9

（所影响的行数为 5 行）
--*/

--处理的存储过程
create proc p_process
@parent_id int=2
as
set nocount on
declare @id int,@step int,@s nvarchar(1000)

--得到 PROJECT 表中的新编号(因为不知道PROJECT的id是否标识字段,所以用了一些判断)
select @step=ident_incr('PROJECT')
,@id=ident_current('PROJECT')+@step
if @id is null
select @id=isnull(max(id),0)+1 from PROJECT
select @s='alter table #t add id int identity('+rtrim(@id)+','+rtrim(isnull(@step,1))+')'

--生成处理临时表
select name,parent_id=@parent_id,outline into #t from task a
where exists(
select * from task where outline like a.outline+'.%')
order by outline

--生成id,并且生成 praent_id
exec(@s)
update a set parent_id=b.id
from #t a,#t b
where charindex('.',a.outline)>0
and a.outline like b.outline+'.%'
and charindex('.',a.outline,len(b.outline)+2)=0

--处理结果插入 PROJECT
if @step is not null
set identity_insert PROJECT on
insert PROJECT(id,name,parent_id) select id,name,parent_id from #t

--生成表temp1
if exists(select * from sysobjects where name='temp1' and objectproperty(id,'isusertable')=1)
drop table temp1
select id=identity(int),a.name,isnull(b.id,@parent_id) as project_id
into temp1 from task a left join
#t b on a.outline like b.outline+'.%'
and charindex('.',a.outline,len(b.outline)+2)=0
where not exists(
select * from #t where outline=a.outline)
go

--调用
exec p_process 2

--显示处理后的结果
select * from PROJECT
select * from temp1
go

--删除测试
drop table PROJECT,task,temp1
drop proc p_process