AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Max(Datum) Min(Datum)
Thema durchsuchen
Ansicht
Themen-Optionen

Max(Datum) Min(Datum)

Ein Thema von Metallicwar · begonnen am 18. Apr 2013 · letzter Beitrag vom 15. Mai 2013
Antwort Antwort
Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#1

AW: Max(Datum) Min(Datum)

  Alt 2. Mai 2013, 12:50
Hi,
nochmal ne Frage zu meinem SQL.
Hab das UNION SELECT eingebaut.
Kann man den SQL noch kürzen und perfomanter machen:
Code:
SELECT ma_s.ID, ma_s.Personalnummer as Personalnr, ma_s.Nachname as Name,
ma_s.Vorname, bd.Datum, bd.Kuerzel, bd.Feiertag, a.Bezeichnung,
IIF(be.Pause = 0, null, ZMIF.MinToHour(be.Pause)) AS PauseH,
ZMIF.MinToIHour(be.Pause) as PauseIH, IIF(be.Tagesbrutto = 0, null,
ZMIF.MinToHour(be.Tagesbrutto)) AS TagesbruttoH,
ZMIF.MinToIHour(be.Tagesbrutto) as TagesbruttoIH, IIF(be.Mehrarbeit = 0, null,
ZMIF.MinToHour(be.Mehrarbeit)) AS MehrarbeitH,
ZMIF.MinToIHour(be.Mehrarbeit) as MehrarbeitIH, b.BuchungsArt,
min(b.Me1) as Me1, max(b.Me2) as Me2, b.Flag
FROM MA_Stammdaten ma_s
LEFT OUTER JOIN Abteilungen a ON  ma_s.ID_Abteilungen = a.ID
LEFT OUTER JOIN Buchungsdatei bd ON    ma_s.ID = bd.ID_MA_Stammdaten
LEFT OUTER JOIN Buchungen b ON    bd.ID_MA_Stammdaten = b.ID_MA_Stammdaten
AND    bd.Datum = b.Datum
LEFT OUTER JOIN FEHLTAGEDEFINITION ftd ON    bd.Fehltag = ftd.Kuerzel
LEFT OUTER JOIN B_Ergebnisse be ON     bd.ID = be.ID_Buchungsdatei
WHERE ma_s.ID IN (3) and Month(bd.Datum) = 2 and Year(bd.Datum) = 2013 
GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,18
UNION ALL
SELECT ma_s.ID, ma_s.Personalnummer as Personalnr, ma_s.Nachname as Name,
ma_s.Vorname, bd.Datum, bd.Kuerzel, bd.Feiertag, a.Bezeichnung,
IIF(be.Pause = 0, null, ZMIF.MinToHour(be.Pause)) AS PauseH,
ZMIF.MinToIHour(be.Pause) as PauseIH, IIF(be.Tagesbrutto = 0, null,
ZMIF.MinToHour(be.Tagesbrutto)) AS TagesbruttoH,
ZMIF.MinToIHour(be.Tagesbrutto) as TagesbruttoIH, IIF(be.Mehrarbeit = 0, null,
ZMIF.MinToHour(be.Mehrarbeit)) AS MehrarbeitH,
ZMIF.MinToIHour(be.Mehrarbeit) as MehrarbeitIH, b.BuchungsArt,
b.Me1 as Me1, b.Me2 as Me2, b.Flag
FROM MA_Stammdaten ma_s
LEFT OUTER JOIN Abteilungen a ON  ma_s.ID_Abteilungen = a.ID
LEFT OUTER JOIN Buchungsdatei bd ON    ma_s.ID = bd.ID_MA_Stammdaten
LEFT OUTER JOIN Buchungen b ON    bd.ID_MA_Stammdaten = b.ID_MA_Stammdaten
AND    bd.Datum = b.Datum
LEFT OUTER JOIN FEHLTAGEDEFINITION ftd ON    bd.Fehltag = ftd.Kuerzel
LEFT OUTER JOIN B_Ergebnisse be ON     bd.ID = be.ID_Buchungsdatei
WHERE ma_s.ID IN (3) and Month(bd.Datum) = 2 and Year(bd.Datum) = 2013 
ORDER By ma_s.ID

