Tabelle löschen und Autowert auf 1 setzen

[hoika]

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