SQL SERVER 2000 遍历父子关系数据的表（二叉树）获得所有子节点 所有父节点及节点层数函数

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90

---SQL SERVER 2000 遍历父子关系數據表（二叉树）获得所有子节点 所有父节点及节点层数函数 ---Geovin Du 涂聚文 --建立測試環境 Create Table GeovinDu ([ID] Int,  fatherID Int,  [Name] Varchar(10) ) Insert A Select 1,        0,       '中国' Union All Select 2,        1,          '广东' Union All Select 3,        1,          '北京' Union All Select 4,        2,          '深圳特区' Union All Select 5,        2,          '广州' Union All Select 6,        4,          '罗湖' Union All Select 7,        4,          '福田' Union All Select 8,        7,           '华强北' Union All Select 9,        0,  '美国' Union All Select 10,       9,         '华盛顿州' GO --建立函數   --取字子节点 if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GetChildren]') and xtype in (N'FN', N'IF', N'TF')) drop function [dbo].[GetChildren] GO Create Function GetChildren(@ID Int) Returns @Tree Table (ID Int, fatherID Int, Name Varchar(10)) As Begin Insert @Tree Select ID, fatherID, Name From GeovinDu Where fatherID = @ID While @@Rowcount > 0 Insert @Tree Select A.ID, A.fatherID, A.Name From GeovinDu A Inner Join @Tree B On A.fatherID = B.ID And A.ID Not In (Select ID From @Tree)--- Return End GO   --取父节点   set ANSI_NULLS ON set QUOTED_IDENTIFIER ON GO if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GetParent]') and xtype in (N'FN', N'IF', N'TF')) drop function [dbo].[GetParent] GO Create Function [dbo].[GetParent](@ID Int) Returns @Tree Table (ID Int, fatherID Int, Name Varchar(10)) As Begin Insert @Tree Select ID, fatherID, Name From GeovinDu Where ID = @ID While @@Rowcount > 0 Insert @Tree Select A.ID, A.fatherID, A.Name From GeovinDu A Inner Join @Tree B On A.ID = B.fatherID And A.ID Not In (Select ID From @Tree) Return End   ---分为几级 if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f_getlevel]') and xtype in (N'FN', N'IF', N'TF')) drop function [dbo].[f_getlevel] GO create function f_getlevel(@id INT) returns int as begin   declare @re_str as varchar(3)   set @re_str = ''   declare @level as int   set @level = 1   select @re_str = fatherID from GeovinDu where [ID] = @id   while exists (select 1 from GeovinDu where [ID] = @re_str)     begin       select @re_str = fatherID from GeovinDu where [ID] = @re_str       set @level = @level + 1     end   return @level end go         --測試 SELECT * FROM GeovinDu GO   Select * From dbo.GetChildren(4)   Select * From dbo.GetParent(4) GO   select * , dbo.f_getlevel([ID])  'level' from A   drop function dbo.f_getlevel