Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Alle Generatoren (https://www.delphipraxis.net/198980-alle-generatoren.html)

Walter Landwehr 16. Dez 2018 12:31

Datenbank: Firebird • Version: 2,5.3 • Zugriff über: IBO

Alle Generatoren
 
Hallo kennt jemand einen SQL Befehl um alle Generatoren mit Wert anzuzeigen.

mkinzler 16. Dez 2018 12:37

AW: Alle Generatoren
 
SQL-Code:
select
  *
from
  RDB$GENERATORS;

Walter Landwehr 16. Dez 2018 12:42

AW: Alle Generatoren
 
Hallo Markus,

das zeigt zwar alle Generatoren aber nicht den aktuellen Wert.

mkinzler 16. Dez 2018 12:53

AW: Alle Generatoren
 
Das sollte gehen:
SQL-Code:
select
  g.*, gen_id( g.RDB$GENERATOR_NAME, 0)
from
  RDB$GENERATORS g;

Walter Landwehr 16. Dez 2018 13:11

AW: Alle Generatoren
 
Nein geht leider nicht kommt folgender Fehler:
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 2, column 16.

Irgendwie will der Befehlt das g. nicht akzeptieren.

Fritzew 16. Dez 2018 14:50

AW: Alle Generatoren
 
Das sollte gehen:

Wird bei uns so eingesetzt

Code:
execute block
returns (
    out_name char(31),
    out_value bigint)
as
begin
    for select rdb$generator_name from rdb$generators where rdb$system_flag is distinct from 1 into out_name do
    begin
        execute statement 'select gen_id(' || out_name || ', 0) from rdb$database' into out_value;
        suspend;
    end
end

Walter Landwehr 16. Dez 2018 16:09

AW: Alle Generatoren
 
Danke Fritz,

das funktioniert.:-D


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:11 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz