實現樹型結構(第一部分)
作者：ACE 最后更新：06/08/2000 類別：原創

先看一下示例，如果你感覺尚可，就繼續閱讀本文http://www.coolbel.com/ace/articles/test/msdn.asp。

1. 簡述

對于大家來說樹型結構是很熟悉的一種模型。它的應用十分廣泛，比如組織結構，物料清單，資料檔案管理，資產管理等等都是以樹型結構為基礎。在現實生活中，有許多事物可以抽象為樹狀結構。這種結構可以簡化對某些事物的理解，使概念清晰。

2. 表結構

樹型結構的表結構可以很簡單也可以很復雜。根據不同的需求，表結構不是一成不變的，讀取數據的方法也不盡相同。

我們考慮一種最簡單的情況，看下面的示例：

Sample Table
Child Node Parent Node Title article
1 0 Program 0
2 1 Visual Basic 0
3 1 Power Builder 0
4 1 C++ Builder 0
5 2 ADO Control 1
..........
更直觀的表示：
Program
-------Visual Basic
------------ADO Control
-------Power Builder
-------C++ Builder

這種結構十分簡單，當修改元素間的所屬關系時，你只需要修改 Parent Node 就可以了，比如把 ADO Control 作為 Program 的子項，只要將 ADO Control 所對應的 Parent Node 改為1。由此，不難看出這種結構簡單，易用。

3. 用存儲過程讀取數據

如何檢索數據，或許是我們最關心的。對于用戶來說，在數據的表達上要易于理解。從上面的示例中，就可以看出：直觀的表示法比顯示數據存儲結構更易于理解。

其中的關鍵在于如何得到元素之間的層次關系，有了層次關系，就能得到類似資源管理器那樣的界面。

在這里，我們用存儲過程完成該功能。在微軟的眾多有關 SQL 的文檔中，有一段 SQL 代碼非常經典，我們本著拿來主義的思想，將它修改一下，洋為中用。

CREATE PROC sp_ListFile(@Child_node int)
As
SET NOCOUNT ON
--declare var
DECLARE @lvl smallint --層次關系
DECLARE @c_ID int
DECLARE @article bit --是否為文章的標志
DECLARE @title varchar(150) --標題

--create temporary table
CREATE TABLE #stack (Child_node int,Lvl smallint)

--create target table
CREATE TABLE #FileList
(lvl smallint,
Child_node_ID int,
Article bit,
Title varchar(150) )

--initial
INSERT INTO #stack VALUES(@Child_node,0)
SELECT @Lvl = 0

--main loop
WHILE @Lvl > -1
BEGIN
IF EXISTS(SELECT * FROM #stack WHERE Lvl = @Lvl)
BEGIN
SELECT @Child_node = Child_node
FROM #stack
WHERE Lvl = @Lvl

SELECT @article = article,@title = title
FROM some_table
WHERE Child_node = @Child_node

INSERT INTO #FileList
VALUES(@Lvl,@Child_node, @article,@title)

DELETE FROM #stack
WHERE Lvl = @Lvl AND Child_node = @Child_node

INSERT INTO #stack
SELECT Child_node,@Lvl + 1
FROM some_table
WHERE Parent_node = @Child_node
IF @@ROWCOUNT > 0
SELECT @Lvl = @Lvl + 1
END
ELSE
SELECT @Lvl = @Lvl - 1
END
DELETE FROM #FileList
WHERE Lvl = 0
SELECT * FROM #FileList

輸出結果：
lvl Child_node Article Title
1 1 0 Program
2 2 0 Visual Basic
3 5 1 ADO Control
2 3 0 Power Builder
2 4 0 C++ Builder

上面的存儲過程可以有很多變形，比如按時間排序，指定檢索深度等等，有的需要對數據庫作相應調整。

4. 調用存儲過程


調用存儲過程有多種形式，我們只討論如何調用上面的存儲過程

Dim cnn
Dim rs
Dim id

Set cnn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Provider=SQLOLEDB;.......................略
rs.Open "sp_listfile " & id,cnn


由于 Coolbel 不支持存儲過程，我把結果集存為 XML 格式，以便于演示。 （出處：熱點網絡）