Einzelnen Beitrag anzeigen

Benutzerbild von mschaefer
mschaefer

Registriert seit: 4. Feb 2003
Ort: Hannover
2.029 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: sql-Abfrage Artikel aufsummieren nach Produktionszeit

  Alt 10. Dez 2010, 15:30
Moin,

würde das noch anders angehen. Eigentlich brauchst Du einen Marker,
wann der Artikel gewechselt wird. Am besten wäre das schon beim
Eintragen in der Datenbank. Oder aber man läßt eine Procedure laufen.

Delphi-Quellcode:
CREATE PROCEDURE GET_GRP_NO RETURNS
(
  GROUP_NO INTEGER,

  Datum DATE,
  Zeit TIME1
  Artikel VARCHAR(10)

) AS

DECLARE VARIABLE iCOUNT INTEGER;
DECLARE VARIABLE iARTIKEL CHAR(10);
BEGIN
  iCOUNT = 0;
  iARTIKEL = "";
  FOR SELECT Datum, Zeit, Artikel
      FROM Tabelle
      INTO :Datum, :Zeit, :Artikel
  DO
  BEGIN
      if iARTIKEL <> Artikel
        THEN iCOUNT = iCOUNT + 1
      ;
      GROUP_NO = iCOUNT;
      iARTIKEL = Artikel
    SUSPEND;
  END
END
^
Danach kann man dann eine SQL auf die GROUP_NO gruppieren:


Delphi-Quellcode:

SELECT DISTINCT ARTIKEL,
       COUNT (Artikel),
       MIX (TIME),
       MAN (TIME),
       FROM Tabelle
       GROUP BY GROUP_NO
       ORDER BY GROUP_NO
Grüße
Martin Schaefer
  Mit Zitat antworten Zitat