Devart Forums

Code: Select all

      Options.StrictUpdate := true;

      SQL.ADD('SELECT *');
      SQL.ADD('FROM TABLE WHERE Key1=:Key1');
      SQL.ADD('AND Month=:Month');
      SQL.ADD('AND Year=:Year');

      ParamByName('Key1').AsInteger := Key1;
      ParamByName('Month').AsInteger := Month;
      ParamByName('Year').AsInteger := Year;

      Open;
      First;
      while not EOF do
      begin
        Edit;
        FieldByName('Monat').AsInteger := NextMonth;
        FieldByName('Jahr').AsInteger := NextYear;
 
        //RowsAffected = -1
       
        Post;

        //RowsAffected = 0 

        Next;
      end;
      Close;