valor maximo del autoincrement

[marcoszorrilla]

Para controlar el autoincremento especialmente al vaciar tablas, yo me he creado un procedimiento que me regula la numeración:

Código Delphi [-]
Procedure SetAutoInc(filename : string; Value : Longint);



Procedure SetAutoInc(filename : string; Value : Longint);
var
mystream : tfilestream;
begin
mystream := tfilestream.create(filename,
            fmOpenWrite + fmShareExclusive);
  try
    mystream.Seek(73, soFromBeginning);
    mystream.Writebuffer(Value, SizeOf(Value));
  finally
    mystream.Free;
  end;
end;

{Ejemplo de llamada, ojo hay que cerrar la tabla a tratar}
DmComPedi.LinCompras.Close;
SetAutoInc('\\Facturacion\facturas\XXXXXX\AniPdx\LinCompras.db',0);

Un Saludo.