ActiveDelphi

[tarsoft]

Já tentei o seguinte:

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.

Dica tirada daqui do fórum, mas não sei o que tô fazendo que não funciona!!!

[jfrancop]

Abra o IB Expert, conecte o seu banco de dados, clique no sinal de \"mais\" ao lado do nome do banco e vá ao item Generators (deve ser o sexto item, abaixo de triggers); dê um duplo clique no gerador que você quer zerar; será aberta uma janela com o nome do gerador (GEN_XXXXX_ID, onde XXXXX é o nome da tabela) e o último número gerado. Zere o valor e boa sorte!

Abraços

José Franco