Office: (Office 2007) Hierarchie erstellen & abfragen

Hallo,

ich möchte Daten anhand einer Hierarchieauswahl zusammenstellen.

Ich habe also eine Tabelle tblVerteiler mit den Feldern ID, Blatt und Parent_ID erstellt.

Wenn ich die Tabelle abfrage, möchte ich z.B. bei Kriterium: Blatt = "Gesamt" alle Datensätze (incl. der untergeordneten) angezeigt bekommen usw. (s.Screenshot).

Geht das mit nur einer Tabelle oder muß ich für jede Hierarchie eine eigene Tabelle erstellen und diese dann miteinander verknüpfen?

Die Tabellen für beide Ansätze habe ich bereits in der Datenbank erstellt.

Bin für jeden Ansatz dankbar :-)

Grüsse, Mike

:)

 

Vor kurzem gabe es hier einen Thread, der die Rekursion behandelte.

 

Vor kurzem gab es auch einen Thread, der auf Nested Sets hinwies.

 

Hallo Hans-Christian & Eberhard,

danke für Eure Antworten.

Habe mir beide Links angesehen und mich für Nested Sets entschieden, womit ich alles abbilden kann. :-)

Die Logik war mir noch nicht bekannt und ist in diesem Beitrag super erklärt!

Vielen Dank. Ciao, Mike

 

Hallo,

bin nun doch (der Verwaltung wegen) auf die ParentMethode umgestiegen und versuche nun, von einem selektierten Knoten, diesen und alle Subknoten auszugeben.

Mein bisheriger Ansatz funktioniert jedoch leider nicht.

Bitte um Eure Hilfe :-)

PHP:

         Private Sub LeseKnoten(ByVal Knoten As MSComctlLib.Node)
Debug.Print Knoten
LeseUnterknoten Knoten
End Sub

Private Sub LeseUnterknoten(Hauptknoten As MSComctlLib.Node)
Dim Unterknoten As MSComctlLib.Node

For Each Unterknoten In Hauptknoten
Debug.Print Unterknoten
LeseUnterknoten Unterknoten
Next Unterknoten
End Sub


 

Rekursiv mit einer Prozedur:
Code:

 

Hallo Hans-Christian,

danke für#s Antworten, aber ich erhalte leider einen Laufzeitfehler '438' Objekt unterstützt diese Eigenschaft oder Methode nicht in der Zeile For Each Unterknoten In Knoten.

Der Aufruf der rekursiven Prozedur erfolgt mit LeseKnoten objTreeview.Nodes(objTreeview.SelectedItem.Key)

Übergebe ich den Node falsch???

Grüsse, Mike

 

Hi,

ja. Die Routine erwartet als Argument einen Knoten As MSComctlLib.Node, du aber übergibst den Key (=String) des Nodes.

Das ist, als wenn du im Chinarestaurant knusprige Ente bestellst und bekommst einen Zettel, wo draufsteht "knusprige Ente". *biggrin.gif* Der Name ist nicht das Ding. Und der Key ist nicht der Node.

Try:
Code:

 

Hallo Atrus,

bei Verwendung von:
Code:

erhalte ich den fehler 'Ungültiger Schlüssel' :-(


Mache ich es so:
Code:

kommt der alte Fehler 438 :-(

Vielleicht weißt Du ja Rat...

Grüsse, Mike

 

Ich bin mit dem Knoten-Modell der MSComctlLib ja nicht so bewandert wie mit dem - imho einfacher zu handhabenden - Treeview aus .net ... Sorry ... aber etwas hatte ich in meinem Beispiel übersehen, versuch mal:
Code:

 

Hallo Hans-Christian,

danke für Deine Antwort, doch wird die Anweisung Knoten.Nodes nicht wie in .Net akzeptiert.

Ich hänge die Beispiel-DB nochmal rein und vielleicht kann mir jemand helfen.

Beim Klick auf Eintrag löschen soll der selektierte Treeview-Node (incl.aller Unterverzweigungen) nicht nur aus dem Treeview selbst, sondern auch aus der Tabelle tblHierarchie gelöscht werden.

Vielen Dank!

Grüsse, Mike

 

Hi,

habs mal eingebastelt. Der markierte Node und alle Nachkommen werden aus dem Treeview rekursiv in eine Collection gelesen. Diese Collection dient dann als Basis für das Löschen aus der Datenbank. Das hat so gut funktioniert, dass ich nach und nach den ganzen Baum gelöscht habe, die Tabelle ist also leer; die Daten hast du aber wohl noch. *biggrin.gif*

Übrigens: deine rekursive Füllroutine ist ungünstig, da sie iterativ (recordsetgesteuert) rekursiert. Das ist doppelt und dreifach gemoppelt.

 

Hallo Martin,

vielen vielen Dank für Deine Mühe. Es funktioniert alles wie von mir gewünscht!

Viele Grüsse aus Köln.

Ciao, Mike