Discussion :

[MaRTy59]

Bonjour à tous, j'ai un problème que je n'arrive pas à résoudre.
J'insère des tuples dans une table que je nomme test mais le problème et que je ne veux pas insérer un tuple qui est déjà dans la base test. Et je ne peux pas utiliser de distinct dans le SELECT, car je dois vérifier chaque tuples.
La section DECLARE est bien déclarée ne vous en faites pas.

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
56
57
58
 
BEGIN
        Open c1;
        FETCH c1 INTO lu_nomusu, lu_nompat, lu_prenom, lu_dtenai, lu_depcol, lu_motdep;
        co_nomusu := lu_nomusu;
        co_nompat := lu_nompat;
        co_prenom := lu_prenom;
        co_dtenai := lu_dtenai;
        co_depcol := lu_depcol;
        co_motdep := lu_motdep;
    LOOP
        FETCH c1 INTO lu_nomusu, lu_nompat, lu_prenom, lu_dtenai, lu_depcol, lu_motdep;
        IF lu_nompat = co_nompat AND lu_prenom = co_prenom AND lu_dtenai = co_dtenai THEN
          IF lu_depcol IS NULL AND co_depcol IS NULL THEN
            INSERT INTO ANOMALIE VALUES
              (
              lu_nomusu, lu_nompat, lu_prenom, lu_dtenai, lu_depcol, lu_motdep
              );
            INSERT INTO ANOMALIE VALUES
              (
              co_nomusu, co_nompat, co_prenom, co_dtenai, co_depcol, co_motdep
              );
          END IF;
          IF lu_depcol IS NULL THEN
            ins_nomusu := lu_nomusu;
            ins_nompat := lu_nompat;
            ins_prenom := lu_prenom;
            ins_dtenai := lu_dtenai;
            ins_depcol := lu_depcol;
            ins_motdep := lu_motdep;
          ELSE 
            IF lu_depcol > co_depcol AND co_depcol IS NOT NULL THEN
              ins_nomusu := lu_nomusu;
              ins_nompat := lu_nompat;
              ins_prenom := lu_prenom;
              ins_dtenai := lu_dtenai;
              ins_depcol := lu_depcol;
              ins_motdep := lu_motdep;
            END IF;
          END IF;
        ELSE
          IF /* Si pas dans la table */ THEN 
            INSERT INTO UNEFOIS VALUES           
            (
            ins_nomusu, ins_nompat, ins_prenom, ins_dtenai, ins_depcol, ins_motdep
            );
          END IF;
        END IF;
        co_nomusu := lu_nomusu;
        co_nompat := lu_nompat;
        co_prenom := lu_prenom;
        co_dtenai := lu_dtenai;
        co_depcol := lu_depcol;
        co_motdep := lu_motdep;
        EXIT WHEN c1%NOTFOUND;
    END LOOP;
    CLOSE c1;
END;

Merci à tous.

[orafrance]

supprime tes curseurs et fais des INSERT AS SELECT WHERE NOT EXISTS ça sera bien plus rapide et tu éviteras les doublons

[MaRTy59]

Je dois garder mes curseurs, la base est énorme

[orafrance]

c'est justement parce qu'elle est énorme que c'est très probablement plus rapide sans curseur. 1 millions d'inserts d'une ligne c'est bcp plus lent qu'un insert d'un million de lignes

[MaRTy59]

je ne vois pas comment faire sans curseurs ?

[orafrance]

moi non plus sans le code

[MaRTy59]

Code sql :

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 
DECLARE
/* pour mémoriser occurrence lue */ 
    lu_codcol VARCHAR2(5);
    lu_codagt NUMBER;
    lu_nomusu VARCHAR2(30);
    lu_nompat VARCHAR2(30) := ' ';
    lu_prenom VARCHAR2(25) := ' ';
    lu_dtenai DATE := NULL;
    lu_depcol DATE := NULL;
    lu_motdep VARCHAR2(1);
/* pour comparer avec occurrence lue */
    co_codcol VARCHAR2(5);
    co_codagt NUMBER;
    co_nomusu VARCHAR2(30);
    co_nompat VARCHAR2(30) := ' ';
    co_prenom VARCHAR2(25) := ' ';
    co_dtenai DATE := NULL;
    co_depcol DATE := NULL;
    co_motdep VARCHAR2(1);
/* pour mémoriser occurrence à inserer */
    ins_codcol VARCHAR2(5);
    ins_codagt NUMBER;
    ins_nomusu VARCHAR2(30);
    ins_nompat VARCHAR2(30) := ' ';
    ins_prenom VARCHAR2(25) := ' ';
    ins_dtenai DATE := NULL;
    ins_depcol DATE := NULL;
    ins_motdep VARCHAR2(1);
