IBExpert viele Generatoren aktueller Wert auslesen

[Int3g3r]

Guten Tag,

Ich habe eine bestehende DB bei der ich viele Generatoren habe (30 Stück).
Ist es mögich den aktuellen Wert aller Generatoren per SQL auszulesen / anzuzeigen im IBExpert?
Wenn ja, wie ?

Mfg Int3g3r

Edit: Habe eine möglichkeit gefunden... Generator öffnen -> alle Generatoren anzeigen.
Wäre trotzdem noch interessant ob dies auch per SQL möglich ist.

[Neutral General]

Da es soweit ich das sehe keine Möglichkeit gibt den aktuellen Wert über die System-Tabellen direkt auszulesen habe ich da was zusammen gebastelt:

Code:

EXECUTE BLOCK RETURNS (gen_name varchar(31), gen_value integer)
AS
BEGIN
  FOR
    SELECT
      rdb$generators.rdb$generator_name
    FROM rdb$generators
    WHERE rdb$generators.rdb$system_flag = 0
    INTO :gen_name
  DO
  BEGIN
    EXECUTE STATEMENT 'SELECT gen_id(' || :gen_name || ', 0) FROM rdb$database' into :gen_value;
    SUSPEND;
  END
END

[Delphi.Narium]

https://stackoverflow.com/questions/...n-firebird-sql

Sieht eigentlich genauso aus, bin halt nur etwas später dran ;-)

[Int3g3r]

Funktioniert einwandfrei.

Vielen Dank!