Duas coisas:
1) Vamos melhorar o código dessa dica:
function ResetAutoInc(FileName: TFileName; Base: Longint): Boolean;
begin
with TFileStream.Create(FileName, fmOpenReadWrite) do
try
Result := (Seek($49, soFromBeginning) = $49) and (Write(Base, 4) = 4)
finally
Free
end
end;
Tente executar esta linha no Query Analyzer:
DBCC CHECKIDENT ('nomedasuatabela, RESEED, 0)
Juliana
- Original Message -
From: Gleidison S. Bertolini
To: Grupo Delphi
Sent: Wednesday, August 23, 2006 10:44 AM
Subject: [delphi-br] Zerar auto-incremento do SQL
Alguém sabe
Obrigado!!
- Original Message -
From: Juliana Duque
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, August 23, 2006 11:12 AM
Subject: Re: [delphi-br] Zerar auto-incremento do SQL
Tente executar esta linha no Query Analyzer:
DBCC CHECKIDENT ('nomedasuatabela, RESEED, 0
3 matches
Mail list logo