Discussion :

[GoLDoZ]

Reprenons.

Je crois que j'ai trouvé la faille. Ce code devrait vous aller.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
CREATE OR REPLACE PROCEDURE test2
AS
BEGIN
   DECLARE
      v_date      DATE;
      v_time      DATE;
      v_requete   VARCHAR2 (199);
      v_formula   VARCHAR2 (199);
      v_result    NUMBER;
      v_id        VARCHAR (15);
      my_rowid    UROWID;

      CURSOR c1
      IS
         SELECT     int_start_date, int_start_time, formula, RESULT, ROWID
               FROM best1.app_iam
           ORDER BY int_start_date, int_start_time
         FOR UPDATE;

      t_rec       c1%ROWTYPE;
   BEGIN
      OPEN c1;

      LOOP
         FETCH c1
          INTO t_rec;

         EXIT WHEN c1%NOTFOUND;

         SELECT f.ID, f.formula
           INTO v_id, v_formula
           FROM best1.formula f
          WHERE t_rec.int_start_date >= f.int_start_date
            AND t_rec.int_start_date <= f.int_end_date
            AND t_rec.int_start_time >= f.int_start_time
            AND t_rec.int_start_time <= f.int_end_time;

         v_requete :=
                   'SELECT ' || v_formula || ' FROM APP_IAM WHERE ROWID = ' || t_rec.ROWID;

         EXECUTE IMMEDIATE v_requete
                      INTO v_result;

         UPDATE app_iam
            SET formula = v_id,
                RESULT = v_result
          WHERE ROWID = t_rec.ROWID;
      END LOOP;

      CLOSE c1;

      COMMIT;
   END;
END;
/

[theworst]

OK, je vais essayer.

Mais pourquoi ce ne serait pas un truc du style :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
CREATE OR REPLACE PROCEDURE TEST2
AS
BEGIN
   DECLARE
      v_date DATE;
      v_time DATE;
      v_requete VARCHAR2(199);
      v_formula VARCHAR2(199);
      v_result NUMBER;
      v_id VARCHAR(15);
      my_rowid UROWID;
      CURSOR c1 
      IS
      SELECT INT_START_DATE,
         INT_START_TIME,
         FORMULA,
         RESULT,
         ROWID 
      FROM BEST1.APP_IAM 
      ORDER BY INT_START_DATE, INT_START_TIME
      FOR UPDATE;
      t_rec c1%ROWTYPE;
   BEGIN
      OPEN c1;
 
      LOOP
         FETCH c1
          INTO t_rec;
 
         EXIT WHEN c1%NOTFOUND;
 
         SELECT f.ID, f.FORMULA INTO v_id, v_formula
         FROM FORMULA f 
         WHERE t_rec.INT_START_DATE >= f.INT_START_DATE 
         AND t_rec.INT_START_DATE <= f.INT_END_DATE 
         AND t_rec.INT_START_TIME >= f.INT_START_TIME 
         AND t_rec.INT_START_TIME <= f.INT_END_TIME;
         UPDATE APP_IAM SET FORMULA = v_id WHERE ROWID = t_rec.rowid;

         SELECT f.formula INTO v_formula FROM formula f WHERE f.ID = t_rec.formula ;
--         dbms_output.put_line( 'Formule = ' || v_formula ) ;
         v_requete := 'SELECT ' || v_formula || ' FROM APP_IAM WHERE ROWID = t_rec.rowid' ;
         dbms_output.put_line( 'requete = ' || v_requete ) ;
         EXECUTE IMMEDIATE v_requete INTO v_result;
         UPDATE app_iam SET RESULT = v_result WHERE ROWID = t_rec.rowid ;
      END LOOP;
 
      CLOSE c1;
      COMMIT;
   END;      
END ;
/

... mais qui marche : en effet, ça retourne l'erreur "
Error: ORA-00904: "T_REC"."ROWID": invalid identifier
ORA-06512: at line 1, Batch 1 Line 1 Col 1
alors qu'on est dans le curseur.

C'est énervant : j'arrive à obtenir l'id de la formule, le texte de la formule, mais le execute immediate ne veut pas du ROWID...

[GoLDoZ]

Nos messages se sont croisés.
Vous avez bien vu, mais le rowid doit être remplacé par sa valeur, et donc la variable doit être à l'extérieur de la chaîne.
Voir mon code juste au-dessus.

[theworst]

Je pense qu'on n'est pas loin, mais l'essai me donnant l'erreur
"Error: ORA-00904: "AABEDRAAFAAAAEOAAA": invalid identifier ; ORA-06512: at line 1, Batch 1 Line 1 Col 1",
cela me fait dire qu'il faudrait mettre le t_rec.rowid entre cotes, ce que je ne sais pas faire...

[GoLDoZ]

Vous n'avez pas une clé primaire dans votre table?

[theworst]

Si !
C'est :

Code :

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

1
2
 
PRIMARY KEY (INT_START_DATE,INT_START_TIME,INT_DURATION,APPLI)

Mais j'aurai souhaité que cela fonctionne avec le rowid.

[theworst]

Allelluia

Avec ce code, ça marche :

Code :

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

1
2
 
v_requete := 'SELECT ' || v_formula || ' FROM APP_IAM WHERE ROWID = ' || '''' || t_rec.rowid || ''''  ;

--> 4 cotes qui se suivent = une cote. C'est comme 1 et 1 font 2 !!

Maintenant, si vous êtes joueur, le but est d'optimiser, car je vais devoir traiter 400.000 lignes !

Mais franchement, merci beaucoup pour votre aide !

[theworst]

...
400.000 lignes par mois tous les mois dans des tables qui vont se remplir d'autant tous les mois...

Merci encore.