/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Nulstil autonumenering
Fra : Anders Holm Jensen


Dato : 20-02-01 16:14

Hej

Hvordan nulstiller jeg autonumenering i en paradox db ??

Så den starter med 1 igen ?

--
Hilsen AHJ

Anders Holm Jensen





 
 
Roald Henriksen (23-02-2001)
Kommentar
Fra : Roald Henriksen


Dato : 23-02-01 09:17

Du kan også gøre det inde i dit program således:

Forudsætninger for dette eksempel:
Databasen hedder RteD.DB og tabellen RteDTable.

hovedprogram med kode...
blablabla...
RteDTable.Open;
S:= RteDTable.Database.Directory; {get path}
RteDTable.Close; {important! close
database}
SetAutoInc(S+'RteD.DB',1); {set autoinc to 1}
RteDTable.EmptyTable; {delete all records}
blablabla...

procedure TDM1.SetAutoInc(const S: string; N: integer);
var
MyStream: TFileStream;
Buffer: integer;
begin
Buffer:= N;
Mystream:= TFileStream.Create(S,fmOpenReadWrite + fmShareDenyNone);
try
{the autoincrement number is 4 bytes wide, starting at address 73}
MyStream.Seek(73,soFromBeginning);
MyStream.WriteBuffer(Buffer,4);
finally
MyStream.Free;
end;
end;

Husk!
Hvis du piller ved autoinc nummeret, så SKAL du efterfølgende slette alt, så
ingen poster ved et uheld får samme nummer, for så har du virkelig inviteret
dig selv til århundredets BDE-fest! :)
Mvh RH




Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408927
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste