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
Seite 1 von 3  1 23      
Metallicwar

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

Max(Datum) Min(Datum)

  Alt 18. Apr 2013, 17:29
Datenbank: ADS • Version: 10 • Zugriff über: Delphi
Moin,
habe folgenden Datenbestand:
Code:
ID--Datum--Buchungsart--Buchung1--Buchung2
1--01.04.13--A--07:00--16:00
2--01.04.13--P--11:00--11:30
3--01.04.13--A--17:00--20:00
4--01.04.13--P--18:00--18:30
Ich möchte mir aber nur die früheste Kommen und die letzte Gehen Buchung zusammenfassen.
Buchungen der Buchungsart P Sollen nicht berücksichtigt werden.
Folgendes soll rauskommen:
Code:
A: 07:00 - 18:30
P: 11:00 - 11:30
P: 18:00 - 18:30
Kann mir bitte jemand einen Tipp geben.
Über min(Buchung1) und max(Buchung2) hab ich's schon probiert, aber dann fasst er auch die P Buchugnen zusammen.
Und über
Delphi-Quellcode:
IIF(b.BuchungsArt = 'A', min(Buchung1), Buchung1) as Buchung1,
IIF(b.BuchungsArt = 'A', max(Buchung2), Buchung2) as Buchung2,
hab ich probleme mit dem group by ..
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

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

AW: Max(Datum) Min(Datum)

  Alt 18. Apr 2013, 17:48
Also du musst wohl nach Datum und Buchungsart gruppieren und die Buchungsarten getrennt behandeln:
SQL-Code:
(SELECT Datum, Buchungsart, Min(buchung1) as Startzeit, Max(buchungs2) as Endzeit FROM Buchungstabelle
WHERE Buchungsart = 'A'
GROUP BY Datum, Buchungsart)

UNION ALL

SELECT Datum, Buchungsart, buchung1 as Startzeit, buchungs2 as Endzeit FROM Buchungstabelle
WHERE Buchungsart <> 'A'
Falls diese Abfrage läuft, kann man die gesamte Datenmenge auch noch nach Datum sortieren.
  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 19. Apr 2013, 08:23
Super, genau das hab ich gebraucht.
Jetzt muss ich das ganze nur noch in meinen bestehenden SQL einbauen.
Besten Dank, falls noch Fragen sein sollten melde ich mich nochmal.

MfG
  Mit Zitat antworten Zitat
Metallicwar

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

AW: Max(Datum) Min(Datum)

  Alt 2. Mai 2013, 13: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 13:55 Uhr)
  Mit Zitat antworten Zitat
jobo

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

AW: Max(Datum) Min(Datum)

  Alt 2. Mai 2013, 14: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
 
#6

AW: Max(Datum) Min(Datum)

  Alt 3. Mai 2013, 09: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
 
#7

AW: Max(Datum) Min(Datum)

  Alt 3. Mai 2013, 11: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
741 Beiträge
 
#8

AW: Max(Datum) Min(Datum)

  Alt 3. Mai 2013, 12: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
 
#9

AW: Max(Datum) Min(Datum)

  Alt 3. Mai 2013, 12: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
 
#10

AW: Max(Datum) Min(Datum)

  Alt 3. Mai 2013, 14: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
Antwort Antwort
Seite 1 von 3  1 23      


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 10:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz