Zerar auto incremento

Delphi

03/03/2004

Galera.,, pegeui esta função aki no forum...ela serve para zerar o auto incremento de uma tabela ( suponho que seja paradox ) más como uso ela ?

existe algum programa que faz isso ? taí o código..

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;


Gigatel

Gigatel

Curtidas 0

Respostas

Chico Gois

Chico Gois

03/03/2004

Galera.,, pegeui esta função aki no forum...ela serve para zerar o auto incremento de uma tabela ( suponho que seja paradox ) más como uso ela ? existe algum programa que faz isso ? taí o código.. 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. Veja um exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
begin
ResetAutoInc(´C:\Temporario\Cliente.db´, 1);
end;

T+


GOSTEI 0
Gigatel

Gigatel

03/03/2004

[quote:d21ea3b30d=´Gigatel´]Galera.,, pegeui esta função aki no forum...ela serve para zerar o auto incremento de uma tabela ( suponho que seja paradox ) más como uso ela ? existe algum programa que faz isso ? taí o código.. 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. Veja um exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
begin
ResetAutoInc(´C:\Temporario\Cliente.db´, 1);
end;


isto é, usando a função descrito acima ?
T+[/quote:d21ea3b30d]


GOSTEI 0
POSTAR