Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.014 Beiträge
 
Delphi 12 Athens
 
#7

AW: Firebird mehrere where-Bedingungen

  Alt 27. Sep 2021, 15:02
Zitat:
Delphi-Quellcode:
var
  Query: TIBQuery;
begin
  ...
  Query := DM1.DataModule1.IBCVATNQuery;
  Query.SQL.Text := 'update VATN set ';
  ...
Geht ja jetzt auch so, als Ersatz für ein WITH:
Delphi-Quellcode:
begin
  ...
  var Q := DM1.DataModule1.IBCVATNQuery;
  Q.SQL.Text := 'update VATN set ';
  Q.SQL.Add('RECHNUNG = :RECHNUNG, RENR = :RENR ');
  ...
bzw.
Delphi-Quellcode:
  var Q := DM1.DataModule1.IBCVATNQuery;
  Q.SQL.Text :=
      'update VATN '#10
    + 'set RECHNUNG = :RECHNUNG, RENR = :RENR '#10
    + 'where TEILNEHMERID = :OLD_TEILNEHMERID and VATNID = :OLD_VATNID';
  Q.ParamsByName('RECHNUNG').AsString := 'T';
  Q.ParamsByName('RENR').AsInteger := NewID;
  Q.ParamsByName('OLD_TEILNEHMERID').AsInteger := TNVAID;
  Q.ParamsByName('OLD_VATNID').AsInteger := ReErstVAID;
  Q.ExecSQL;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (27. Sep 2021 um 15:12 Uhr)
  Mit Zitat antworten Zitat