[FB 1.5] gestion des droits [Résolu]

[Moine]

Salut !
Je voudrais pouvoir donner tous les droits sur toutes les tables à tous les utilisateurs. J'ai creé une table zTable qui contient le nom de toutes les tables.
En plus j'ai fait cette procedure:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
CREATE PROCEDURE donnerDroit
AS
DECLARE VARIABLE nomTable VARCHAR(40);
BEGIN
  FOR
       SELECT nom
       FROM    zTable
       INTO  :nomTable
  DO
       GRANT ALL ON :nomTable TO PUBLIC ; 
END

Quand je tente de compiler je reçois un message d'erreur TOKEN UNKNOWN GRANT;

Si vous pouvez m'aidez à corriger ma procedure ou si vous avez d'autres solutions m'aidez. Mercie

[Cl@udius]

Salut
Utilise Execute Statement:

Code :

1
2
 
EXECUTE STATEMENT 'GRANT ALL ON ' || :nomTable || ' TO PUBLIC;';

[Edit]
Sinon pour info: les noms des tables et vues peuvent être récupérer avec un select sur RDB$RELATIONS.

@+

[Moine]

Merici Cl@udius ! ça marche !
Mais comment recuperer le nom des tables et des relations en utilisant RDB$RELATION? un exemple serait plus parlant.
est ce ?

Code :

1
2
3
 
  SELECT *
  FROM   RDB$RELATIONS

?

[Cl@udius]

Re

Pour récupérer les tables:

Code :

1
2
3
4
5
6
7
8
9
 
SELECT
  RDB$RELATION_NAME
FROM
  RDB$RELATIONS
WHERE
  RDB$SYSTEM_FLAG = 0 AND RDB$VIEW_BLR IS NULL
ORDER BY
  RDB$RELATION_NAME;

Tu supprimes la condition sur RDB$VIEW_BLR pour obtenir également les vues.

@+ Claudius

[Moine]

ça y est ! j'ai trouvé.

Code :

1
2
3
 
  SELECT rdb$relation_name
  FROM   rdb$relations

comme quoi google ça sert souvent! Merci.

[Cl@udius]

Attention cette requête n'exclut pas les tables systèmes !!!

@+

[Moine]

c'est ce que je viens de remarquer. Cl@audius muchas Gracias! ta solution est bonne.