Problem mit Generator

[Delphi.Narium]

Oder statt Query.ExecSQL('ALTER SEQUENCE ' + GeneratorName + ' RESTART WITH ' + Value.ToString); für Value.ToString select Max(id) + 1 from tabelle nehmen.

Oder, da es ja bei diesem Update ein grundsätzliches Problem ist:
Value := 1 + GetCurrentGeneratorValue(FGeneratorReadQuery, Generator);
Oder hier einfach den nächsten Generatorwert auslesen, also sinngemäß:
Value := GEN_ID(GeneratorName, 1);

Das Problem scheint zu sein, dass in der "alten" Datenbank der Wert des Generators der zuletzt vergebene Wert zu sein scheint, während die "neue" Datenbank diesen Wert als den nächsten zu vergebenden Wert betrachtet. Beim ersten Lesen des Generatorwertes kracht es daher einmalig. Danach ist der Generatorwert dann "höher" als die letzte ID und somit ist der Fehler (unelegant) behoben.

Grob formuliert:

Alte Datenbank erhöht den Wert des Generators und gibt ihn dann aus.
Neue Datenbank gibt den Wert des Generators aus und erhöht ihn dann.

Daraus resultiert die einmalig "doppelte" Ausgabe eines Wertes, was dann nach einem einmaligen Fehler "korrigiert" erscheint.

[TurboMagic]

Hallo,

danke an alle für den Tipp mit Firebird 4.0.
Das hab' ich damals scheinbar in der Änderungshistorie überlesen.
Ich schaue mir diese und eure Lösungsvorschläge in der nächsten Programmiersitzung
für die betreffende Anwendung gleich an.

Grüße

TurboMagic

[TurboMagic]

Hallo,

ok, ich hab' jetzt schon die Stelle in den FB 4.0.4 relase notes gefunden.
Das Verhalten von Sequences wurde tatsächlich abgeändert.

Ich schau' mir jetzt an, wie ich damit umgehe.

Grüße
TurboMagic