Цикл изменения записи в MySQL plz

[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;

[Аватар]

1.Чтобы не было гадания на кофейной гуще нужно не полениться и текст ошибки выложить полностью
2. Если это то, что я подумал, зачем вообще менять идентификатор записи
3. Выбрали например записи с ID 4 и 5. Меняете 5 на 4, а она уже существует

[makar3000]

1. Ошибка синтаксиса SQL
3. Редактирование идет от 1 и выше

Это самый простой способ решить мою проблему. Но синтаксис выбивает ошибку....

[Yurk@]

makar3000, а почему не просто:

procedure TForm2.Button1Click(Sender: TObject);
begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Text := 'UPDATE table SET id = id -1 WHERE mod = :mod AND server = :server';
  SQLQuery1.Parameters.ParamByName('mod').Value := mods; 
  SQLQuery1.Parameters.ParamByName('server').Value := server;
  SQLQuery1.ExecSQL;
end;

?

а что касается поста №1 - у тебя для двух различных операций всего один SQLQuery ... т.е. ты с него и читаешь и им же обновляешь данные. вот они и дерутся между собой. если вынести update в SQLQuery2 - должно быть номально

[Аватар]

А id символьное, что ли? В кавычки зачем его брать? И повторяю - зачем менять идентификатор? Это высосанная из пальца необходимость
Yurk@, предложенный вариант запросто не прокатит по причине попытки создания неуникального ключа

[Yurk@]

Аватар, как-то я нигде не увидел указания того что поле ID - уникальное

[makar3000]

Поле Id не автоинкримент. Приду домой и попробую, а насчет того для чего это извращение не просто так.

[makar3000]

Проблема с циклом...

SQLQuery1: Cannot perform this operation on a closed dataset


Код:

while not SQLQuery1.Eof do
begin
id := SQLQuery1.FieldValues['id'];
SQLQuery1.SQL.Text := 'UPDATE table SET id = id -1 WHERE id = :id';
SQLQuery1.ParamByName('id').Value := id;
SQLQuery1.ExecSQL;
SQLQuery1.Next;
end;

[makar3000]

Сообщение от Yurk@

makar3000, а почему не просто:

Потому что у всех записей нужно ID уменьшить на 1

[Yurk@]

Проблема с циклом...
SQLQuery1: Cannot perform this operation on a closed dataset

ну я же написал уже

а что касается поста №1 - у тебя для двух различных операций всего один SQLQuery ... т.е. ты с него и читаешь и им же обновляешь данные. вот они и дерутся между собой. если вынести update в SQLQuery2 - должно быть номально

Потому что у всех записей нужно ID уменьшить на 1

а я вот здесь что по твоему сделал? (особое внимание на id = id -1)