Uma perguntinha Basica....
19/05/2003
0
Bom dia Galera.
Em qual evento eu coloco o codigo para zerar o auto incremento da tabela paradox????
Obrigado.
Em qual evento eu coloco o codigo para zerar o auto incremento da tabela paradox????
Obrigado.
Nill
Curtir tópico
+ 0
Responder
Posts
19/05/2003
Okama
Tenho esse código mas não testei:
Se não funcionar exclua o campo autoincremento e crie novamente.
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
Se não funcionar exclua o campo autoincremento e crie novamente.
Responder
Clique aqui para fazer login e interagir na Comunidade :)