Populate Treeview dynamically from SQL 2000 stored procedure in VB.net 2.0

Hi
How do I dynamically pouplate a treeview in VB.net 2.0 (visual studio 2005) from a sql 2000 stored procedure?
Number of child nodes changes.The database structUre is as below

ContenId ParentContentID Name
1             0                          Main
2             1                          Home
3              1                          News
This is to populate a treeview to get all the pages/menu in CMS and for users to allow add/edit pages and add new pages under existing pages as displayed in the Treeview.
Working on a deadline - so any help is appreciated.
Awaiting responsE
Thanks a Ton.
NewUser09Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

 
Brian CroweDatabase AdministratorCommented:
I have attached some code that I used to do something very similar.  Basically you establish a root node then you just recursively add children referencing the ParentID.

Hope this helps

BriCrowe
	Private Sub FillTaskTree()
 
		Dim tn As TreeNode
		Dim i As Integer
		Dim dv As New DataView(dsUserAdmin.Tables("Task"))
 
		tvTasks.Nodes.Clear()
 
		dv.RowFilter = "ParentTaskID IS NULL"
		dv.Sort = "DisplayOrder"
		For i = 0 To dv.Count - 1
			tn = tvTasks.Nodes.Add(dv(i)("Name").ToString)
			tn.Tag = dv(i)("TaskID")
			tn.ImageIndex = TaskIcon.ClosedContainer
			tn.SelectedImageIndex = TaskIcon.ClosedContainer
			FillTaskChildNodes(tn)
			tn.Expand()
		Next
	End Sub
 
	Private Sub FillTaskChildNodes(ByVal tnParent As TreeNode)
 
		Dim tnChild As TreeNode
		Dim i As Integer
		Dim dv As New DataView(dsUserAdmin.Tables("Task"))
 
		Dim strfilter As String = "ParentTaskID = " + tnParent.Tag.ToString + _
		 " AND TaskTypeID <> " + CInt(TaskType.Action).ToString
		dv.RowFilter = strfilter
		dv.Sort = "DisplayOrder"
		For i = 0 To dv.Count - 1
			tnChild = tnParent.Nodes.Add(dv(i)("Name").ToString)
			tnChild.Tag = dv(i)("TaskID")
			Select Case CInt(dv(i)("TaskTypeID"))
				Case TaskType.Container
					tnChild.ImageIndex = TaskIcon.ClosedContainer
					tnChild.SelectedImageIndex = TaskIcon.ClosedContainer
				Case TaskType.Tool
					tnChild.ImageIndex = TaskIcon.Tool
					tnChild.SelectedImageIndex = TaskIcon.Tool
				Case TaskType.Report
					tnChild.ImageIndex = TaskIcon.Report
					tnChild.SelectedImageIndex = TaskIcon.Report
			End Select
			FillActionNodes(tnChild)
			FillTaskChildNodes(tnChild)
		Next
	End Sub

Open in new window

0

Experts Exchange Solution brought to you by ConnectWise

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
 
NewUser09Author Commented:
Hi

Thank u very much for u'r comment.
I guess u are using .net 3 framework -Iam using .net framework 2.0 and I have found  a way to do it using the below link.
http://aspalliance.com/732 

Thanks
0
 
Brian CroweDatabase AdministratorCommented:
Actually the code is fairly old and was written in VS2003 so I expect I was using .Net 1.1 but as long as you found something that works for you.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.