Hi Leute,
möchte in
SQL-Datenbank eine größere Menge Datensätze bzw. Felder updaten.
Mit
SQL.Text wird mir die Zeile zu lang.Deshalb möchte ich das
SQL Statement
SQL.Add verwenden.
Leider Funktioniert das Speichern nicht.
Was mache ich falsch ?
Hier mein Code:
Delphi-Quellcode:
with LiteQuery_rechng
do
begin
Close;
SQL.Clear;
SQL.Add('
UPDATE Rechnung SET');
SQL.Add('
MWsteuer = :mw');
SQL.Add('
Nachlassumme = :nasum');
SQL.Add('
Sicherheitsumme = :ssum');
SQL.Add('
Skontosumme = :sksum');
SQL.Add('
Nettosumme = :nsum');
SQL.Add('
Bruttogesamt = :bsum');
SQL.Add('
Where Rechnr = + QuotedStr(ed_rechngd_rechnr.Text)+');
ParamByName('
mw').AsCurrency := StrToCurr(lbl_mwst.Caption);
ParamByName('
nasum').AsCurrency := StrToCurr(lbl_nachlass.Caption);
ParamByName('
ssum').AsCurrency := StrToCurr(lbl_sicherheit.Caption);
ParamByName('
sksum').AsCurrency := StrToCurr(lbl_skonto.Caption);
ParamByName('
nsum').AsCurrency := StrToCurr(lbl_netto.Caption);
ParamByName('
bsum').AsCurrency := StrToCurr(lbl_brutto.Caption);
try
ExecSQL;;
except
ShowMessage('
Speichern fehlgeschlagen');
end;
end;