VB Code:
Private Sub FillTreeView()
Try
TreeView1.Nodes.Clear()
Dim Cons As New PtechDLL.DBFunctions
Dim DBCon As String = Cons.DBConnectionstring
Dim TreeCon As New SqlConnection(DBCon)
Dim FillTreeSQL As String = "SELECT NodeID, Title, Description, URL, Parent, UserTypeID FROM tNavigation ORDER BY ItemNumber"
Dim FillTree As New SqlCommand(FillTreeSQL, TreeCon)
TreeCon.Open()
Dim FillTreeRead As SqlDataReader = FillTree.ExecuteReader
While FillTreeRead.Read
'If FillTreeRead("Parent") = 0 Then
'Dim PArentNode As String = FillTreeRead("Title")
'containerNode = TreeView1.Nodes.Add(PArentNode)
TreeView1.Nodes.Add(New TreeNode(FillTreeRead("Title"), FillTreeRead("NodeID"), Nothing, "/test.aspx", Nothing))
End While
Catch ex As System.Exception
Response.Write("There has been an error: " & vbCrLf & "This occurred in MainInterface Class Sub BindlstOnWaterRails" & vbCrLf & ex.Message & vbCrLf & "If the problem continues contact your IT department or the software vendor")
End Try
End Sub