Nächsten Index abrufen

[MrSpock]

Hallo,

unter Delphi mit FIBPlus habe ich die Methode Gen_id des Database Objects aufrufen können, um den nächsten Index generieren zu lassen, z.B:

Code: Alles auswählen

FDBAuftragl.Gen_Id('GEN_ANR_ID', 1);

Wie komme ich unter Lazarus mit IBConnection an die nächste ID?

[mse]

Code: Alles auswählen

select gen_id(GEN_ANR_ID,1) as res from RDB$DATABASE;

bringt die nächste Generator Nummer im Feld "res". Kann z.B. mit TSQLQuery abgefragt werden.

[MrSpock]

Danke. Das habe ich gesucht.

[mse]

Eine Alternative ist die MSEgui Komponente tsequencelink.

[MrSpock]

Lässt diese sich auch in Lazarus installieren oder benötige ich dazu die MSEIde?

[mse]

Direkt installieren lässt sie sich nicht, aber man könnte natürlich den code für eine entsprechende Lazarus-Komponente verwenden.

Martin

[MrSpock]

Hallo Martin,

danke für die Alternative. Für mein aktuelles Programm, welches ich von Delphi übernommen habe und jetzt eben auch auf dem Mac nativ laufen lassen möchte, habe ich jetzt die obige Lösung genommen. Funktioniert einwandfrei.