Проблема со значением поля-счетчика при удалении записи

[RammFan]

Здравствуйте.

Пишу программу, позволяющую редактировать аксесовскую базу данных: просмотр, удаление, добавление записей. Индексное поле - id - тип Счетчик. Таблица простейшая: Фамилия, Имя, и ряд подобных полей. Столкнулся с обычной проблемой, о которой сразу и не задумался: при удалении записи нарушается последовательность индекса. То есть были строки 1, 2, 3, 4 с соответствующими значениями индекса: 1, 2, 3, 4, а при удалении 3 записи получается 1, 2, 4. Явление понятное и нормально ), но неприятное. Пытался менять значения индекса:

for i:=1 to DataModul.DataModule2.MainTable.Rec ordCount do
begin
DataModul.DataModule2.MainTable.Rec No:=i;
if Datamodul.DataModule2.MainTable.Fie ldValues['id']<>IntToStr(i) then
begin
Datamodul.DataModule2.MainTable.Fie ldValues['id']:=i;
end;
end;

но выдает ошибку: Dataset not in edit or insert mode.
Пробовал в самой базе поменять значения индекса, тоже говорит что невозможно это сделать.

Как вариант, делать индекс текстовый и при добавлении записи присваивать нужный номер, но, хотелось бы с этим не запариваться )).

Вот вопрос, как с этим бороться? Спасибо.

[mihali4]

Никак. Счетчик не позволяет менять значения вручную. Он обнуляется только при создании страницы.
А почему вас это смущает?
Заведите себе еще одно поле и нумеруйте в нем записи как вам заблагорассудится.
Но опять же - придется "париться" после каждого удаления.
Обычно поле-счетчик удобно использовать для организации ссылок между таблицами, а там не важно - подряд идут значения или нет.

[RammFan]

В принципе, это не столь важно, просто я немного не правильно считывал записи из таблицы, это мне сейчас вдруг в голову пришло )))))

Спасибо.

[Vova20years]

ну а все-таки, меня тоже эта проблема интересует!! как это можно обойти?
у меня аналогичная задачка, я поле id сделал числовым и при добавлении записи выискиваю max id и прибавляю : mах+1 вроде такое работает, а вот что делать при удалении?? очень надеюсь на совет!!

[Антон Ю.Б.]

Если речь идет об Access, то по идее можно попробовать так:
1) delete FROM Таблица1 where Код=RC;
2) update Таблица1 set Код=Код-1 where Код>RC; (при этом в таблицах, для которых Код Таблицы1 - внешний ключ произойдет каскадное обновление)
3) программно инициировать сжатие БД Access

P.S. Если бы речь шла о таблице, на которую нет ссылок, то можно было бы вместо 3) произвести удаление и повторное создание поля счетчика
P.P.S. Если бы речь шла не об Access, то в качестве 3) достаточно было бы программно изменить значение генератора, используемого полем-счетчиком.
P.P.P.S. Сама постановка задачи все же несколько отдает абсурдом. Опять же, если бы речь шла не об Access, то почти наверняка можно было в запросе, получающем отображаемые данные, сделать счетчик выбранных строк.

[soleil@mmc]

Сообщение от Vova20years

у меня аналогичная задачка, я поле id сделал числовым и при добавлении записи выискиваю max id и прибавляю : mах+1 вроде такое работает

раз уж речь про БД, то такой подход при многопользовательской БД будет причиной кучи гемора с дедлоками (если речь идет про праймари на таблицу)
если поле не основное, то никаких проблем

[Vova20years]

Антон Ю.Б. я решил пойти по твоему первому совету--удаляю запись и заново генерирую счетчик!! но у меня не получается! вот код подскажите ребята в чем моя ошибка:

procedure TForm1.Button2Click(Sender: TObject);
var i,n: integer;
begin
adobase.delete;
n :=  adobase.recordcount;

adobase.edit;
adobase.first;

for i:=1 to n do  begin
adobase.FieldValues['№_poryadkoviy'] := inttostr(i);
adobase.Next;
end;
adobase.Post;

end;

заранее спасибо!!
p.s. у меня это первая БД, я темы просматривал но подробно про такую казалось бы легкую проблемку нигде не написано!!

[Антон Ю.Б.]

Vova20years, там решение (и это второй, а не первый вариант) состояло в том, что поле удаляется вовсе из таблицы. Для этого надо в общем случае а) получить имя индекса (метод GetIndexNames компонента-набора данных: TTable и т.д.) б) удалить индекс SQL запросом в) удалить поле SQL запросом г) создать поле вновь д) создать индекс вновь.

P.S. Разумеется, перед всем этим надо закрыть все наборы данных, связанные с этой таблицей.

И еще - ну что значит "легкая проблемка"? Вы выдумали себе задачу, которая не предусмотрена самой парадигмой реляционных СУБД. Такая задачка может возникать (и то - очень спорно) только из потребностей клиента (интерфейса), ну так и решать ее надо на уровне представления (отображения) данных, а не на уровне их хранения. Как это сделать в Access - не знаю, вот пример в Firebird, где для этого нет стандартных средств (http://www.firebirdsql.su/doku.php?id=rdb_get_context), во многих СУБД есть и стандартные средства для такого.

[Vova20years]

У меня простенькая бд--каждый месяц к нам приходит какое-то кол-во продукции(100,300 и т.д--это не так важно)). я ее заношу в одну базу, бд у меня локальная, вот мне и нужно знать общее кол-во записей, ведь при удалении если поле выставлено в access как счетчик то эта запись удаляется а остальные не перерасчитает.
как видите, все вполне обоснованно!

все, решил этот вопрос-после удаления записи выполняй перерасчет поля-счетчика

procedure TForm1.Button2Click(Sender: TObject);
var i,n: integer;
begin
i:=1;
adobase.delete;
adobase.first;
while not adobase.Eof do  begin
adobase.edit;
adobase.fields[0].asinteger := i;
i := i+1;
adobase.post;
adobase.Next;
end;

[mihali4]

Ну количество записей-то вы всегда можете посмотреть - это Datamodul.DataModule2.MainTable.Rec ordCount...