Здравствуйте, есть код который должен у каждой записи в бд снижать 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;