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".