Geändert von Metallicwar ( 2. Mai 2013 um 12:55 Uhr)
  Mit Zitat antworten Zitat
jobo

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

AW: Max(Datum) Min(Datum)

  Alt 2. Mai 2013, 13:21
Man kann es kann es zunächst netter formatieren, dann stirbt man nicht so schnell an Augenkrebs.

Code:
SELECT ma_s.ID, ma_s.Personalnummer as Personalnr, ma_s.Nachname as Name,
       ma_s.Vorname, bd.Datum, bd.Kuerzel, bd.Feiertag, a.Bezeichnung,
       IIF(be.Pause = 0, null, ZMIF.MinToHour(be.Pause)) AS PauseH,
       ZMIF.MinToIHour(be.Pause) as PauseIH,
       IIF(be.Tagesbrutto = 0, null, ZMIF.MinToHour(be.Tagesbrutto)) AS TagesbruttoH,
       ZMIF.MinToIHour(be.Tagesbrutto) as TagesbruttoIH,
       IIF(be.Mehrarbeit = 0, null, ZMIF.MinToHour(be.Mehrarbeit)) AS MehrarbeitH,
       ZMIF.MinToIHour(be.Mehrarbeit) as MehrarbeitIH, b.BuchungsArt,
       min(b.Me1) as Me1, max(b.Me2) as Me2, b.Flag
  FROM MA_Stammdaten ma_s
  LEFT OUTER JOIN Abteilungen a
    ON ma_s.ID_Abteilungen = a.ID
  LEFT OUTER JOIN Buchungsdatei bd
    ON ma_s.ID = bd.ID_MA_Stammdaten
  LEFT OUTER JOIN Buchungen b
    ON bd.ID_MA_Stammdaten = b.ID_MA_Stammdaten
   AND bd.Datum = b.Datum
  LEFT OUTER JOIN FEHLTAGEDEFINITION ftd
    ON bd.Fehltag = ftd.Kuerzel
  LEFT OUTER JOIN B_Ergebnisse be
    ON bd.ID = be.ID_Buchungsdatei
 WHERE ma_s.ID IN (3)
   and Month(bd.Datum) = 2
   and Year(bd.Datum) = 2013
 GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 18
UNION ALL
SELECT ma_s.ID, ma_s.Personalnummer as Personalnr, ma_s.Nachname as Name,
       ma_s.Vorname, bd.Datum, bd.Kuerzel, bd.Feiertag, a.Bezeichnung,
       IIF(be.Pause = 0, null, ZMIF.MinToHour(be.Pause)) AS PauseH,
       ZMIF.MinToIHour(be.Pause) as PauseIH,
       IIF(be.Tagesbrutto = 0, null, ZMIF.MinToHour(be.Tagesbrutto)) AS TagesbruttoH,
       ZMIF.MinToIHour(be.Tagesbrutto) as TagesbruttoIH,
       IIF(be.Mehrarbeit = 0, null, ZMIF.MinToHour(be.Mehrarbeit)) AS MehrarbeitH,
       ZMIF.MinToIHour(be.Mehrarbeit) as MehrarbeitIH, b.BuchungsArt,
       b.Me1 as Me1, b.Me2 as Me2, b.Flag
  FROM MA_Stammdaten ma_s
  LEFT OUTER JOIN Abteilungen a
    ON ma_s.ID_Abteilungen = a.ID
  LEFT OUTER JOIN Buchungsdatei bd
    ON ma_s.ID = bd.ID_MA_Stammdaten
  LEFT OUTER JOIN Buchungen b
    ON bd.ID_MA_Stammdaten = b.ID_MA_Stammdaten
   AND bd.Datum = b.Datum
  LEFT OUTER JOIN FEHLTAGEDEFINITION ftd
    ON bd.Fehltag = ftd.Kuerzel
  LEFT OUTER JOIN B_Ergebnisse be
    ON bd.ID = be.ID_Buchungsdatei
 WHERE ma_s.ID IN (3)
   and Month(bd.Datum) = 2
   and Year(bd.Datum) = 2013
 ORDER By ma_s.ID

