Einzelnen Beitrag anzeigen

Thanatos81
(Gast)

n/a Beiträge
 
#1

[gelöst] Parametrisiertes Update bei Firebird

  Alt 7. Mär 2007, 09:22
Datenbank: Firebird embedded • Version: 1.5.0.4 • Zugriff über: Zeos
Guten morgen zusammen,

ich verzweifle gerade an einer Aufgabe, die ich schon x-mal gemacht habe Und zwar möchte ich ein parametrisiertes Update ausführen. Das versuche ich so:
Delphi-Quellcode:
dm.UpdateQuery.SQL.Clear;
dm.UpdateQuery.Params.Clear;
dm.UpdateQuery.SQL.Add('UPDATE `manBuch` SET');
dm.UpdateQuery.SQL.Add('BELEGNR = :BelegNr,');
dm.UpdateQuery.SQL.Add('DATUM = :Datum,');
dm.UpdateQuery.SQL.Add('TEXT = :Text,');
dm.UpdateQuery.SQL.Add('KONTO = :Konto,');
dm.UpdateQuery.SQL.Add('GKTO = :GKto,');
dm.UpdateQuery.SQL.Add('BETRAG = :Betrag');
dm.UpdateQuery.SQL.Add('WHERE LFDNR = :lfdnr');

dm.UpdateQuery.ParamByName('BELEGNR').AsString := edtbelegnummer.Text;
dm.UpdateQuery.ParamByName('DATUM').AsDateTime := jvDEDatum.Date;
dm.UpdateQuery.ParamByName('TEXT').AsString := jveText.Text;
dm.UpdateQuery.ParamByName('KONTO').AsInteger := valiKonto.Value;
dm.UpdateQuery.ParamByName('GKTO').AsInteger := valiGegenKonto.Value;
dm.UpdateQuery.ParamByName('BETRAG').AsFloat := valiBetrag.Value;
dm.UpdateQuery.ParamByName('LfdNr').AsInteger := lfdnr;
dm.UpdateQuery.ExecSQL;
Ich bekomme dann aber immer vom embedded Server die Meldung zurück, dass das SQL
SQL-Code:
UPDATE manBuch SET
BELEGNR = ?,
DATUM = ?,
TEXT = ?,
KONTO = ?,
GKTO = ?,
BETRAG = ?
WHERE LFDNR = ?
nicht ausgeführt werden kann...

hat da jemand ne Idee?
  Mit Zitat antworten Zitat