Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden (https://www.delphipraxis.net/153859-alle-kindeskinder-virtueller-ordnerstruktur-herausfinden.html)

TheMiller 18. Aug 2010 11:09

Datenbank: FireBird

Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Hallo,

ich weiß nicht, ob dies hier die richtige Kategorie ist, geschweige denn, ob der Titel aussagekräftig genug ist - falls nicht, gebt bescheid...

Mein Problem ist folgendes:
Ich habe eine TreeView, die beliebig viele Ordner deren beliebig viele Unter(-Unterunter...)Ordner anzeigt.
Die Informationen stammen aus einer Firebird-Datenbank, die wie folgt aufgebaut ist:

Code:
ID | PARENT | TITEL
1  |   -1   | Ein Ordner oberster Ebene
2  |    1   | Ein Unterordner von "Ein Ordner oberster Ebene"
3  |    1   | siehe ID-2
4  |    2   | Ein Unterordner von "Ein Unterordner von "Ein Ordner oberster Ebene""
Nun kann ich wunderbar von "unten nach oben" herausfinden, wohin welche Ordner gehören, welche Väter sie haben und so weiter.

Allerdings kann ich bei diesem Design nicht sagen, welche Einträge alle unterhalb des Ordners mit der ID x zuzuordnen sind.

Ich habe jetzt schon länger überlegt, wie ich eine Möglichkeit erlangen kann zu sagen, dass die Ordner (IDs) 3.4.5...n unterhalb des Ordners 2 stehen.

Könnt ihr mir vielleicht helfen / Tipps geben?

Vielen Dank

mkinzler 18. Aug 2010 11:11

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Warum nicht?

DP-Maintenance 18. Aug 2010 11:12

Dieses Thema wurde am "18. Aug 2010, 12:12 Uhr" von "mkinzler" aus dem Forum "Algorithmen, Datenstrukturen und Klassendesign" in das Forum "Datenbanken" verschoben.

TheMiller 18. Aug 2010 11:25

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Tja... bei allen Versuchen, die ich getätigt habe, endet das immer darin, dass ich entweder den richtigen SQL-Befehl nicht zu Stande gebracht habe, oder mittels Schleife immer weitere SQL-Befehle ausgeführt habe, bis ich alle Unterordner erwischt habe. Das kann dann mal schnell in vielen SQL-Anfragen enden.

Ich wollte jetzt wissen, ob man hier vielleicht eine nicht-normalisierte Spalte in der Tabelle anlegt (wie es das phpBB auch manchmal macht) und dort die IDs der Unterordner kommasepariert auflistet, die zu dem jeweiligen Ordner gehören.

Tipps dieser Art wollte ich mal erfragen. Bin ja nicht der erste, der das vorhat - aber irgendwie ideen bzw. ratlos.

Vielen Dank

Bummi 18. Aug 2010 11:51

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Was für eine Datenbank verwendest Du, der SQL-Server z.B. steigt bei 32 Rekusionen aus.
Vielleicht in der Art.

SQL-Code:
Declare @Parent int
Declare @count int
Select @Parent=14

Select cast(ID as Int) as ID
into #tmp
from Tabelle where ParentID=@Parent

select @Count=0
While @Count<(Select Count(*) from #tmp)
   begin
   Select @Count=(Select Count(*) from #tmp)
   insert into #tmp Select Cast(ID as int) from Tabelle where ParentID in (Select ID from #tmp) and ID not in (Select ID from #tmp)
   end
Select * from #tmp
Drop table #tmp

mkinzler 18. Aug 2010 12:20

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Zitat:

Was für eine Datenbank verwendest Du, der SQL-Server z.B. steigt bei 32 Rekusionen aus.
Siehe 1. Beitrag.

In FireBird kann man hierfür auch eine CTE nehmen

Bummi 18. Aug 2010 12:30

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Sorry habe ich überlesen.......

TheMiller 18. Aug 2010 14:19

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Hallo,

ja, ich nutze die Firebird-Embedded-Version (2.0). Was ist eine CTE?

Danke

mkinzler 18. Aug 2010 14:29

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
CTE: Common Table Extension

Hier ein Beispiel einer rekursiven CTE

SQL-Code:
with recursive ordner as
    ( select * from <Tabelle> order by parent)
select
    *
from
    <Tabelle> t
       join ordner O on t.parent = O.id;

TheMiller 18. Aug 2010 14:35

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Wow. Danke.

Davon habe ich noch nie etwas gehört. Bin leider nicht zu Hause, sodass ich es nicht testen kann. Aber über die Theorie/Praxis habe ich mir schon gedanken gemacht. Was ist perfomanter und "unbeschränkter"?

Gibt es ein Rekursionslimit bei der CTE? Wäre es nicht schneller, wenn ich die IDs der Kinder in eine unnormalisierte Spalte schreibe?

Das sind meine Fragen dazu, die mir gerade gekommen sind.

mkinzler 18. Aug 2010 14:40

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Man kann die Rekursionstiefe angeben

http://www.ibphoenix.fr/IMG/pdf/Fire....1.2007.en.pdf
http://bbs.prog365.com/firebird-sql-...-2769-1-1.html

borwin 18. Aug 2010 14:47

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Zitat:

Gibt es ein Rekursionslimit bei der CTE?
Bei dem Vorschlag von mkinzler ist es mir nicht bekannt? Denke aber eine Verschachtelungstiefe von über 30 wird eh unübersichtlich.

Zitat:

wenn ich die IDs der Kinder in eine unnormalisierte Spalte schreibe?
Wenn Du einen Knoten mal verschiebst hast Du richtig was zu tun um die Änderungen nachzuziehen (Jedes Kind bekommt ein neues Elternteil). Das kostet Zeit und ist ja auch nicht Notwendig, wenn es die Datenbank jederzeit live liefert.

Schau Dir mal die CTE an.

Gruß Borwin

TheMiller 18. Aug 2010 14:48

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Vielen Dank für die Links. Ich werde mir das in aller Ruhe heute Abend anschauen.

Auch dir nochmal danke für die Antwort, borwin. Der rote Kasten erschien bei mir nicht

tsteinmaurer 18. Aug 2010 14:57

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Hallo,

eine CTE fällt bei dir flach, weil erst in 2.1 verfügbar. Du könntest eine rekursive SELECTable Stored Procedure schreiben.

mkinzler 18. Aug 2010 15:02

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Oder auf FB 2.1 upgraden (sollte bei der embedded ja kein Problem darstellen)
Die Standard-Rekursionstiefe ist wohl 1024

tsteinmaurer 18. Aug 2010 15:23

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Technisch vielleicht kein Problem (Austausch der Embedded-Dateien), aber der Hund liegt meistens im Detail. :-D

Bei jedem Upgrade die Doku bzgl. "Known Compatibility Issues" durchstöbern.

mkinzler 18. Aug 2010 15:29

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Zwischen der 2.0 und der 2.1 sollte das Problem wohl eher weniger auftreten. Beim Upgrade von 1.x auf 2.x wäre das was anderes

TheMiller 22. Aug 2010 16:09

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Hallo!

Vielen Dank für die Antworten. Ich habe in meiner Testumgebung die embedded-Version auf 2.1 upgedated. Scheint alles funktioniert zu haben. Nun habe ich das Statement von mkinzler eingebaut und mit einer Where-Condition "angepasst".

Mein Problem ist, dass ich Denkschwierigkeiten bei Rekursionen habe. Das Statement funktioniert, ich habe es mir auch genauer angeschaut und glaub ich halbwegs verstanden.

Nur ein Problem habe ich jetzt noch. Momentan sucht er alle Ordner und Unterordner raus. Ich möchte jetzt eine "Start-ID" eines Ordners übergeben und von dieser an soll er rekursiv alle Unterordner liefern.

Setze ich nun eine kleine WHERE-Condition, liefert er mir nur die Unterordner der ersten tieferen Ebene, nicht aber von allen Ebenen.

SQL-Code:
with recursive ordner as '+
        '    (select * from K_KATEGORIEN order by parent) '+
        ' select * from '+
        ' K_KATEGORIEN k '+
        ' join ordner O on k.parent = O.id '+
        ' WHERE k.parent = 5050
Also so richtig habe ich es noch nicht gerafft ;)

Bitte nochmal um Hilfe und vielleicht etwas Erklärung!

Danke

omata 22. Aug 2010 19:56

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Nur geraten...

SQL-Code:
WITH recursive ordner AS
  (SELECT * FROM K_KATEGORIEN WHERE parent = 5050 ORDER BY parent)
   SELECT * 
   FROM K_KATEGORIEN k
   INNER JOIN ordner o
     ON k.parent = o.id

mkinzler 22. Aug 2010 20:24

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Die Einschränkung muss aber für die eigentliche Abfrage gelten nicht für die CTE, sie ja rekursiv aufgerufen wird und deshalb immer das selbe liefren würde
SQL-Code:
WITH recursive ordner AS
  (SELECT * FROM test3 ORDER BY parent)

   SELECT *
   FROM test3 k
   INNER JOIN ordner o
     ON k.parent = o.id
    and k.parent >= 2

TheMiller 22. Aug 2010 21:15

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Vielen Dank für die Antwort. Habe selbst die Lösung "schon" gefunden (war ziemliche Denkerei, zumal mein Hirn bei Rekursionen immer krampft ;))

Aber so konnte ich mich ordentlich einlesen. CTEs sind eig. eine tolle Sache. Hier meine Lösung:

Delphi-Quellcode:
db.sql('WITH RECURSIVE ordner AS ( ' +
         '     SELECT * FROM K_KATEGORIEN WHERE id = '+IntToStr(Kategorie.ID)+
         '     UNION ALL ' +
         '     SELECT * FROM K_KATEGORIEN ' +
         '     JOIN ordner ON K_KATEGORIEN.parent = ordner.id' +
         ') ' +
         'SELECT * FROM ordner');
Vielen Dank an alle für die Hilfen!

TheMiller 23. Aug 2010 15:25

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Hallo,

ein Problem habe ich doch noch. Ich verwende jetzt folgendes Statement (selbes wie oben, nur ohne WHERE-Condition), um eine TreeView zu füllen. Doch irgendwie sind alle Unterordner 2-mal vorhanden. Die Stammordner betrifft es nicht, nur die Unter(-unter)Ordner.

Ein "Group-by" bringt die Fehlermeldung

Zitat:

Invalid expression in the select list (not contained in either an aggregate function or the GROUP BY clause
Hier nochmal beide SQLs

Delphi-Quellcode:
//Mit o.g. Fehlermeldung
db.SQL('WITH RECURSIVE ordner AS ( ' +
         '     SELECT * FROM K_KATEGORIEN GROUP BY id'+
         '     UNION ALL ' +
         '     SELECT * FROM K_KATEGORIEN ' +
         '     JOIN ordner ON K_KATEGORIEN.parent = ordner.id' +
         ') ' +
         'SELECT * FROM ordner');

//Mit o.g. Fehlverhalten (2-Fach-Einträge)
db.SQL('WITH RECURSIVE ordner AS ( ' +
         '     SELECT * FROM K_KATEGORIEN '+
         '     UNION ALL ' +
         '     SELECT * FROM K_KATEGORIEN ' +
         '     JOIN ordner ON K_KATEGORIEN.parent = ordner.id' +
         ') ' +
         'SELECT * FROM ordner');
Hoffe, ihr könnt mir helfen.

Danke im Voraus

generic 23. Aug 2010 15:53

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Alternativ zu der DB-Struktur welche Ihr gerade nutzt, gibt es noch "Nested Sets".
Bei manchen Aufgabenstellungen eigenen diese sich besser.

TheMiller 23. Aug 2010 15:54

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Hm... ich kann diese DB-Struktur momentan nicht ändern. Ich bin an sie gebunden.

omata 23. Aug 2010 20:23

AW: Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden
 
Lass mal das ALL beim UNION weg...
SQL-Code:
WITH RECURSIVE ordner AS (
  SELECT * FROM k_kategorien
  UNION
  SELECT * FROM k_kategorien k
  INNER JOIN ordner o
    ON k.parent = o.id
)
SELECT * FROM ordner


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:39 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz