Fórum Zerar campo auto-incremento Paradox #188323
13/10/2003
0
Olá amigos, estou precisando novamente de vcs..
Como faco pra zerar um campo auto-incremento no Paradox??
Junior Hugo
Como faco pra zerar um campo auto-incremento no Paradox??
Junior Hugo
Hugojunior
Curtir tópico
+ 0
Responder
Posts
13/10/2003
Marcelo.c
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:
O parâmetro FileName é o nome da tabela, incluindo o caminho. E o parâmetro Base é o valor inicial para o contador do AutoIncremento.
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)