Ich kenne mich mit ADS nicht aus, aber die üblichen Verdächtigen wären:
Das "in (3)" vielleicht durch = 3 ersetzen,
Die Year und Month Funktion ersetzen durch eine gleichwertige Bereichsabfrage:
Code:
 .."bd.datum" >= NiedrigsterDatumsWert
and .."bd.datum" <= HöchsterDatumsWert
oder between
Die Funktionen vermiesen wahrscheinlich den Indexzugriff auf das Datumsfeld (sofern hier Indizierung gegeben ist)

Generell hilft hier systematisch nur, den Ausführungsplan ausgeben zu lassen. Das RDBMS selbst weiß meist am besten, was es tut.
Gruß, Jo
  Mit Zitat antworten Zitat
Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#3

AW: Max(Datum) Min(Datum)

  Alt 3. Mai 2013, 08:54
Hi jobo,
die ma_s.ID IN (3) kann ich nicht durch = ersetzen, da es auch sein kann, dass ich durch eine Funktion mehrere ID's bekommen, daher muss ich das ganze über IN lösen.
Das mit dem Datum werd ich umbauen.
Jetzt steh ich aber vor einem anderen Problem, vll kann mir da jmd helfen ...
Momentan werden in meiner Ergebnismenge nur Tage angezeigt, wo der Mitarbeiter eine Buchung hat.
Tabelle Buchungsdatei: Enthält für jeden Tag einen Eintrag
Tabelle Buchungen: Enthält nur Einträge an denen der MA gebucht hat.

Ich joine ja die Tabelle Buchugnen auf die Buchungsdatei und verknüpf sie über die ID des MA's als auch über das Datum. Liegt das Problem hier?
  Mit Zitat antworten Zitat
jobo

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

AW: Max(Datum) Min(Datum)

  Alt 3. Mai 2013, 10:20
Du arbeitest ausschließlich mit Outer Joins.
In Deinem Statement musst Du aber dafür sorgen, dass die Tabelle mit allen Tagen (Buchungsdatei) vollständig dargestellt wird -sozusagen als Master- und nicht schon durch vorgelagerte Outer joins gesiebt wird.
Dazu würde ich evtl. die Tabelle Buchungsdatei als Kerntabelle wählen und davon ausgehend die restlichen Subtabellen je nach Bedarf mit Full oder Outer Joins angliedern.
Gruß, Jo
  Mit Zitat antworten Zitat
Benutzerbild von Olli73
Olli73

Registriert seit: 25. Apr 2008
Ort: Neunkirchen
792 Beiträge
 
#5

AW: Max(Datum) Min(Datum)

  Alt 3. Mai 2013, 11:04
Versuch mal statt:
Code:
  FROM MA_Stammdaten ma_s
  LEFT OUTER JOIN Abteilungen a
    ON ma_s.ID_Abteilungen = a.ID
  LEFT OUTER JOIN Buchungsdatei bd
    ON ma_s.ID = bd.ID_MA_Stammdaten
  LEFT OUTER JOIN Buchungen b
    ON bd.ID_MA_Stammdaten = b.ID_MA_Stammdaten
   AND bd.Datum = b.Datum
  LEFT OUTER JOIN FEHLTAGEDEFINITION ftd
    ON bd.Fehltag = ftd.Kuerzel
  LEFT OUTER JOIN B_Ergebnisse be
    ON bd.ID = be.ID_Buchungsdatei
