Problem mit SQL.Add

[jmich]

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;

[Bernhard Geyer]

Fehlt da nicht ein Komma nach jeder set-Zeile?

https://www.w3schools.com/sql/sql_update.asp

[himitsu]

Selbst Schuld, wenn du in deiner Fehlerbehandlung deinem sinnlosen Try-Except-Gestümpere grob fahrlässig die ursprüngliche Fehlermeldung vernichtest.


PS:

Zitat:

SQL.Add('Where Rechnr = + QuotedStr(ed_rechngd_rechnr.Text)+');

und die Kommas

[Sinspin]

Zitat von jmich:

Was mache ich falsch ?

Delphi-Quellcode:

  with LiteQuery_rechng do
              begin
                SQL.Add('Nachlassumme = :nasum');
                try
                 ExecSQL;;
               except
                  ShowMessage('Speichern fehlgeschlagen');
                end;
              end;

So zimelich alles.

with Das hatten wir doch erst? Das ist eine Plage! Vergiss einfach das es existiert und arbeite ohne!

ShowMessage('Speichern fehlgeschlagen'); Genau! Nur wo?

Delphi-Quellcode:

try 
//alles sql gezerre
except on E:Exception do
  ShowMessage('Speichern fehlgeschlagen. Fehler : '+E.Message);
end;

Wäre es so nicht etwa besser?

SQL.Add('Nachlassumme = :nasum'); Nach jedem Feld in der Zuweisungsliste kommt ein Komma (außer beim letzten natürlich)

Zitat von himitsu:

Try-Except-Gestümpere

Himitsu! Du hast zwar recht, aber das kann man auch ein klein wenig freundlicher sagen.

[haentschman]

Hallöle...

...ich hatte mir geschworen, niemals mehr auf Beitrage die WITH enthalten zu antworten... Das WITH sagt...entweder Copy/Paste aus alten Beispielen oder "ich hab das immer so gemacht". Die Zeiten ändern sich...

Delphi-Quellcode:

...
SQL.Add('Where Rechnr = + QuotedStr(ed_rechngd_rechnr.Text)+');

...meinst du, daß das SQL(string) "QuotedStr" versteht?

besser für die Zeile:

Delphi-Quellcode:

...
SQL.Add('where Rechnr = ' + QuotedStr(ed_rechngd_rechnr.Text));

die richtige Zeile:

Delphi-Quellcode:

LiteQuery_rechng.SQL.Add('where Rechnr = :REN'); 
LiteQuery_rechng.SQL.ParamByName('REN').AsString  := ed_rechngd_rechnr.Text;

PS: gegen die ADD Origien gibt es was von "mir" https://www.delphipraxis.net/190316-...e-creator.html

[himitsu]

Was soll man da denn noch sagen?

Ohne den Schwachsinn mit Try-Except, würde er bestimmt eine richtige Fehlermeldung bekommen, die ihm alle Fehler zeigt.



Selbst wenn die DB das QuoteStr verstehen würde, dann spätestens das im QuoteStr nicht mehr, bzw. die + davor und dahinter auch nicht.

Aber vorher wäre erstmal beim zweiten = gemeckert wurden, wegen der fehlenden Komata.

[rokli]

Moin,

Du könntest das auch so schreiben:

Delphi-Quellcode:

   qry1.SQL.Text   :=   'UPDATE Rechnung SET ' +
               '   MWSteuer = :mw ' +
               '   ,Nachlassumme = :nasum ' +
               '   ,Sicherheitsumme = :ssum ' +
               '   ,Skontosumme = :sksum ' +
               '   ,Nettosumme = :nsum ' +
               '   ,Bruttogesamt = :bsum ' +
               'WHERE ' +
               '   Rechnr = :ed_rechngd_rechnr ';

und dann kommt das füllen der Parameter.

Das fehlende Komma ist natürlich das erste Problem, mehrere Felder mit SET ändern bedarf einem Komma vor jedem Feld bzw. nach jedem Inhalt.
Und dann kannst Du die Rechnr natürlich auch per Parameter übergeben.

[jmich]

Als erstes mal vielen Dank.

Die Lösung beim Betrag von Haentschman hatte ich schon auch
probiert, aber funhtionierte eben nicht.
Das mit den fehlenden Kommas hatte ich auch schon erkannt.
Das mit der Fehlerexcept wurde mir von einen im Forum als Lösung unterbreitet.

Die Lösung von rokli war für mich die beste und diese klappt auch super.
Sie ist sehr übersichtlich.
Nochmals vielen Dank besonders an rokli, der auch nett die Lösung rübergebtacht hat.

Jmich

[himitsu]

Try-Except macht nur Sinn, wenn man darin auch was Sinnvolles macht.

z.B. den originalen Fehler in ein Log schreiben,
oder ihn an die neue Fehlermeldung mit anzuhängen.

Oder eben, wenn man genau weiß welcher Fehler es ist und man ihn gezielt unterdrücken will, um es z.B. nochmal anders zu versuchen, oder Dergleichen.

[Sharky]

Zitat von himitsu:

Was soll man da denn noch sagen?

Ohne den Schwachsinn mit Try-Except,..

Schön zu sehen, dass sich Deine Arroganz auch nach mehreren Jahren nicht gelegt hat.
Persönliche Entwicklung im Fachgebiet -> Stetig steigend
Persönliche Entwicklung im Umgang mit Menschen -> Stetig fallend