TreeView aus ner DB richtig füllen?

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von AlexII.

    TreeView aus ner DB richtig füllen?

    Hallo,
    ich fülle eine TreeView aus ner DB wie folgt durch, siehe Screenshot und Code

    Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. Dim connstr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True"
    4. Dim conn As New SqlConnection(connstr)
    5. conn.Open()
    6. Dim cmd As New SqlCommand("SELECT * FROM Types", conn) 'Tabelle
    7. Dim dr As SqlDataReader = cmd.ExecuteReader()
    8. While dr.Read()
    9. Dim tn As TreeNode = New TreeNode()
    10. tn.Text = dr("Typname").ToString()
    11. TreeView1.Nodes.Add(tn)
    12. End While
    13. dr.Close()
    15. Dim cmd2 As New SqlCommand("SELECT * FROM Favorites", conn)
    17. Dim dr2 As SqlDataReader = cmd2.ExecuteReader()
    18. While dr2.Read()
    19. Dim tn2 As TreeNode = New TreeNode()
    20. tn2.Text = dr2("Station").ToString()
    21. TreeView1.Nodes(0).Nodes.Add(tn2)
    22. End While
    23. dr2.Close()
    25. conn.Close()
    26. End Sub


    Das Problem ist aber, dass die TV Stationen unter Radio landen und nicht unter TV, was ist in meinem Code falsch?

    PS: bin ganz neu in VB.NET
    Bilder

    • Screenshot.JPG

      36,5 kB, 833×333, 1.113 mal angesehen

    Hallo AlexII,

    der Code müsste meines Erachtens nach so aussehen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. Dim connstr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True"
    4. Dim conn As New SqlConnection(connstr)
    5. conn.Open()
    6. Dim cmd As New SqlCommand("SELECT * FROM Types", conn) 'Tabelle
    7. Dim dr As SqlDataReader = cmd.ExecuteReader()
    8. While dr.Read()
    9. Dim tn As TreeNode = New TreeNode()
    10. tn.Text = dr("Typname").ToString()
    11. TreeView1.Nodes.Add(tn)
    13. Dim cmd2 As New SqlCommand("SELECT * FROM Favorites where Typ = " + tn.Text, conn) 'evtl. stimmt Verkettung nicht
    15. Dim dr2 As SqlDataReader = cmd2.ExecuteReader()
    16. While dr2.Read()
    17. Dim tn2 As TreeNode = New TreeNode()
    18. tn2.Text = dr2("Station").ToString()
    19. TreeView1.Nodes(0).Nodes.Add(tn2)
    20. End While
    21. dr2.Close()
    23. conn.Close()
    24. End While
    25. dr.Close()
    26. End Sub
    bin mir aber nicht ganz sicher und habe es Online geschrieben

    Hallo AlexII,

    dann teste es einmal so:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. 'TODO: Diese Codezeile lädt Daten in die Tabelle "Database1DataSet2.Types". Sie können sie bei Bedarf verschieben oder entfernen.
    3. Me.TypesTableAdapter.Fill(Me.Database1DataSet2.Types)
    4. 'TODO: Diese Codezeile lädt Daten in die Tabelle "Database1DataSet1.Favorites". Sie können sie bei Bedarf verschieben oder entfernen.
    5. Me.FavoritesTableAdapter.Fill(Me.Database1DataSet1.Favorites)
    7. Dim connstr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True"
    8. Dim conn As New SqlConnection(connstr)
    9. conn.Open()
    11. Dim cmd As New SqlCommand("SELECT * FROM Types", conn) 'Tabelle
    12. Dim dr As SqlDataReader = cmd.ExecuteReader()
    14. While dr.Read()
    15. Dim tn As TreeNode = New TreeNode()
    16. tn.Text = dr("Typname").ToString()
    17. TreeView1.Nodes.Add(tn)
    19. Dim cmd2 As New SqlCommand("SELECT * FROM Favorites where Typ =" & dr("Typname").ToString(), conn)
    21. Dim dr2 As SqlDataReader = cmd2.ExecuteReader()
    22. While dr2.Read()
    23. Dim tn2 As TreeNode = New TreeNode()
    24. tn2.Text = dr2("Station").ToString()
    25. tn.Nodes.Add(tn2)
    26. End While
    27. dr2.Close()
    28. End While
    29. dr.Close()
    30. conn.Close()
    31. End Sub
    ich selbst bekomme schon bei deinem Skript Fehlermeldung vom MSSQLServer. Mit dem MSSQLServer habe ich mich bisher noch nicht auseinandergesetzt. Wenn dein Skript bei dir gelaufen ist, sollte dieses auch laufen. Fakt ist dass die Schleife für die "Favorites" für jeden Node der "Types" durchlaufen werden muss, deshalb auch die geänderte SQl-Anweisung, damit nur die Favoriten des gerade vorher angelegten "Types" ausgegeben werden.

Facebook
Telefonspende