Pivot/Kreuztabellen in Firebird mit SQL erstellen

[Chemiker]

Hallo,

mit folgenden SQL-String werden die Daten in einem DBGrid angezeigt.

Delphi-Quellcode:

SQLString:= 'SELECT *FROM '+TabellenName+' where (MW_MSID LIKE :aMSId) and'+
              ' (MW_DatumUhrZeit between :aStartDatum and :aEndeDatum)';

Ausgabe:

MW_ID----MW_MSID---MW_DATUMUHRZEIT---------MW_MW
2609327--K01T1-------05.03.2008 00:00------------55,2
2609341--K01D1-------05.03.2008 00:00------------5046
2609355--K01T1-------05.03.2008 00:01------------162,7
2609369--K01D1-------05.03.2008 00:01------------5036,1

Die Ausgabe sollte aber so sein:

MW_DATUMUHRZEIT---K01T1--K01D1
05.03.2008 00:00------55,2----5046
05.03.2008 00:01------162,7---5036,1


Wie kann man mit Hilfe von SQL, die Ausgabe in einem DBGrid verändern?

Bis bald Chemiker

[edit=mkinzler]Threadtitel auf Wunsch des Te geändert Mfg, mkinzler[/edit]

[DeddyH]

Statt des * alle interessanten Spalten in der gewünschten Reihenfolge angeben.

[Chemiker]

Hallo DeddyH,

das ist schon klar, aber so wird die Reihenfolge der Spalten nur verändert, aber die Anzeige bleibt.

Bis bald Chemiker

[mkinzler]

Dann hast du die Reihenfolge im Grid so festgelegt ( Columns) und musst die Reihenfolge deshalb dort ändern

[Chemiker]

Hallo mkinzler,

unter „Ausgabe:“ stehen in der 1 Reihe die Datenbankfelder und danach kommen die Werte.

Unter „Die Ausgabe sollte aber so sein:“ soll das Datum/Uhrzeit nur einmal stehen und unter den Datenbankwerten „K01T1“ und „K01D1“ „usw.“ sollen die Werte stehen die unter MW_MW normalerweise stehen.
Kurz gesagt es sollen Datenbank-Werte als Spaltenköpfe angezeigt werden.

Bis bald Chemiker

[mkinzler]

Die Spaltennamen kann man auch bei den Columns einstellen. Mir ist aber nicht ganz klar, wie die Ausgabe aussehen soll bzw. ob ein Grid überhaupt die richtge Anzeigekomponente ist. Könntest du das gewünschte Aussehen etwas geanuer skizzieren?

[alzaimar]

Ah, Du möchtest eine Pivot-Darstellung deiner Daten.
So ungefähr könnte es klappen:

SQL-Code:

select MW_DATUMUHRZEIT,
       SUM (IIF (MW_MSID = 'K01T1', MW_MW,0)) as K01T1,
       SUM (IIF (MW_MSID = 'K01D1', MW_MW,0)) as K01D1
From Tabelle
where (MW_MSID LIKE :aMSId) 
  and (MW_DatumUhrZeit between :aStartDatum and :aEndeDatum)
group by MW_DATUMUHRZEIT

[Chemiker]

Hallo alzaimar,

danke für den Hinweis.
Mit IBExpert hat es relativ schnell geklappt, aber als SQL-String habe ich doch rechte lange für die Umsetzung gebraucht.

So sieht die 1 Version jetzt aus, als String:

Delphi-Quellcode:

SQLString:= 'SELECT MW_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_MSID LIKE '+'''K01%'''+')'+ 
       ' and (MW_DATUMUHRZEIT between '+'''05.03.2008'''+' and '+'''06.03.2008'''+')'+
       'GROUP BY MW_DATUMUHRZEIT';

als große Fehlerquelle hat sich die richtige Anzahl an ’ und Leerzeichen an der richtigen Position herausgestellt, die Fehlermeldungen die dabei produziert werden, sind dabei wenig aussagekräftig.

So sieht das im IBExpert-SQL-Editor aus:

SQL-Code:

select MW_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_MSID LIKE 'K01%')
  and (MW_DatumUhrZeit between '05.03.2008' and '06.03.2008')
group by MW_DATUMUHRZEIT

Es soll nun noch dynamischer werden, dass wird aber morgen in Angriff genommen.

Bis bald Chemiker

[nahpets]

Hallo,

für meinen Editor habe ich mir mal dieses Script mit Pascalscript geschrieben.

Delphi-Quellcode:

program Sql2Source;
Var
        i : Integer;
begin
  Output.Clear;
  Output.Add('with qry.sql do begin');
  Output.Add('  clear;');
  for i := 0 to Editor.Count - 1 do begin
    Output.Add('  Add(''' + AnsiReplaceText(Editor[i],'''','''''') + ''');');
  end;
  Output.Add('end;');
  Log.Clear;
  Log.Add('SQLString := '''' ');
  for i := 0 to Editor.Count - 1 do begin
    Log.Add(' + ''' + AnsiReplaceText(Editor[i],'''','''''') + ' ''');
  end;
  Log[Log.Count - 1] := Log[Log.Count - 1] + ';';
end.

Da kommt dann dieses

Delphi-Quellcode:

with qry.sql do begin
  clear;
  Add('select MW_DATUMUHRZEIT,');
  Add('       SUM (IIF (MW_MSID = ''K01T1'', MW_MW,0)) as K01T1,');
  Add('       SUM (IIF (MW_MSID = ''K01D1'', MW_MW,0)) as K01D1');
  Add('From mw_tabelle');
  Add('where (MW_MSID LIKE ''K01%'')');
  Add('  and (MW_DatumUhrZeit between ''05.03.2008'' and ''06.03.2008'')');
  Add('group by MW_DATUMUHRZEIT');
end;

und jenes

Delphi-Quellcode:

SQLString := ''
 + 'select MW_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_MSID LIKE ''K01%'') '
 + '  and (MW_DatumUhrZeit between ''05.03.2008'' and ''06.03.2008'') '
 + 'group by MW_DATUMUHRZEIT ';

heraus und das leidige '-Thema ist erledigt. Eventuell kannst Du ja damit was anfangen und Dir ein kleines Delphiprogrämmelchen schreiben, das aus einem SQL den passenden Quelltext bastelt. Sollte mit wenig Aufwand zu realisieren sein und hilft Stunden bei der Fehlersuche zu sparen. Meine SQL's werden in der entsprechenden Datenbankoberfläche erstellt und getestet und dann durch das Script gejagt und fertig ist.

Editor ist das Eingabefeld (TSynEdit) des Editors, Output und Log sind Ausgabefelder (ebenfalls TSynEdit), die als TStrings ans Script übergeben werden. Mit drei TMemos (und 'nem Dutzend zusätzlicher Quelltextzeilen) sollte das in ein paar Minuten zu realisieren sein.

[Chemiker]

Hallo nahpets,

keine schlechte Idee.

Die TSynEdit’s kann man durch TMemo’s ersetzen?

Bis bald Chemiker