Ir para conteúdo
Fórum Script Brasil
  • 0

Paradox 7


Kindelis

Pergunta

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...

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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... wink.gif

Abs. Progr'amador.

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...