Firebird Quelltext eines Generators lesen

[mkinzler]

Ein Generator ist ein unabhängig von einer Tabelle gespeicherter Wert. Für diesen gibt es keinen Quelltext.
Dieser wird meist durch einen Trigger oder auch im Programm verändert (mit SemaphorenFunktion GEN_ID()).
Der gesuchte Quelltext wird sich u.a. im BI-Trigger der/den entsprechenden Tabelle(n) befinden.

[Delphi.Narium]

Generatoren stehen in RDB$GENERATORS:

select 'create generator '||RDB$GENERATOR_NAME||';' as Generator from RDB$GENERATORS;

[Codehunter]

Zitat von Delphi.Narium:

Generatoren stehen in RDB$GENERATORS:

select 'create generator '||RDB$GENERATOR_NAME||';' as Generator from RDB$GENERATORS;

Das ist geschummelt Der Grund warum ich frage: Wenn ich mit SQL Manager Lite schaue, sehe ich bei manchen Generatoren folgende DDL:

Code:

CREATE GENERATOR <name>;

SET GENERATOR <name> TO 1000;

Die zweite Zeile ist offensichtlich ein Vorgabewert. Darum habe ich angenommen, es gäbe wie bei Procedures und Triggern eine statische DDL. Anscheinend schummelt der SQL Manager da aber auch. Nur woher kommt der Vorgabewert, in dem Fall die "1000"?

[mkinzler]

Das wird der aktuelle Wert sein.

[Codehunter]

Zitat von mkinzler:

Das wird der aktuelle Wert sein.

Nur müsste der dann nicht bei allen Generatoren im "DDL" so erscheinen und nicht nur bei manchen?

[IBExpert]

Generatoren abrufen und Werte auslesen ist ziemlich einfach
Bei einem Trigger musst du für vollständige SQLs diverse Attribute aus RDB$Triggers auswerten, um zu wissen ob das ein before oder after trigger ist, ein database trigger, etc.
Für den Main Body gibt es das jeweilige Source Feld, das reicht aber nicht für die Create Trigger Deklaration, für Alter Trigger aber schon.

Bei Stored procs ist das noch wesentlich komplizierter, weil da der Header aus RDB$PROCEDURES und RDB$PROCEDURE_PARAMETERS kommen und je nach dem wie die deklariert sind, auch noch rdb$fields etc.

Das ist im Gegensatz zu Generatoren nicht mal eben allgemeingültig zu machen, ich weiß wovon ich rede


Für Generatoren aber hier eine kleine Hilfe

Code:

execute block
returns
(create_sql varchar(200),
set_val varchar(200))
as
declare variable gn varchar(31);
declare variable val bigint;
begin
  for select trim(rdb$generators.rdb$generator_name)
      from rdb$generators
      where rdb$generators.rdb$generator_name not containing '$'
      into gn
  do
  begin
    create_sql='create generator '||gn;
    execute statement 'select gen_id('||gn||',0) from rdb$database' into val;
    set_val='set generator '||gn||' to '||val;
    suspend;
  end
end