Campo Auto Incremento
Eu tenho uma tabela de auto encremento (+), só que testei varias vezes durante a execução do programa e já enta no codigo 15, eu queria zerar esse codigo para que ele possa começar do zero outra vez, como faço.
Ja zerei a tabela e nada.
Se possivel mande-me uma resposta por e-mail
mhtotini@yahoo.com.br
Grato!
Ja zerei a tabela e nada.
Se possivel mande-me uma resposta por e-mail
mhtotini@yahoo.com.br
Grato!
Marcelototini
Curtidas 0
Respostas
Lazarus
20/02/2003
exatamente oq fazer
eu não sei!
o ideal, para não ter problemas, eh refazer a sua tabela!
vou procurar alguma solução aki, e caso encontre-a, colocarei...
eu não sei!
o ideal, para não ter problemas, eh refazer a sua tabela!
vou procurar alguma solução aki, e caso encontre-a, colocarei...
GOSTEI 0
Marcelo.c
20/02/2003
Descobri este código, mas ainda não testei:
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.
:roll:
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.
:roll:
GOSTEI 0
Lazarus
20/02/2003
legal
vo acrescenta ao meu vocabulário!
hehehe!
vo acrescenta ao meu vocabulário!
hehehe!
GOSTEI 0
Consorte
20/02/2003
Como são poucos dados. vc pode ir no database e na sua tabela, abrir a estrutura, trocar o + por s, abrir o edit e depois deletar todos os dados com ctrl alt del, salvar a tabela, depois abrir novamente e trocar o s por + salvar e pronto.
GOSTEI 0