Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > СУБД, общие вопросы > Исправление автоинкремента

Автор: LSD 1.11.2004, 20:56

Вопрос:
Есть таблица Paradox, и у ней есть поле автоинкремент. Более того по этому полю сделан первичный индекс. Время от времени у поля слетает счетчик, причем назад... Т.е. например последнее присвоенное значение было 10, счетчик слетает назад на 5 и при добавлении новой записи автоинкремент выставляется на 5, но запись с таким значением уже была, естественно возникает ошибка "Key violation".

Ответ:
...нашел новый способ в дебрях интернета. Дело в том что значение автоинкремента хранится в фале по адресу $49, в итоге получаем такую программу (на Delphi)(код не мой, и изменять я его не стал, все работает):

Код

procedure SetAutoIncInTable(ATablePath:string;ANewAutoInc:integer);
begin
with TFileStream.Create(ATablePath,fmOpenReadWrite)
do
try
Position:=$49;
Write(ANewAutoInc,SizeOf(ANewAutoInc));
finally
Free;
end;
end;

единственное, что следует проверить чтобы файл не был никем не занят, а так все ОК. Проверял на разных файлах с различной структурой, все было отлично...

Предоставил lavish