Fórum Tabela Paradox #139029
20/02/2003
0
Boa Tarde!
Seguinte estou querendo saber com faço para zerar a minha tabela paradox.
Obs: Não quero so deletar tudo, mas sim fazer com que os Codigos que são auto criaveis comecem do zero.
Muito obrigado...
Seguinte estou querendo saber com faço para zerar a minha tabela paradox.
Obs: Não quero so deletar tudo, mas sim fazer com que os Codigos que são auto criaveis comecem do zero.
Muito obrigado...
R.raulino
Curtir tópico
+ 0
Responder
Posts
20/02/2003
Nildo
Aqui vai uma dica para zerar campo AutoIncremento:
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.
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.
Responder
Gostei + 0
20/02/2003
Nildo
Agora pra deletar todos os registros, nada como um simples While nao faca
Responder
Gostei + 0
20/02/2003
R.raulino
Ei como eu uso isto, no mesmo programa, ou eu crio um outro programa.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)