Interne Umwandlung von String zu Float?

[DeddyH]

Ein Float ist ein Float, da gibt es keinen Punkt und kein Komma. Wie sieht denn das Insert-Statement aus?

[hoika]

Hallo,

du darfst den Float-Wert nicht per AsString übergeben,
sondern als AsFloat.

D.h. Parameter benutzen.


Heiko

[Mysterio08]

@angos:

Zitat:

"Das liegt daran, dass StrToFloat in den Wert mit Komma zurückgibt, das DBMS aber einen Punkt als Trennzeichen verlangt."

Das habe ich mir schon gedacht.

Zitat:

Du musst also nur das Komma durch den Punkt ersetzen.

Das habe ich jetzt gemacht mit der "Stringbearbeitung", einfach nach dem Komma und gesucht, und dann die Prozeduren DELETE und INSERT benutzt. Das klappt, danke!


@DeddyH:

Zitat:

Ein Float ist ein Float, da gibt es keinen Punkt und kein Komma. Wie sieht denn das Insert-Statement aus?

Mhm, da scheine ich deine ersten Satz misszuverstehen: Float = Gleitkommawert, also zwangsläufig mit Punkt und/oder Komma. Insert-Statement:

@hoika:

Zitat:

du darfst den Float-Wert nicht per AsString übergeben,
sondern als AsFloat.

D.h. Parameter benutzen.

Parameter benutze ich natürlich, mein SQL-String sieht gekürzt so aus:
Sql := 'UPDATE auftraggeber SET ... Honorarsatz=:12 ... WHERE AuftraggeberID= :ID'; Und die Parameter-Zuweisung so:
AdoQuery3.Parameters.ParamByName('12').Value := DBText12.Text; Ich glaube, man kann kritisieren, dass ich als Parameter Zahlen verwende, aber ich habe auf meiner Form 14 DBEdits, es werden relativ viele Daten erfasst. Dies gestalte ich aber alles mit Schleifen, die Datenerfassung so:
for i := 2 to Max do Texts[i] := (FindComponent('DBEdit' + IntToStr(i)) as TDBEdit).Text; Und dann fülle ich die Parameter auch per Schleife:
for i := 2 to Max do AdoQuery3.Parameters.ParamByName(IntToStr(i)).Value := Texts[i]; Ich bin mir nicht 100%ig sicher, aber die TAdoQuery-Komponente bietet doch nicht die Möglichkeit, wie z.B. TQuery (wenn ich mich da richtig entsinne) den Typ mit anzugeben, also AsString, AsFloat etc.

[Bernhard Geyer]

Zitat von Mysterio08:

Und dann fülle ich die Parameter auch per Schleife:
for i := 2 to Max do AdoQuery3.Parameters.ParamByName(IntToStr(i)).Value := Texts[i]; Ich bin mir nicht 100%ig sicher, aber die TAdoQuery-Komponente bietet doch nicht die Möglichkeit, wie z.B. TQuery (wenn ich mich da richtig entsinne) den Typ mit anzugeben, also AsString, AsFloat etc.

Weis den Wert erstmal einer Delphi-Float-Variable zu befor du es an Value übergibst.
Vermutung: Das Property Value ist ein Variant und merkt sich den Typ der übergeben wurde. Deshalb ist hier eine interne String nach Float-Wandlung nötig die nicht nötig wäre wenn du eine Float-Variable an das Value-Property übergibst.

[DeddyH]

Nicht die Float hat ein Trennzeichen, sondern deren Darstellung. Und Du übergibst einen String an ein Float-Feld. Wie ist es so?
AdoQuery3.Parameters.ParamByName('12').Value := StrToFloat(DBText12.Text);

[Mysterio08]

AdoQuery3.Parameters.ParamByName('12').Value := StrToFloat(DBText12.Text); Das ist einleuchtend! Das Problem bei der Sache ist ja nur, dass ich bisher alles schön per Schleife übergeben konnte, das ist ja so nicht mehr möglich, weil ich ja String-, Float- und andere Feldtypen habe. Gibt es eine Funktion, mit der ich den Tabellentyp ermitteln kann, sodass ich in etwa so was verwenden kann: ?

if Typ = Float then AdoQuery3.Parameters.ParamByName('12').Value := StrToFloat(DBText12.Text) Und wenn ich diese Typumwandlung bei der Parameterzuweisung weglassen - was für (gravierende) Nachteile hat dies? Denn momentan läuft es einwandfrei ohne.

[schlecki]

probier mal:

DBText12.Datasource.Dataset.FieldByName(DBText12.FieldName).FieldType //(oder DataType?) Sollte ungefähr so gehen