Discussion :

[Veve44]

Bonjour,

Je travaille sous Windows XP, Forms 6i et Oracle 8.1.5.

Voilà mon problème : j'ai besoin, dans un écran Forms, de créer une séquence dont le nom est dépendant de plusieurs paramètres.
J'utilise donc le code suivant pour le faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
           BEGIN
              Var_Commande := 'CREATE SEQUENCE ' || Var_Nom_Sequence || ' INCREMENT BY 1 START WITH 1 MAXVALUE 999999999999';
              EXECUTE IMMEDIATE Var_Commande;
           EXCEPTION
            	 WHEN OTHERS THEN
  	                v_retour := Alert_Fonctionnelle(1122,Var_Nom_Sequence,'','');
  	                Go_Item('BL_CTRL1.t_journee');
 	                  RAISE Form_Trigger_Failure;
           END;

Or, la compilation échoue à cause de :

Erreur 103, ligne ...., colonne ....
Symbole "IMMEDIATE" rencontré à la place d'un des symboles suivants :
:= . ( @ % ;

Or, si je prend ce bout de code, et que je l'utilise sous TOAD, ça fonctionne !!

Quelqu'un a une idée ??

Merci par avance.

[plaineR]

Le moteur PL de forms n'étant pas au niveau de celui de la base certaines instructions ne sont pas connues. C'est le cas de execute immediate.

Tu peux t'en sortir en utilisant le package forms exec_sql ou celui de la base de données dbms_sql.

[SheikYerbouti]

ou un simple forms_ddl()

[Veve44]

Tu peux t'en sortir en utilisant le package forms exec_sql ou celui de la base de données dbms_sql.

Bon, j'oublie le EXECUTE IMMEDIATE alors...

Du coup, ça donne quelque chose comme ça ?? :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
           BEGIN
              Var_Commande := 'CREATE SEQUENCE ' || Var_Nom_Sequence || ' INCREMENT BY 1 START WITH 1 MAXVALUE 999999999999';
              V_Retour := DBMS_SQL.EXECUTE(Var_Commande);
           EXCEPTION
            	 WHEN OTHERS THEN
  	                v_retour := Alert_Fonctionnelle(1122,Var_Nom_Sequence,'','');
  	                Go_Item('BL_CTRL1.t_journee');
 	                  RAISE Form_Trigger_Failure;
           END;

[Veve44]

Je viens de tester avec FORMS_DDL : ça a l'air de fonctionner.

Merci beaucoup !!