Paradox 7

[Kindelis]

eu desenvolvi um sistema de banco de dados que contem campos auto-incremento , porém durante o desenvolvimento eu tive que fazer alguns cadastros o qu efez os auto-incrementos ficarem autos , eu queria saber se tem como eu fazer esses campos auto-incremento começarem a contar do 0 novamente...

[Progr'amador]

Olá Kindelis,

Ae vai:

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ResetAutoInc('c:\local tebela\nome_tabela.db', 0);
end;

Funciona legal...

Abs. Progr'amador.

[Arlon]

Também pode fazer o seguinte:

Vai no DataModule dá um duplo clique na tabela que deseja apagar o auto-incremento e deleta o campo que deseja zerar. Coloque o Active da tabela em "True" e feche o projeto.

Vá ao Database Desktop, abra a tabela e mude o tipo do campo autoincremento para alfanumérico (ou seja, vai mudar de "+" para "A"), salve essa alteração e repita o processo ao contrário, ou seja, mude novamente o campo, só que agora de alfanumérico para autoincremento novamente. Após isso, abra o projeto e adicione o campo novamente no DataModule.

Não lembro se era mesmo código que o Program'amador passou, mas uma vez eu usei um código pra zerar o campo mas não deu certo.

[Progr'amador]

  Arlon disse:

Não lembro se era mesmo código que o Program'amador passou, mas uma vez eu usei um código pra zerar o campo mas não deu certo.

Olá Arlon,

esse deu certo sim, eu testei aki.

Abs. Progr'amador.