Key Violation

[roman]

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

[Paoti]

Hola!!!

Roman, decime, donde encontraste ese tipo de información!!!!?


De haberlo sabido meses antes, me hubiera podido dormir algunas noches más tranquilo...)

Gracias!!!!


nos vemos

[roman]

Empezado por Paoti

Roman, decime, donde encontraste ese tipo de información!!!!?

Muy fácil. El siguiente es un enlace que ningún programador de Delphi puede omitir:

Grupos de noticias de Borland

// Saludos