Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#7

Re: Tabelle löschen und Autowert auf 1 setzen

  Alt 11. Jan 2010, 07:59
Hallo,

das geht aber bei Paradox nicht.

Der Umweg über

AutoInc -> Integer -> AutoInc

wurde ja schon gesagt.

Ein Alter Table geht so aber nicht (mit Paradox).

Man muss das über DbiDoRestructure machen,

Example 3 im Link kommt dem schon ziemlich nahe

1.


Ob ein Drop Field, Add Field klappt,
ist die Frage (wegen dem Primary Key).
Musst du ausprobieren.


Quick&Dirty aus Google (ExpertsExchange)
Delphi-Quellcode:
//sets a autoinc-value
Procedure SetAutoInc(filename : string; Value : Longint);
var
  mystream : tfilestream;
begin
  mystream := tfilestream.create(filename,
              fmOpenWrite + fmShareExclusive);
  try
    mystream.Seek(73, soFromBeginning);
    mystream.Writebuffer(Value, SizeOf(Value));
  finally
    mystream.Free;
  end;
end;

Heiko
Heiko
  Mit Zitat antworten Zitat