das hier:
Code:
  FROM MA_Stammdaten ma_s
  LEFT OUTER JOIN Abteilungen a
    ON ma_s.ID_Abteilungen = a.ID
  LEFT OUTER JOIN Buchungsdatei bd
       LEFT OUTER JOIN Buchungen b
         ON bd.ID_MA_Stammdaten = b.ID_MA_Stammdaten
        AND bd.Datum = b.Datum
       LEFT OUTER JOIN FEHLTAGEDEFINITION ftd
         ON bd.Fehltag = ftd.Kuerzel
       LEFT OUTER JOIN B_Ergebnisse be
         ON bd.ID = be.ID_Buchungsdatei
    ON ma_s.ID = bd.ID_MA_Stammdaten
Ist aber ungetestet!
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Max(Datum) Min(Datum)

  Alt 3. Mai 2013, 11:54
Ich kenne mich mit ADS nicht aus, aber die üblichen Verdächtigen wären:
Das "in (3)" vielleicht durch = 3 ersetzen,
Die Year und Month Funktion ersetzen durch eine gleichwertige Bereichsabfrage:
Code:
 .."bd.datum" >= NiedrigsterDatumsWert
and .."bd.datum" <= HöchsterDatumsWert
Eine weitere Möglichkeit wäre u.U
Code:
...
and to_char(bd.Datum,'YYYYMM')='201302'
...
kommt aber wie schon gesagt auf deine DB an.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
jobo

Registriert seit: 29. Nov 2010
3.072 Beiträge
 
Delphi 2010 Enterprise
 
#7

AW: Max(Datum) Min(Datum)

  Alt 3. Mai 2013, 13:17
to_char und jede andere Funktion über einem Datenbankfeld in einer Where-Clause würde aber die Indexverwendung verhindern, sofern kein Funktion-Index (oder vergleichbare Verfahren anderer Systeme) extra dafür angelegt wurde.
Im Prinzip nicht schlimm, erst Recht wenn dort eh kein Index definiert ist oder dieser aus anderen Gründen nicht greift bzw irrelevant ist.
Da es sich rein namentlich aber um große Kerntabellen zu handeln scheint und Performance gefragt war, sollte man sowas vermeiden.
Wie gesagt, keine Ahnung, was ADS da tolles zu bieten hat, aber die Problematik ist grundlegend und dürfte herstellerunabhängig gelten.
Gruß, Jo
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#8

AW: Max(Datum) Min(Datum)

  Alt 5. Mai 2013, 23:42
Besser wäre es zuerst die Union zu bilden und dann dieses Ergebnis mit den Stammdaten zu verknüpfen.
Also ganz grob so
SQL-Code:
SELECT DevTbl.*, Stammdaten.* FROM
  (SELECT ... FROM Buchungen WHERE ...
   GROUP BY ...
   UNION ALL
   SELECT ... FROM Buchungen WHERE ...
   GROUP BY ...) DevTbl
INNER JOIN Stammdaten ON Stammdaten.xxx=DevTbl.xxx
Der Name "DevTbl" ist ein Alias für die innere Abfrage mit UNION ALL.
  Mit Zitat antworten Zitat
Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#9

AW: Max(Datum) Min(Datum)

  Alt 6. Mai 2013, 15:15
Hi,
werd ich alles gleich nochmal ausprobieren, hab nämlich noch kleine Ergebnisprobleme mit dem SQL.

Ich meld mich wieder .
  Mit Zitat antworten Zitat
Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#10

AW: Max(Datum) Min(Datum)

  Alt 6. Mai 2013, 15:54
