AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Select für Projekte mit Unterprojekten

Select für Projekte mit Unterprojekten

Ein Thema von bcvs · begonnen am 13. Sep 2019 · letzter Beitrag vom 16. Sep 2019
Antwort Antwort
bcvs

Registriert seit: 16. Jun 2011
410 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Select für Projekte mit Unterprojekten

  Alt 13. Sep 2019, 11:51
Datenbank: ElevateDB • Version: 2.31 • Zugriff über: direkt
Hallo SQL-Spezialisten,

ich habe eine Datenbanktabelle für eine hierarchische Struktur von Projekten. In der Tabelle gibt es ein Feld für die eigene Projektnummer (PROJ_NR) und ein Feld für die Nummer des übergeordneten Projektes (VORG).

Die Nummern können beliebig sein, d.h. anhand der Projektnummer lässt sich die Zugehörigkeit zu einem bestimmten Projektzweig nicht feststellen.

Jetzt brauche ich ein Select, das mir alle Projekte in einem Nummernbereich der oberen Ebene einschließlich aller Unterprojekte liefert.

Beispiel:
Code:
1000
  - aaaa
      - 12345
      - 67890
  - bbbb
  - cccc
2000
  - xxxx
  - yyyy
      - bla
      - blub
  - zzzz
Ein Select von 1000 bis 2000 soll jetzt alle diese Projekte liefern. Ich habe das momentan mit Hilfe einer serverseitigen Funktion gelöst, die zu einer Projektnummer die Nummer des Hauptprojekts auf der oberen Ebene zurückgibt:

Code:
CREATE FUNCTION "MainVorg" (IN "aPrjNr" VARCHAR COLLATE "ANSI")
RETURNS VARCHAR COLLATE "ANSI"
BEGIN
  DECLARE Vorg Varchar;
  DECLARE MainPrjNr VarChar;
  DECLARE ProjCursor CURSOR FOR stmtProj;
  PREPARE stmtProj FROM 'Select Vorg From Projekte Where PROJ_NR = ?';

  Set Vorg = aPrjNr;
  Repeat
    Set MainPrjNr = Vorg;
    OPEN ProjCursor USING MainPrjNr;
    IF (ROWCOUNT(ProjCursor) > 0) THEN
       FETCH FIRST FROM ProjCursor ('Vorg') INTO Vorg;
    ELSE
       Set Vorg = '';
    END IF;
    CLOSE ProjCursor;

  Until (Vorg='') or (Vorg is NULL) End Repeat;
  Return MainPrjNr;
END
Diese Funktion wird dann beispielsweise folgendermaßen verwendet:

Code:
SELECT Projekte.PROJ_NR
FROM Projekte
WHERE (MainVorg(Projekte.PROJ_NR) >= '1000') and (MainVorg(Projekte.PROJ_NR) <= '2000')
Das funktioniert auch, ist allerdings bei größeren Datenmengen etwas langsam. Habt ihr irgendwelche Ideen, wie man das optimieren könnte?
  Mit Zitat antworten Zitat
jobo

Registriert seit: 29. Nov 2010
2.625 Beiträge
 
Delphi 2010 Enterprise
 
#2

AW: Select für Projekte mit Unterprojekten

  Alt 13. Sep 2019, 12:06
Ich verstehe das vielleicht nicht ganz.
Du hast eine Funktion, die hauptsächlich ein Feld eines Datensatzes zurückliefert (vorg), dass Du aber auch so direkt auslesen könntest?

Wegen der Langsamkeit:
Ich weiß nicht, was ElevateDB kann und wie toll der Rechner ist, auf dem es läuft. Aber Projekte hat man idR nicht 10000e.
Wie sieht es mit der Indizierung der Schlüsselfelder aus?
Sind sie indiziert?
Glaubst Du, sie sind indiziert?
Gruß, Jo
  Mit Zitat antworten Zitat
bcvs

Registriert seit: 16. Jun 2011
410 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

AW: Select für Projekte mit Unterprojekten

  Alt 13. Sep 2019, 13:44
Nein, die Funktion gibt die Nr. des Stammprojektes auf der obersten Ebene zurück, also z. B. MainVorg('blub') = 2000

Die Indizierung ist eigentlich in Ordnung.
  Mit Zitat antworten Zitat
jobo

Registriert seit: 29. Nov 2010
2.625 Beiträge
 
Delphi 2010 Enterprise
 
#4

AW: Select für Projekte mit Unterprojekten

  Alt 13. Sep 2019, 14:24
Ok, nicht richtig hingeschaut.
Wieviel Datensätze sind es denn und wie tief sind die "schlimmsten" verschachtelt?

Solche Selbstreferenzen bearbeitet man eigentlich mit CTE oder anderen (proprietären) rekursiven Verfahren oder Window Functions. Ob es sowas für ElevateDB gibt, weiß ich nicht.

Vielleicht kann man jedenfalls die halbe Arbeit für die Engine sparen, indem man wenigsten die Bedingung umformuliert:
Code:
WHERE MainVorg(Projekte.PROJ_NR) between '1000' and '2000'
Gruß, Jo
  Mit Zitat antworten Zitat
bcvs

Registriert seit: 16. Jun 2011
410 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

AW: Select für Projekte mit Unterprojekten

  Alt 16. Sep 2019, 08:08
Danke, das mit dem between bringt schon was.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf