Währung, paradox-Tabelle - Fehler beim Schreiben in DB

Killi · Beiträge: 299 Win* D6 Prof

Hi,

ich bekomme bei folgendem Code immer einen Fehler:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

     test:= 4.50;

     QData2.Active:= False;
     QData2.SQl.Clear;
     QData2.SQl.Add('Insert into liefer (Gesamtpreis) values (' + FloatToStr(test) + ')');
     QData2.ExecSQL;

EDBEngineError - Meldung: 'Ungültiger Parameter'

wenn ich dagegen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

     test:= 4.50;

     QData2.Active:= False;
     QData2.SQl.Clear;
     QData2.SQl.Add('Insert into liefer (Gesamtpreis) values (4.50)');
     QData2.ExecSQL;

schreibe, dann funktioniert es - aber das mache ich auch mit "test" oder nicht???
Gesamtpreis ist vom Typ Währung.

Irgendwie ist heute nicht mein Tag...bin überarbeitet...früher hatte ich nie Probleme mit so etwas!?

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

_________________
----
Life is hard and then you die

jasocul · Verfasst: Di 20.09.05 20:51

iirc berücksichtigt FloatToStr den Dezimal-Separator in den Windows-Einstellungen.
Wenn du im Source den Wert für DecimalSeparator anpasst, sollte es funktionieren:

markieren

Delphi-Quelltext

1:	DecimalSeparator := '.';

Killi · Beiträge: 299 Win* D6 Prof

Wow...ok...danke.....

Du bist heute mein Held und Retter in der Not!!!!!! DANKE!

_________________
----
Life is hard and then you die

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme