Вопрос:
Есть таблица 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
|
