Convertir chaîne de caractères en code interprété

Version imprimable

Voir 40 message(s) de cette discussion en une page

Reprenons.:aie:

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

Code:

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;
/

OK, je vais essayer.

Mais pourquoi ce ne serait pas un truc du style :

Code:

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...

03/03/2009, 16h50
GoLDoZ

Nos messages se sont croisés. :aie:
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.
03/03/2009, 17h00
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...
03/03/2009, 17h23
GoLDoZ

Vous n'avez pas une clé primaire dans votre table?
03/03/2009, 17h25
theworst
Si !
C'est :
Code:

1 2 PRIMARY KEY (INT_START_DATE,INT_START_TIME,INT_DURATION,APPLI)
Mais j'aurai souhaité que cela fonctionne avec le rowid.
03/03/2009, 17h33
theworst
Allelluia :P

Avec ce code, ça marche :
Code:

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 !
03/03/2009, 17h34
theworst

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

Merci encore.

Voir 40 message(s) de cette discussion en une page