Discussion :

[looping]

Bonjour,

Est ce qu'il est possible avec une requete SQL de lister tous les générateurs (nom + valeur) d'une base ?

Dans IBexpert il y une possiblité de "montrer tous les générateurs" , mais impossible d'imprimer ensuite. (ou bien je n'ai pas trouvé comment)

merci

[seabs]

Bonjour,

Je ne sais pas s'il est possible de présenter les générateurs avec un requête. Je pense que oui en utilisant les métadonnées dans ta requête. Je n'ai pas cherché.

Par contre, si tu affiches tes générateurs avec IBExpert et que l'impression soit impossible, il n'est pas interdit de faire un copie d'écran. Ce n'est peut-être pas le top, mais ça dépanne.

Bon courage

A+

[SergioMaster]

Bonjour ,

Pour la Liste des générateurs (non systeme)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
SELECT r.RDB$GENERATOR_NAME, r.RDB$DESCRIPTION
FROM RDB$GENERATORS r
WHERE r.RDB$SYSTEM_FLAG = 0

pour ce qui est de l'ajout de la valeur par contre il va falloir aller plus loin
-première approche une procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
SET TERM ^ ;
 
ALTER PROCEDURE LISTE_GENERATEURS 
 RETURNS(NAME CHAR(31),
        DESCRIPTION BLOB sub_type 1,
        VALEUR BIGINT
        ) 
AS
BEGIN 
FOR 
SELECT r.RDB$GENERATOR_NAME,r.RDB$DESCRIPTION  FROM RDB$GENERATORS r 
WHERE r.RDB$SYSTEM_FLAG=0
INTO :NAME,:DESCRIPTION 
DO BEGIN
 EXECUTE STATEMENT 'SELECT gen_id('||:NAME||',0) FROM RDB$DATABASE' INTO :VALEUR;
 SUSPEND;
END  
END^
 
SET TERM ; ^

2° approche (après quelques tatonnements) avec EXECUTE BLOCK (une première pour moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
SET TERM #;
EXECUTE BLOCK 
 RETURNS(NAME CHAR(31),
        DESCRIPTION BLOB sub_type 1,
        VALEUR BIGINT
        ) 
AS
BEGIN 
FOR 
SELECT r.RDB$GENERATOR_NAME,r.RDB$DESCRIPTION  FROM RDB$GENERATORS r 
--WHERE r.RDB$SYSTEM_FLAG=0
INTO :NAME,:DESCRIPTION 
DO BEGIN
  EXECUTE STATEMENT 'SELECT gen_id('||NAME||',0) FROM RDB$DATABASE' INTO :VALEUR;
  SUSPEND;
END  
END#
SET TERM ;#

-3° approche plus simple ?