Ich steh etwas auf dem Schlauch.
Ich kriege mit dem SQL zu Beginn des Threads meine Ergebnismenge zwei mal.
Code:
01.02.2013
02.02.2013
...
28.02.2013
01.02.2013
02.02.2013
28.02.2013
Code:
SELECT ma_s.ID, ma_s.Personalnummer as Personalnr, ma_s.Nachname as Name,
       ma_s.Vorname, bd.Datum, bd.Kuerzel, bd.Feiertag, a.Bezeichnung,
       IIF(be.Pause = 0, null, ZMIF.MinToHour(be.Pause)) AS PauseH,
       ZMIF.MinToIHour(be.Pause) as PauseIH,
       IIF(be.Tagesbrutto = 0, null, ZMIF.MinToHour(be.Tagesbrutto)) AS TagesbruttoH,
       ZMIF.MinToIHour(be.Tagesbrutto) as TagesbruttoIH,
       IIF(be.Mehrarbeit = 0, null, ZMIF.MinToHour(be.Mehrarbeit)) AS MehrarbeitH,
       ZMIF.MinToIHour(be.Mehrarbeit) as MehrarbeitIH, b.BuchungsArt,
       min(b.Me1) as Me1, max(b.Me2) as Me2, b.Flag
  FROM MA_Stammdaten ma_s
  LEFT OUTER JOIN Abteilungen a
    ON ma_s.ID_Abteilungen = a.ID
  LEFT OUTER JOIN Buchungsdatei bd
    ON ma_s.ID = bd.ID_MA_Stammdaten
  LEFT OUTER JOIN Buchungen b
    ON bd.ID_MA_Stammdaten = b.ID_MA_Stammdaten
   AND bd.Datum = b.Datum
  LEFT OUTER JOIN FEHLTAGEDEFINITION ftd
    ON bd.Fehltag = ftd.Kuerzel
  LEFT OUTER JOIN B_Ergebnisse be
    ON bd.ID = be.ID_Buchungsdatei
 WHERE ma_s.ID IN (3)
   and Month(bd.Datum) = 2
   and Year(bd.Datum) = 2013 
 GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 18
UNION ALL
SELECT ma_s.ID, ma_s.Personalnummer as Personalnr, ma_s.Nachname as Name,
       ma_s.Vorname, bd.Datum, bd.Kuerzel, bd.Feiertag, a.Bezeichnung,
       IIF(be.Pause = 0, null, ZMIF.MinToHour(be.Pause)) AS PauseH,
       ZMIF.MinToIHour(be.Pause) as PauseIH,
       IIF(be.Tagesbrutto = 0, null, ZMIF.MinToHour(be.Tagesbrutto)) AS TagesbruttoH,
       ZMIF.MinToIHour(be.Tagesbrutto) as TagesbruttoIH,
       IIF(be.Mehrarbeit = 0, null, ZMIF.MinToHour(be.Mehrarbeit)) AS MehrarbeitH,
       ZMIF.MinToIHour(be.Mehrarbeit) as MehrarbeitIH, b.BuchungsArt,
       b.Me1 as Me1, b.Me2 as Me2, b.Flag
  FROM MA_Stammdaten ma_s
  LEFT OUTER JOIN Abteilungen a
    ON ma_s.ID_Abteilungen = a.ID
  LEFT OUTER JOIN Buchungsdatei bd
    ON ma_s.ID = bd.ID_MA_Stammdaten
  LEFT OUTER JOIN Buchungen b
    ON bd.ID_MA_Stammdaten = b.ID_MA_Stammdaten
   AND bd.Datum = b.Datum
  LEFT OUTER JOIN FEHLTAGEDEFINITION ftd
    ON bd.Fehltag = ftd.Kuerzel
  LEFT OUTER JOIN B_Ergebnisse be
    ON bd.ID = be.ID_Buchungsdatei
 WHERE ma_s.ID IN (3)
   and Month(bd.Datum) = 2
   and Year(bd.Datum) = 2013
 ORDER By ma_s.ID
Kann mir nicht erklären warum !?!

Außerdem werden Pausezeiten nicht einzeln aufgelistet sondern auch nur die erste Buchung und die letzte.
Code:
Arbeitszeit: 07:00 - 16:15
Pause:      11:49 - 12:31
Arbeitszeit: 17:00 - 20:00
Pause:      18:00 - 18:30
SQL Ergebnis ..
Code:
Arbeitszeit: 07:00 - 20:00
Pause:      11:49 - 18:30
.. was ja falsch ist, da die Pausen nicht zusammengefasst werden sollen.
  Mit Zitat antworten Zitat
Antwort Antwort


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 15: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