[makar3000]

Здравствуйте, есть код который должен у каждой записи в бд снижать ID на -1 но почему то выкидывает ошибку при попытке обновить бд

Код:

Код:

procedure TForm2.Button1Click(Sender: TObject);
var tos,id:integer;
begin
SQLQuery1.SQL.Add('select `id` from `table` where `mod`="'+mods+'" and `server`="'+server+'"');
SQLQuery1.Open;

while not SQLQuery1.Eof do
begin
id := SQLQuery1.FieldValues['id'];
tos := id-1;
SQLQuery1.SQL.Add('update table set `id`="'+InttoStr(tos)+'" where `id`="'+Inttostr(id)+'"');
SQLQuery1.ExecSQL;
SQLQuery1.Next;

end;

SQLQuery1.Close;
SQLQuery1.SQL.Clear;

end;

[makar3000]

....... read

[makar3000]

Помогите пожалуйста исправить...

[icWasya]

пока SQL активен, его текст нельзя править. В Вашем случае заведите второй SQL для изменений в базе