Treeview - Sortieren aus einer Datenbank.

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von ThuCommix.

    Treeview - Sortieren aus einer Datenbank.

    Hallo Leute, habe ein kleines Problemchen beim Sortieren von verschiedenen Eingaben aus der
    Datenbank in ein Treeview.

    Die Datenbank sieht folgendermassen aus:

    OID POID Name
    1 0 Datei
    2 0 Oberfäche
    3 0 Karbon
    4 3 Best-of
    5 3 Jahreskalender 2011
    6 1 Ausschüsse allgemein
    7 2 Termine_Januar
    8 1 Kandidatenlisten-2010


    So erstelle ich das bisherige Treeview:

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    3. Imports System.Data.SqlClient
    4. Imports System.Data
    5. Imports System.ComponentModel
    6. Imports System.IO
    7. Imports System.Drawing
    8. Imports System.Diagnostics
    9. Imports Microsoft.VisualBasic
    12. Partial Class _Default
    13. Inherits System.Web.UI.Page
    15. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    17. TreeView1.Nodes.Clear()
    19. Dim rootNode As New TreeNode("Übersicht")
    20. TreeView1.Nodes.Add(rootNode)
    21. addChildNodes(rootNode)
    22. TreeView1.Nodes(0).Expand()
    23. End Sub
    25. Private Sub addChildNodes(ByVal dirNode As TreeNode)
    27. Using conn As New SqlConnection("Data Source=EM090;Initial Catalog=File_Datenbank;Integrated Security=True;Pooling=False")
    29. Dim sqlRead As String = "SELECT Name FROM Directory WHERE POID = 0"
    32. Try
    33. conn.Open()
    34. Dim sqlCom As New SqlCommand(sqlRead, conn)
    35. Dim r As SqlDataReader = sqlCom.ExecuteReader
    37. Do While (r.Read())
    39. Dim newNode As New TreeNode(r("Name").ToString)
    40. dirNode.ChildNodes.Add(newNode)
    42. addChildChildNodes(newNode)
    43. Loop
    44. Catch ex As Exception
    45. conn.Close()
    46. End Try
    47. End Using
    48. End Sub
    50. Private Sub addChildChildNodes(ByVal dirNode As TreeNode)
    51. Using conn As New SqlConnection("Data Source=EM090;Initial Catalog=File_Datenbank;Integrated Security=True;Pooling=False")
    53. 'Dim sqlRead As String = "SELECT FileName FROM Files"
    54. Dim sqlRead As String = "Select a.Name,a.OID, b.name,b.oid from Directory a inner join Directory b on a.OID=b.poid where a.poid=0" & _
    55. "order by a.OID,b.oid"
    57. Try
    58. conn.Open()
    59. Dim sqlCom As New SqlCommand(sqlRead, conn)
    60. Dim r As SqlDataReader = sqlCom.ExecuteReader
    62. Do While (r.Read())
    64. Dim newNode As New TreeNode(r("name").ToString)
    65. dirNode.ChildNodes.Add(newNode)
    67. Loop
    68. Catch ex As Exception
    69. conn.Close()
    70. End Try
    71. End Using
    73. End Sub
    75. End Class



    In der Methode addChildChildNodes fehlt mir der richtige "SELECT" um den einzelnen Trees die richtigen Childs
    zuzuweisen.

    SQL-Abfrage

    1. Select a.Name,a.OID, b.name,b.oid from Directory a inner join Directory b on a.OID=b.poid where a.poid=0 order by a.OID,b.oid

    Mit diesem Code habe ich die Datenbank bereits so ausselektiert das die 5 Eingaben den "Ordnern" zugewiesen werden:

    Name OID name oid
    Dateien 1 Ausschüsse allgemein 6
    Dateien 1 Kandidatenliste-2010 8
    Oberfläche 2 Termine_Januar 7
    Karbon 3 Best-of 4
    Karbon 3 Jahreskalender 2011 5

    Sämtliche Zuweisungen funktionieren nicht richtig : /
    Es geht mir wirklich nur um den Select in addChidChildNode!
    Kann mir jemand helfen? :)