Cita:
|
Empezado por servicomp
Parece que la solución sera copiar la tabla en una nueva y luego renombrarla.
|
Aquí te va otra:
1. Respalda la tabla
2. Ejecuta SetAutoInc(TableFileName, 245);
donde
Código Delphi
[-]
procedure SetAutoInc(TableFileName: String; NewAutoInc: Integer);
var
FileHandle: Integer;
begin
FileHandle := FileOpen(TableFileName, fmOpenReadWrite);
FileSeek(FileHandle, $49, soFromBeginning);
FileWrite(FileHandle, NewAutoInc, 2);
FileClose(FileHandle);
end;
La tabla debe estar cerrada.
Explicación: El archivo *.db guarda el último valor autoinc en el offset $49 (en Paradox). La rutina simplemente escribe el valor deseado (245 en tu caso) de manera que el siguiente valor será 246.
Lo acabo de probar y funciona.
// Saludos