Oracle階層問合せよりツリーノードを作成
Oracle階層問合せの結果よりVB.NETのTreeViewを作成する方法を教えてください。
・階層問合せのサンプル
SELECT LPAD(' ', 2*level-1)||SYS_CONNECT_BY_PATH(last_name, '/') "Path"
FROM employees
START WITH last_name = 'Kochhar'
CONNECT BY PRIOR employee_id = manager_id;
Path
---------------------------------------------------------------
/Kochhar
/Kochhar/Greenberg
/Kochhar/Greenberg/Faviet
/Kochhar/Greenberg/Chen
/Kochhar/Greenberg/Sciarra
/Kochhar/Greenberg/Urman
/Kochhar/Greenberg/Popp
/Kochhar/Whalen
/Kochhar/Mavris
/Kochhar/Baer
/Kochhar/Higgins
/Kochhar/Higgins/Gietz
VB.NET作成途中
Dim LEVEL_prev As Integer = 0
Dim node_prev As New TreeNode("")
Dim aryNODENO(16) As Integer
While (reader.Read())
NODE_NO = reader.Item("NODE_NO")
LEVEL = reader.Item("LEVEL")
PATH = reader.Item("PATH")
NAME = reader.Item("NAME")
Dim i As Integer
Dim node_cur As New TreeNode("")
node_cur.Expanded = True
node_cur.Text = strSITE_NAME
If intNODE_NO = 1 Then
' 新規ノードを準備する
TreeView2.Nodes.Add(node_cur)
Else
If intLEVEL_prev < intLEVEL Then
' 下位層へ移動の場合、新規ノードを準備する
TreeView2.Nodes(aryNODENO(intLEVEL - 1) - 1).ChildNodes.Add(node_cur)
ElseIf intLEVEL_prev = intLEVEL Then
'前のノードと同一階層
' 前のノードを上位階層へ追加
TreeView2.Nodes(aryNODENO(intLEVEL - 1) - 1).ChildNodes.Add(node_cur)
ElseIf intLEVEL_prev > intLEVEL Then
' '' 上位層へ移動の場合
'' ' ノードを上位階層へ追加
TreeView2.Nodes(aryNODENO(intLEVEL - 1) - 1).ChildNodes.Add(node_cur)
End If
End If
intLEVEL_prev = intLEVEL
node_prev = node_cur
End While
Me.TreeView2.Nodes(0).Expand()
以上
お礼
ありがとうございます！