Fórum Zerar autoincremento #253216
04/10/2004
0
Arc
Curtir tópico
+ 0Posts
04/10/2004
Dephiro
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
04/10/2004
Arc
Gostei + 0
04/10/2004
Dephiro
Gostei + 0
06/10/2004
Arc
Para quem precisar :
[b:e45133b4dd]DBCC CHECKIDENT (´NomedaTabela´, reseed, 0) [/b:e45133b4dd]
Funciona belezinha....
Abraço
Gostei + 0
06/10/2004
Quadrado
Quadrado
Gostei + 0
07/10/2004
Arc
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)