ADOCommand Parameter - ich werde bekoppt

[süden]

Hallo,
ich hoffe Ihr seit meine Rettung.

a) Ich hole aus einer Tabelle Q eine Summe (ADODataset)
b) Das Ergebnis ist 416,66666666666666.
c) Mittels ADOConmmand und SQL UPDATE will ich dieses Ergebnis in eine andere Tabelle einfügen.
Ich verwende brav Parameter. Es können viele Datensätze werden.

Code:

   dKost := FieldByName('intern').AsFloat;
   ...
   Parameters.ParamByName('I').Value  := dKost;

Ergebnis in der neuen Tabelle = 41666666666666666
Ich dachte, weil dKost mit Komma ist.

Umgebaut zu Stingvariable sKost.

Code:

   sKost := FieldByName('intern').AsSting;
   ...
   Parameters.ParamByName('I').Value  := StringReplace(sKost, ',', '.', [rfReplaceAll]);

Ergebnis der Variable = '416.66666666666666' mit Punkt
Ergebnis in der neuen Tabelle = 41666666666666666

Sowohl mit Komma als auch mit Punkt als auch als Float/Double immer das Gleiche.

Was passiert da?
Ich dachte eigentlich mit Parametern gibt es die Probleme nicht?

[nahpets]

Was passiert bei:
Parameters.ParamByName('I').Value := FieldByName('intern').AsFloat; Value ist, soweit ich weiß, vom Typ Variant, da wird (glaub' ich) der Typ des übergebenen Wertes interpretiert.
Parameters.ParamByName('I').Value := FieldByName('intern').Value; Wenn Du die Daten von "Hand" in die Datenbank eingibst, musst Du dann als Dezimaltrenner das Komma oder den Punkt eingeben?

Ist das bei beiden Tabellen gleich?

Meine momentane Vermutung wäre, dass das Komma als Tausendertrenner erkannt wird und ist nicht für die Speicherung erforderlich. Daher wird's einfach entfernt.

Was passiert denn, wenn Du bei der Stringverarbeitung den Punkt drinne läßt?

[süden]

In der DB Oberfläche kann ich die Zahlen mit Komma eingeben,
und sie werden auch mit Komma angezeigt und ausgewertet.

Mit Komma werden die Zahlen falsch interpretiert,
bei dem StringReplace wechsel ich ja das Komma zu einem Punkt.

Somit habe ich beide Varianten probiert.

Mit:

Code:

sqlText :=  'UPDATE tSN_Budget SET [ist] = '+sKosti+', istEx = '+sKoste+'  WHERE ( '
                       +'(Proj_Ident = '+QuotedStr(sProj_Ident)+') '
                       +' AND (LeistungsKlasse = '+QuotedStr(sLK)+') '
                       +' AND (Leistung = '+QuotedStr(sLeistung)+'))';

Gehts!!!

[Furtbichler]

Woher soll ADO wissen, was für ein Typ der Parameter ist? Da stopfst Du irgendwas rein und das geht auch mal schief. Abhilfe: Definiere den Parametertyp explizit. Entweder im Objektinspektor, oder (wenn Du die Query zur Laufzeit zuweist)

Delphi-Quellcode:

Parameters.ParamByName('I').DataType := ftFloat;
Parameters.ParamByName('I').Value := 1.234;

[süden]

Ist fest verdrahtet im Objektexplorer als ftFloat.

[jobo]

Hast Du es mal mit ftBCD statt float versucht?

[Furtbichler]

Zitat von süden:

Ist fest verdrahtet im Objektexplorer als ftFloat.

Access oder SQL-Server?

Zitat:

Delphi-Quellcode:

dKost := FieldByName('intern').AsFloat;
...
Parameters.ParamByName('I').Value := dKost;

Welcher Datentyp ist dKost ? Jetzt sag nicht 'Double'

Hmm..

Delphi-Quellcode:

Post(TheCodeSchnipselThatMakesDieProbleme) 
IF DB=Access then  
  Append(TheBeispielAccessDB) 
else
  Append(TheBeispielSchemaSkript)

[nahpets]

Zitat von süden:

Ist fest verdrahtet im Objektexplorer als ftFloat.

Das muss nicht immer zwingend funktionieren, habe da auch schon mal die Erfahrung gemacht, dass das Ergebnis anders aussah, als erwartet.
Meine Lösung sah in etwa so aus:

Delphi-Quellcode:

  ADOCommand1.Parameters.Clear;
  ADOCommand1.CommandText := 'parametriesiertes SQL...';
  ADOCommand1.Parameters.ParamByName('jeder Parameter').DataType := ftDatentyp;
  ADOCommand1.Parameters.ParamByName('jeder Parameter').Value := Wert;

Nachsatz:

Beim Kompilieren darauf achten, dass die Entwicklungsumgebung keine geöffnete Datenbankverbindung, Abfrage... hat.

Die Datenbankverbindung immer im laufenden Programm herstellen und beenden und nicht die bereits in der Entwicklungsumgebung geöffnete Datenbankverbindung nutzen.