
Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука

5th
Май
Снизить ID у каждой записи на 1
Posted by micher under Delphi
Нужно у каждой записи в MySQL бд снижать ID на -1. Как реализовать?
Yurk@
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;