Curseur nom de table

Version imprimable

Bonjour,

j'utilise un curseur qui parcours une table, cette table contient des nom de table et une périodicité.

Voici ma procédure qui utilise le curseur :

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
 
create or replace PROCEDURE Histo_Kcarton
IS
 
v_Periodicite     number;
 
cursor C1 is
	   select Ltable,periodicite
	   from histo;
C1r	   C1%ROWTYPE;
 
 
BEGIN
 
OPEN C1;
    FETCH C1 INTO C1r;
    -- on parcours la table Histo
    while C1%FOUND loop
        -- Récupération de la periodicite
        select Periodicite into v_Periodicite
        from Histo
        where ltable = C1r.Ltable;
 
        -- on supprime les anciennes saisies
        delete from C1r.Ltable 
        where to_date(DCarton,'YYYY/MM/DD') <TO_DATE(TO_CHAR(SYSDATE,'YYYY/MM/DD'),'YYYY/MM/DD') 
        And to_date(DCarton,'YYYY/MM/DD') > TO_DATE(TO_CHAR((sysdate - C1r.periodicite),'YYYY/MM/DD'),'YYYY/MM/DD');
        commit;
 
        -- on met à jour BDE Histo
        insert into C1r.Ltable
        select * from KCarton@bdepkg0
        where to_date(DCarton,'YYYY/MM/DD') <TO_DATE(TO_CHAR(SYSDATE,'YYYY/MM/DD'),'YYYY/MM/DD') 
        And to_date(DCarton,'YYYY/MM/DD') > TO_DATE(to_char((sysdate - C1r.periodicite),'YYYY/MM/DD'),'YYYY/MM/DD');
        commit;
    FETCH C1 into C1r;
    end loop;
CLOSE C1;
END;
/
show errors;
/

et voici ce qui pose problème

Code:

delete from C1r.Ltable

J'aimerais savoir si c'est correct je viens tout juste de commencer le PL/SQL.

Au passage voici les message d'erreur, rien de très impressionant table ou vue inexistante

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
SQL> @c:\oracle\script
 
Avertissement : ProcÚdure crÚÚe avec erreurs de compilation.
 
Erreurs pour PROCEDURE HISTO_KCARTON :
 
LINE/COL ERROR
-------- -----------------------------------------------------------------
23/9     PL/SQL: SQL Statement ignored
23/25    PL/SQL: ORA-00942: Table ou vue inexistante
29/9     PL/SQL: SQL Statement ignored
29/25    PL/SQL: ORA-00942: Table ou vue inexistante
 
Avertissement : ProcÚdure crÚÚe avec erreurs de compilation.
 
SQL> @c:\oracle\script
 
Avertissement : ProcÚdure crÚÚe avec erreurs de compilation.

Cordialement

16/05/2011, 14h16
mnitu

Si le nom de la table n'est pas connu au moment de la compilation vous devez employer le Sql Dynamique

Okay, j'ai utilisé execute immediate et j'ai concaténé mes variables sa a l'air de fonctionner :

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
 
create or replace PROCEDURE Histo_Kcarton
IS
 
v_Periodicite   number;
v_table		  	varchar2(20);
v_requete		varchar2(100);
 
cursor C1 is
	   select Ltable,periodicite
	   from histo;
C1r	   C1%ROWTYPE;
 
 
BEGIN
 
OPEN C1;
    FETCH C1 INTO C1r;
    -- on parcours la table Histo
    while C1%FOUND loop
        -- Récupération de la periodicite
        select Periodicite into v_Periodicite
        from Histo
        where ltable = C1r.Ltable;
 
        v_table := C1r.Ltable;
 
        -- on supprime les anciennes saisies
        v_requete := 'delete from '|| v_table ||' where to_date(DCarton,''YYYY/MM/DD'') <TO_DATE(TO_CHAR(SYSDATE,''YYYY/MM/DD''),''YYYY/MM/DD'') And to_date(DCarton,''YYYY/MM/DD'') > TO_DATE(TO_CHAR((sysdate - ' || C1r.periodicite ||'),''YYYY/MM/DD''),''YYYY/MM/DD'') ';
        EXECUTE IMMEDIATE v_requete; 
        commit;
 
        -- on met à jour BDE Histo
        v_requete := ' insert into '|| v_table ||' select * from KCarton@bdepkg0 where to_date(DCarton,''YYYY/MM/DD'') < TO_DATE(TO_CHAR(SYSDATE,''YYYY/MM/DD''),''YYYY/MM/DD'') And to_date(DCarton,''YYYY/MM/DD'') > TO_DATE(to_char((sysdate - '|| C1r.periodicite ||'),''YYYY/MM/DD''),''YYYY/MM/DD'')';
        EXECUTE IMMEDIATE v_requete;    
        commit;
    FETCH C1 into C1r;
    end loop;s
CLOSE C1;
END;

16/05/2011, 18h34
Waldar
Si vos colonnes DCarton sont de type date, vous pouvez faire beaucoup plus court :
Code:

1 2 WHERE trunc(DCarton, 'D') < trunc(sysdate, 'D') AND trunc(DCarton, 'D') > trunc(sysdate, 'D') - C1r.periodicite;
Même si votre colonne DCarton est en char, on peut raccourcir :
Code:

1 2 WHERE to_date(DCarton, 'YYYY/MM/DD') < trunc(sysdate, 'D') AND to_date(DCarton, 'YYYY/MM/DD') > trunc(sysdate, 'D') - C1r.periodicite;
Et je ne suis pas sûr que les trunc soient nécessaire (ils suppriment la composante heures / minutes / secondes du format de date), comme apparemment vous désirez supprimer de vieilles données, ceci peut suffire :
Code:

1 2 WHERE DCarton < sysdate AND DCarton > sysdate - C1r.periodicite;
Après peut-être que les bornes peuvent être incluses :

Code:

WHERE DCarton between sysdate - C1r.periodicite and sysdate;

Notez que sur ces deux derniers points, ce sont vos données qui peuvent infirmer ou affirmer ces propositions.