Перезапись поля во всех строках таблицы Бд

[mmihan]

Добрый день как реализовать Перезапись одного поля 'N'- Тип поля числовой , Бд access,
во всех строках БД с увеличением +1
если делаю ADOQuery то ссылается на неверный тип данных..
если через AdoTable то просто переходит на последнюю строку

есть Заявки с номерами 1 2 3 4 5 итд. удаляем заявку с номером 3 получается 1 2 4 5 нужно сделать 1 2 3 4

procedure TMainForm.Button1Click(Sender: TObject);
 
  var m:integer;
begin
  ADOQuery1.Close;
 
  ADOQuery1.Open;
  while ADOQuery1.Eof do
begin
 
  m:=m+ADOQuery1.FieldByName('N').AsInteger;
  ADOQuery1.Next;
  ADOQuery1.Active:=true;
 
end;
end;

[Ilya_L]

for i:=0 to ADOQuery1.RecordCount-1 do begin
ADOQuery1.Edit;
m:=m+ADOQuery1.FieldByName('N').AsI nteger;
ADOQuery1.Next;
ADOQuery1.FieldByName('N').AsIntege r := m;
ADOQuery1.Post;
end;

может так сработает, попробуй

[ych_del]

Ilya_L, экий ты юморист. Понимание того, что значения полей N (при исходных 1 2 4 5) будут иметь вид 1 3 7 12 - присутствует?

with ADOQuery1 do begin
   First;
   if not Connection.InTransaction then Connection.BeginTrans;
   while not Eof do begin
      Edit;
      FieldByName('N').AsInteger := RecNo+1; // Это чтобы нумерация начиналась не с 0, а с 1
      Post;
      Next;
   end;
   Connection.CommitTrans;
end;

[rdama]

Да вы тут все юмористы.

UPDATE mytable SET N = N +1

[Аватар]

Это тоже не пойдет. ТС хочет дырки убрать

есть Заявки с номерами 1 2 3 4 5 итд. удаляем заявку с номером 3 получается 1 2 4 5 нужно сделать 1 2 3 4

Вопрос - а нужно ли это вообще? И, если делать, то для выше приведенного случая:

UPDATE mytable SET N = N -1 WHERE N>2

[rdama]

А зачем дырки убирать? И дырки эти в чем? Что за поле N? Какой в нем смысловой посыл?

[ych_del]

UPDATE mytable SET N = N -1 WHERE N>2

Ну, это только для приведенного случая. А если 150 записей, и из них в произвольных местах убрать штук пятнадцать?

Правда, смысла убирать дырки я тоже не вижу, но ежели уж хочется человеку...