Zerar campo AutoIcremento
Olá pessoal eu não tó sabendo com faço para zerar o campo do AutoIcremento quanto o usuario deletar todos os registros da tabela, parece ser facíl e se alguém poder me ajuda eu agradeço.
Valeu !!!!!!!!!!!!!!!!!!!!!!
Valeu !!!!!!!!!!!!!!!!!!!!!!
Anonymous
Curtidas 0
Respostas
Anonymous
01/02/2003
:wink:
Cara tenho um código pra isso, mas nunca testei...
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.
um abraço,
TProgrammer
Cara tenho um código pra isso, mas nunca testei...
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.
um abraço,
TProgrammer
GOSTEI 0