Fórum Zerar uma chave primária auto increment. #206483
14/01/2004
0
qualquer ajuda será bem vinda.
Rolemes
Curtir tópico
+ 0Posts
14/01/2004
Luineumann
se o que vc quer é reinicializar o campo auto-incremento use
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
15/01/2004
Rolemes
fico muito grato!!!
Gostei + 0
02/03/2004
Gigatel
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)