Berechnungen in der select-Anweisung

[Luckner]

Hallo,
möchte gerne in der select-Anweisung bestimmte Spalten mit einem Faktor muliplizieren. Mit select VKPREIS * 80/100 as VKPREIS, funktioniert das auch.
Mit 'select VKPREIS * ' + QuotedStr(FloatToStr(Quotient)) + ' as VKPREIS, usw.' funtioniert es nicht Es gibt einen Dynamic sql-Error. Bitte um Hilfe.

Gruß, Luckner

[DeddyH]

Wieso QuotedStr? Benutz doch lieber SQL-Parameter, damit sparst Du Dir die Konvertierungen.

[Luckner]

Hallo DeddyH,

welche Parameter meinst Du. Bitte ein Beispiel.

[Union]

Zitat:

Zitat von Luckner (Beitrag 1234150)

Hallo,
möchte gerne in der select-Anweisung bestimmte Spalten mit einem Faktor muliplizieren. Mit select VKPREIS * 80/100 as VKPREIS, funktioniert das auch.
Mit 'select VKPREIS * ' + QuotedStr(FloatToStr(Quotient)) + ' as VKPREIS, usw.' funtioniert es nicht Es gibt einen Dynamic sql-Error. Bitte um Hilfe.
Gruß, Luckner

SQL-Engines arbeiten bei Literalen im US-Amerikanischen oder ISO-Format, je nachdem ob es sich um numerische oder Datumswerte handelt. Du solltest FloatToStr mit den entsprechenden Formatsettings einsetzen. Sonst hast Du ein Komma als Dezimaltrenner und das mag der SQL-Parser nicht. Genauso wenig wie die zusätzlichen Hochkomma, die durch QuotedStr gesetzt werden.

[Luckner]

Hallo DaddyH,

ohhjaa, das ist ein guter Hinweis. Klar ein ',' ist das Problem. Danke

[DeddyH]

Man kann im SQL-Statement Parameter definieren und sie anschließend befüllen. Das sollte wann immer möglich die bevorzugte Vorgehensweise sein, da man einerseits nicht mit Konvertierungen am Hut hat und sich so außerdem vor SQL-Injection schützt.

Delphi-Quellcode:

Query.SQL.Text := 'SELECT VKPREIS * :Quotient AS VKPREIS FROM Tabelle';
Query.ParamByName('Quotient').Value := Quotient;
Query.Open;

[Union]

Leider verarbeiten manche Datenbanken die Parametertypen von Delphi nicht korrekt, so dass man zur Sicherheit evtl. auch noch folgendes machen kann / sollte:

Code:

Query.SQL.Text := 'SELECT VKPREIS * CAST(:Quotient AS SQL_DOUBLE) AS VKPREIS FROM Tabelle';

[Luckner]

Hallo DaddyH, Union
Leider gibt es in beiden Fällen einen "Dynamic SQL SQL Error expression evaluation not supported". Unterstützt Firebird diesen SQL-String nicht. Habe ebenfalls das ',' gegen '.' getauscht. Komischt ist nur, dass wenn icht diesen Quotienten im selectstring mit 80/100 ersetze, dann funktioniert es. Irgendwie mag die Select-Anweisung die
Multiplikation * + String-Variable + nicht.

[DeddyH]

Wieso denn String? Was genau hast Du versucht?

[Luckner]

Hallo DeddyH,
hier ein Auszu aus meinem Prog:

Prozentquotient := DatamoduleStamm.DataModule3.IBDataSetStammdaten.Fi eldByName('PROZENTSATZ').AsFloat /100;
TempString := StringReplace(FloatToStrF(Prozentquotient,ffFixed, 10,2), ',', '.', [rfIgnoreCase, rfReplaceAll]);
Prozentquotient := StrToFloat(TempString);
...
...
IBDataSetGridAuftrag.SelectSQL.Add('SELECT POSITIONSSUMME * CAST(:Prozentquotient as DECIMAL(10,2)) as POSITIONSSUMME FROM TABLE XYZ');
DatamoduleAuftrag.DataModule2.IBDataSetGridAuftrag .ParamByName('Prozentquotient').Value := Prozentquotient;


Jetzt gibt es den Fehler" 0.80 ist kein gültiger Gleitkommawert".

[Furtbichler]

Wieso berechnet ihr das nicht einfach im Dataset? Wozu gibt es schließlich berechnete Felder und das OnCalcFields-Ereignis?

Delphi-Quellcode:

Procedure TMyDataModule.ADOTableCalcFields(DataSet: TDataSet);
begin
  DataSet['VKPreisBErechnet'] := DataSet['VkPreis']*Faktor;
End;

So in etwa (ich würde noch sicherheitshalber auf NULL prüfen etc.)

[Union]

Im DataSet ist das natürlich eine Möglichkeit, wenn auch die inperformanteste.

[Furtbichler]

Zitat:

Zitat von Union (Beitrag 1234221)

Im DataSet ist das natürlich eine Möglichkeit, wenn auch die inperformanteste.

Das merkt man doch eh erst bei einigen 1000 Records.
Wer eine Query basteln will, die von Client aus parametriert eine Spalte berechnet, will die Daten zu 99% im Client haben. Dann kann ich sie auch gleich im Client berechnen, tut ja, wie gesagt, nicht weh.

Und außerdem wollte ich einfach mal ne andere Möglichkeit andeuten. So blöd ist die ja nicht, vor allen Dingen, wenn man den Faktor on the fly ändern will. Dann werden die Daten fast live upgedatet. Vorausgesetzt, es sind, wie schon gesagt, nicht soooo viele.

[Luckner]

Hallo Furtbichler,
habe mir Deinen Vorschlag zu Herzen genommen und es ist wirklich eine Möglichkeit. Über das Dataset kann ich sogar mit Fastreport kommunizieren und im Druckformular benutzen. Es funktioniert. Danke Dir und Euch Allen für die Vorschläge.