Firebird mehrere where-Bedingungen

[himitsu]

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;