Comboboxes von einander abhängig

  • VB.NET

    Comboboxes von einander abhängig

    Hi,

    Habe eine MDB Datenbank:

    ID, ParentID, Tag, Bezeichnung

    1, 0, HauptTreeNode, Aktenschank_a
    2, 1, SubTreeNode, Ordner_in_Aktenschrank_a

    Combobox1 fülle ich mit allen HauptTreeNode's..

    nun soll in Combobox2 alle SubTreeNodes aufgelistet werden, die zum ausgewählen HaupttreeNodes passen.

    Wie könnte ich das realisieren?

    Bisheriger Code:

    VB.NET-Quellcode

    1. Private Sub Lade_Aktenschrank()
    2. Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Datenbankpfad & "\" & Datenbankname & ".mdb"
    3. Dim da As New OleDbDataAdapter("SELECT * FROM " & TableName05 & " WHERE Arc_Tag = 'HauptTreeNode'", ConStr)
    4. Dim ds As New DataSet
    6. da.Fill(ds, TableName05)
    8. Me.ComboBox1.DataSource = ds
    9. Me.ComboBox1.DisplayMember = "" & TableName05 & ".Arc_Bezeichnung"
    10. Me.ComboBox1.ValueMember = "Arc_Bezeichnung"
    12. ComboBox1.SelectedIndex = 0
    15. End Sub
    17. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    18. Call Lade_Ordner()
    20. End Sub
    22. Private Sub Lade_Ordner()
    23. Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Datenbankpfad & "\" & Datenbankname & ".mdb"
    24. Dim da As New OleDbDataAdapter("SELECT * FROM " & TableName05 & " WHERE Arc_ParentID = '" & Com1ID & "'", ConStr)
    25. Dim ds As New DataSet
    27. da.Fill(ds, TableName05)
    29. Me.ComboBox1.DataSource = ds
    30. Me.ComboBox1.DisplayMember = "" & TableName05 & ".Arc_Bezeichnung"
    31. Me.ComboBox1.ValueMember = "Arc_Bezeichnung"
    33. 'ComboBox2.SelectedIndex = 0
    35. End Sub


    Da liegt das Problem:

    Private Sub Lade_Ordner()
    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Datenbankpfad & "\" & Datenbankname & ".mdb"
    Dim da As New OleDbDataAdapter("SELECT * FROM " & TableName05 & " WHERE Arc_ParentID = '" & Com1ID & "'", ConStr)

    Weis nicht wie ich in der Select-Anweisung machen soll...

    Könntet ihr mir da nen Tipp geben ?

    LG lris08