Zerar campo auto-incremento Paradox

Delphi

13/10/2003

Olá amigos, estou precisando novamente de vcs..

Como faco pra zerar um campo auto-incremento no Paradox??

Junior Hugo


Hugojunior

Hugojunior

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

13/10/2003

Dica da DTDelphi:

Zerar Campo AutoIncremento:

Quanto trabalhamos com tabelas Paradox e apagamos o seus registros, o contador do campo AutoIncremento não é zerado, criando muitas vezes um grande inconveniente. Para resolver esse problema, use a seguinte função:

function ResetAutoInc(FileName: TFileName; Base: Longint): Boolean;
begin
  with TFileStream.Create(FileName, fmOpenReadWrite) do
  Result := (Seek($49, soFromBeginning) = $49) and (Write(Base, 4) = 4);
end;

O parâmetro FileName é o nome da tabela, incluindo o caminho. E o parâmetro Base é o valor inicial para o contador do AutoIncremento.


GOSTEI 0
POSTAR