/* definition du curseur */     
    CURSOR c1 IS SELECT jpb.CODCOL, jpb.CODAGT, jpb.NOMUSU, jpb.NOMPAT, jpb.PRENOM, pop.DTENAI, jpb.DEPCOL, jpb.MOTDEP 
    FROM pers.JPB_testNOV2009_AGENT jpb, centrale.POPULATION pop 
    WHERE jpb.CODPOP = pop.CODPOP 
    AND (jpb.CODCOL = '59350' OR jpb.CODCOL = '59450')
    ORDER BY jpb.NOMPAT, jpb.PRENOM, pop.DTENAI, jpb.DEPCOL;  
BEGIN
    Open c1;
        FETCH c1 INTO lu_codcol, lu_codagt, lu_nomusu, lu_nompat, lu_prenom, lu_dtenai, lu_depcol, lu_motdep;
        co_codcol := lu_codcol;
        co_codagt := lu_codagt;
        co_nomusu := lu_nomusu;
        co_nompat := lu_nompat;
        co_prenom := lu_prenom;
        co_dtenai := lu_dtenai;
        co_depcol := lu_depcol;
        co_motdep := lu_motdep;
    LOOP
        FETCH c1 INTO lu_codcol, lu_codagt, lu_nomusu, lu_nompat, lu_prenom, lu_dtenai, lu_depcol, lu_motdep;
        IF lu_nompat = co_nompat AND lu_prenom = co_prenom AND lu_dtenai = co_dtenai THEN
          IF lu_depcol IS NULL AND co_depcol IS NULL THEN
            INSERT INTO ANOMALIE VALUES
              (
              lu_codcol, lu_codagt, lu_nomusu, lu_nompat, lu_prenom, lu_dtenai, lu_depcol, lu_motdep
              );
            INSERT INTO ANOMALIE VALUES
              (
              co_codcol, co_codagt, co_nomusu, co_nompat, co_prenom, co_dtenai, co_depcol, co_motdep
              );
          END IF;
          IF lu_depcol IS NULL THEN
            ins_codcol := lu_codcol;
            ins_codagt := lu_codagt;
            ins_nomusu := lu_nomusu;
            ins_nompat := lu_nompat;
            ins_prenom := lu_prenom;
            ins_dtenai := lu_dtenai;
            ins_depcol := lu_depcol;
            ins_motdep := lu_motdep;
          ELSE 
            IF lu_depcol > co_depcol AND co_depcol IS NOT NULL THEN
              ins_codcol := lu_codcol;
              ins_codagt := lu_codagt;
              ins_nomusu := lu_nomusu;
              ins_nompat := lu_nompat;
              ins_prenom := lu_prenom;
              ins_dtenai := lu_dtenai;
              ins_depcol := lu_depcol;
              ins_motdep := lu_motdep;
            END IF;
          END IF;
        ELSE
          INSERT INTO UNEFOIS VALUES           
          (
          ins_codcol, ins_codagt, ins_nomusu, ins_nompat, ins_prenom, ins_dtenai, ins_depcol, ins_motdep
          );
        END IF;
        co_codcol := lu_codcol;
        co_codagt := lu_codagt;
        co_nomusu := lu_nomusu;
        co_nompat := lu_nompat;
        co_prenom := lu_prenom;
        co_dtenai := lu_dtenai;
        co_depcol := lu_depcol;
        co_motdep := lu_motdep;
        EXIT WHEN c1%NOTFOUND;
    END LOOP;
    CLOSE c1;
END;

[orafrance]

faudrait expliquer un minimum le fonctionnel aussi parce qu'on comprend pas pourquoi tu compares les lignes une à une, pourquoi des valeurs peuvent être nul et dans quelles conditions tu insères ou pas.

[MaRTy59]

En fait je dois détecter les anomalies dans une base, elle est constituée de plusieurs personnes, ces personnes ont des dates (depcol) qui doivent être obligatoirement renseignées, or ici, les dates ne sont pas tout le temps mises. Mais une même personne peut être aussi plusieurs fois dans la base. Si une même personne y est trois fois par exemple et que dans les trois cas, seulement deux dates (depcol) sont renseignées alors je prends celle qui n'est pas renseignée. Si dans les trois cas, les trois sont renseignées, alors je prends la date la plus récente, si dans les trois cas, deux ne sont pas renseignées je prends les deux non renseignées ... J'espère que vous me comprendrez.