AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi [Firebird] TimeStamp Problem
Thema durchsuchen
Ansicht
Themen-Optionen

[Firebird] TimeStamp Problem

Ein Thema von Chemiker · begonnen am 28. Aug 2009 · letzter Beitrag vom 4. Nov 2009
 
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.859 Beiträge
 
Delphi 11 Alexandria
 
#17

Re: [Firebird] TimeStamp Problem

  Alt 4. Nov 2009, 20:16
Hallo,

ich habe jetzt eine Lösung gefunden. Ist wahrscheinlich nicht die eleganteste Methode, aber bringt das gewünschte Ergebnis.

Eigentlich ziemlich Aufwendig nur um den TimeStamp auseinander zu nehmen und anschließend ohne Sekunden-Anteil wieder zusammenzusetzen.



Mit:
SQL-Code:
select cast(EXTRACT (DAY FROM MW_DATUMUHRZEIT) ||'.'||
            EXTRACT (Month FROM MW_DATUMUHRZEIT)||'.'||
            EXTRACT (year from MW_DATUMUHRZEIT) ||' '||
            EXTRACT (hour from MW_DATUMUHRZEIT) ||':'||
            EXTRACT (minute from MW_DATUMUHRZEIT)as timeStamp) as DatumUhrzeit,
       SUM (IIF (MW_MSID = 'K01T1', MW_MW,0)) as K01T1,
       SUM (IIF (MW_MSID = 'K01D1', MW_MW,0)) as K01D1
From mw_tabelle
where (MW_DatumUhrZeit between '14.08.2009and '15.08.2009')
group by DatumUhrzeit
In Delphi wird die Abfrage dann so zusammengesetzt:

Delphi-Quellcode:
{
********************************************************************************
SQL-String für die Pivot-Tabelle in einer Stringlist zusammenstellen
********************************************************************************
}

procedure TAbtfrageClass.SQLPrivoString;
var
  I: Integer;
begin
  FSQLPivot.Clear;
  with FSQLPivot do
  begin
   { Select Anweisung alt ersetzt am 05.11.2009
    Add('SELECT MW_DATUMUHRZEIT, ');
    for I := 0 to FMSListe.Count-1 do
    begin
      Add('  SUM (IIF (MW_MSID = ');
      Add(''''+FMSListe[i]+'''');
      Add(', MW_MW,0)) AS ');
      Add(FMSListe[i]);
      if i < FMSListe.Count-1 then
      begin
        Add(',');
      end;
    end;
    Add('FROM mw_tabelle  ');
    Add('WHERE (MW_MSID LIKE '); // :aMSId
    Add('''%''');
    Add(')');
    Add(' AND (MW_DATUMUHRZEIT between ');
    Add(' :aStartDatum');
    Add(' AND ');
    Add(' :aEndeDatum)');
    Add(' group by MW_DATUMUHRZEIT');
   }

   // Am 04.11.2009 überarbeitete Abfrage nun jede Minute in eine Zeile
    Add('SELECT cast (EXTRACT (DAY FROM MW_DATUMUHRZEIT) ');
    Add('||');
    Add('''.''');
    Add('||');
    Add(' EXTRACT (Month FROM MW_DATUMUHRZEIT) ');
    Add('||');
    Add('''.''');
    Add('||');
    Add(' EXTRACT (year FROM MW_DATUMUHRZEIT) ');
    Add('||');
    Add(''' ''');
    Add('||');
    Add(' EXTRACT (hour FROM MW_DATUMUHRZEIT) ');
    Add('||');
    Add(''':''');
    Add('|| ');
    Add(' EXTRACT (minute FROM MW_DATUMUHRZEIT)');
    Add('as TimeStamp) as DatumUhrzeit, ');
    for I := 0 to FMSListe.Count-1 do
    begin
      Add(' SUM (IIF (MW_MSID = ');
      Add(''''+FMSListe[i]+'''');
      Add(', MW_MW,0)) AS ');
      Add(FMSListe[i]);
      if i < FMSListe.Count-1 then
      begin
        Add(',');
      end;
    end;
    Add('FROM mw_tabelle ');
    Add('WHERE (MW_DATUMUHRZEIT between ');
    Add(' :aStartDatum');
    Add(' AND ');
    Add(' :aEndeDatum)');
    Add(' group by DatumUhrzeit');
  end;
end;
Ich habe jetzt zwar eine Lösung, aber es ist immer noch unklar wodurch das Problem entstanden ist.

Trotzdem danke an alle für die Tipps.

Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat
 


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 02:40 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 by Thomas Breitkreuz