Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Ist sowas mit SQL machbar? (https://www.delphipraxis.net/188436-ist-sowas-mit-sql-machbar.html)

Jumpy 4. Mär 2016 08:01

AW: Ist sowas mit SQL machbar?
 
Ich habe das auch schon mal gebraucht bei einer Schnittstelle zw. einem Zeitwirtschaft-System auf der einen und einem Personalabrechnungssystem auf der anderen Seite und da die in #6 beschriebene Lösung verwendet. Da das in meiner alten Firma war, hab ich da aber keinen Zugriff mehr drauf, sonst hätte ich das im Detail/SQL gepostet, statt nur grob den Weg/die Idee.

Mit dem reinen SQL-Statement konnte ich auf ein eigenes Delphi-Pogramm verzichten und eine Standard-Export-Lösung der Software verwenden (die nur mit einem SQL-Statement gefüttert werden musste).

jobo 4. Mär 2016 08:22

AW: Ist sowas mit SQL machbar?
 
@juergen: Auch wenn es angeblich einen Datensatz pro Tag gibt in der Tabelle, der Tag selbst, das Datum, steht nicht drin? Ist zumindest nicht als vorhanden markiert.

Sinnvoll bzw. bequem wären schon Window Functions, aber pervasive kenne ich nicht, für mich etwas exotisch, weiß nicht, ob die das kann. Ebenso SP, hier würde ein bequemer Ansatz wahrscheinlich recht ähnlich zu einem Vorgehen in Delphi, dursteppen und Liste ausspucken.

Wenn es nicht um große Datenmengen geht und die Lösung auch nicht für mehrere andere Systeme zur Verfügung stehen muss, ist eine Lösung per Client sicher am einfachsten. Ansonsten müsste man sich mal anschauen, was die eingesetze pervasive Version so alles kann, es geht bestimmt, auch ohne Windows Functions.

juergen 4. Mär 2016 18:02

AW: Ist sowas mit SQL machbar?
 
@jobo,
erst mal danke für deinen Einsatz!
Inzw. habe ich das ganze mit Delphi gelöst, indem ich die Query.Fields jeweils in ein Record schaufle und dann die Datensätze vergleiche. Wenn vom vorherigen Datensatz die PersNr, der Fehlgrund und das Datum + 1Tag(!) gleich ist, dann mache ich nichts ansonsten schreibe ich das ganze in eine Datei.
Ich hatte mit mehreren joins auf SQL-Ebene immer nur Teilergebnisse erreicht, der Aufwand wäre vermutlich sehr viel höher geworden und das ganze Statement ziemlich komplex. Weiterhin ist das Laufzeitverhalten über Pervasive mit 3 joins ziemlich mau. Mein Vergleich in Delphi geht sehr schnell (ca. 12.000 Datensätze als Ergebnis von ca. 2,3 Mio Datensätze in der Tabelle...).

Ein schönes Wochenende!

himitsu 4. Mär 2016 22:23

AW: Ist sowas mit SQL machbar?
 
Hatte erst meine Überlegungen so angefangen
SQL-Code:
SELECT PersNr, min(BeginnDatum+BeginnUhrzeit) AS Beginn, max(EndeDatum+EndeUhrzeit) AS Ende, Fehlart,
  lag(PersNr || Fehlart, ***) OVER (
    --PARTITION BY PersNr, Fehlart
    --ORDER BY EndeDatum+EndeUhrzeit
  ) AS GroupID
GROUP BY GroupID
ORDER BY PersNr, Fehlart, BeginnDatum, BeginnUhrzeit
aber das mit den WindowFunctions ist nicht so mein Ding.

Also dann doch mit den guten alten SubSelects weiterüberlegt. :stupid:
SQL-Code:
SELECT PersNr, min(BeginnDatum+BeginnUhrzeit) AS Beginn, max(EndeDatum+EndeUhrzeit) AS Ende, Fehlart,
  (
    WITH RECURSIVE Temp(Datum) AS (
      SELECT Abwesenheiten.BeginnDatum
      UNION ALL
      SELECT Loop.BeginnDatum
      FROM Abwesenheiten AS Loop
      WHERE Loop.BeginnDatum = Datum - 1
        AND Loop.PersNr = Abwesenheiten.PersNr
        AND Loop.Fehlart = Abwesenheiten.Fehlart
    )
    SELECT min(Datum) FROM Temp;
  ) AS GroupID
FROM Abwesenheiten
GROUP BY GroupID
ORDER BY PersNr, Fehlart, BeginnDatum, BeginnUhrzeit
>> nur grobe ungetestete Gedankengänge <<
Im Prinzip irgendwie den zuzammengehörigen Datensätzen eine Kennung verpassen und da ein GROUP BY drauf anwenden.

jobo 5. Mär 2016 06:00

AW: Ist sowas mit SQL machbar?
 
Zitat:

Zitat von himitsu (Beitrag 1332127)
Im Prinzip irgendwie den zuzammengehörigen Datensätzen eine Kennung verpassen und da ein GROUP BY drauf anwenden.

Ja, so könnte das gehen, wenn jürgens db rekursive CTE kann. Das bezweifel ich.
Ohne etwas Optimizer logic Richtung CTE und Window Functions möchte ich auch nicht wissen, wie die DB dann auf den Files rumrödelt.
@jürgen:
Wenn die DB da so wenig Unterstützung liefert, ist es wohl der beste Ansatz, db seitig ein Scan, Verarbeitung im Client, fertig.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:24 Uhr.
Seite 2 von 2     12   

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