//Что-то типа того, лень проверять
ADOTable.First; // на начало
for i:=0 to 4 do ADOTable.Next; //до 5 строки
Res := ADOTable.Fields[2].Value; //берем значение
ADOTable.Edit;//в редактирование
ADOTable.Fields[2].Value := Res+1; // пишем что-то
ADOTable.Post;//подтвердим
|