Alle Kindeskinder(...) virtueller Ordnerstruktur herausfinden

[TheMiller]

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]

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]

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]

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]

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]

Alternativ zu der DB-Struktur welche Ihr gerade nutzt, gibt es noch "Nested Sets".
Bei manchen Aufgabenstellungen eigenen diese sich besser.

[TheMiller]

Hm... ich kann diese DB-Struktur momentan nicht ändern. Ich bin an sie gebunden.

[omata]

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