[Oracle 8i][PL/SQL] Curseur non valide

Version imprimable

11/09/2006, 16h05
Bahan

[Oracle 8i][PL/SQL] Curseur non valide
Bonjour à toutes et à tous.

J'ai un curseur basé sur la requete suivante :
Code:

1 2 3 4 SELECT UnParam FROM MaTable mt WHERE mt.Param1 = 12 AND TRUNC(mt.ParamDateTime) = TRUNC(VariableDateTime);
Et le code me sort une erreur du type

Code:

CURSEUR non valide

Je ne comprends pas ce qui ne va pas dans cette requête. Enfin, en fait, si je pense voir car lorsque j'essaie d'exécuter une telle requete avec des valeurs numériques, j'ai l'erreur suivante :

Code:

Types de données incohérents

Mais dans ce cas, comment faire une égalité de données de type datetime uniquement sur leur partie date ?

Bahan
11/09/2006, 17h02
Bahan

Je me demande si je ne manque pas en fait d'informations.

J'utilise SQLERRM pour afficher le texte de l'erreur. Comment puis-je être sur que cela m'affiche vraiment l'ensemble du message d'erreur, car juste "CURSEUR invalide", je trouve cela un peu light :mrgreen:.

Merci d'avance et au secours :aie:.

Bon a priori quand je refais la requête ci-dessus avec des données, cela marche parfaitement bien. Donc je ne vois vraiment pas pourquoi il me fait un caca nerveux là :(.

Bahan
11/09/2006, 17h51
Magnus

Et si vous nous donniez votre code, le type des variables de votre table, les valeurs que vous substituez dynamiquement à l'exécution, etc. :wink: ?

J'aurais peut-être du faire ça mais d'après ce que je vois maintenant, j'ai cette erreur pour chacun de mes curseurs:( :(

Voilà un exemple de mes curseurs :
Code:

1 2 3 4 5 6 7 8 9 10 11 CURSOR cMonCurseur IS SELECT mt.MonChamp1 -- number , mt.MonChamp2 -- number , mt.MonChamp3 -- date , mt.MonChamp4 -- number , mt.MonChamp5 -- number FROM MaTable mt WHERE mt.MonChamp6 = 0 -- number ORDER BY mt.MonChamp1 ASC;
Ensuite j'appelle mon curseur de la sorte :
Code:

1 2 3 4 5 6 7 8 9 OPEN cMonCurseur; LOOP FETCH cMonCurseur INTO vMonCurseur; EXIT WHEN cMonCurseur%NOTFOUND; -- Mon Traitement -- END LOOP; CLOSE cMonCurseur;
je vois pas ce qui ne va pas :arf:

Edit : ah ben visiblement c'est quand mon curseur ne rapport aucune donnée que cela me fait le coup... Pourtant j'ai bien mis le EXIT pour pallier à ce problème non ? Comment faire sinon pour éviter cette erreur ?

Bahan

11/09/2006, 18h15
SheikYerbouti

l'erreur se situe sur quelle ligne ?
11/09/2006, 18h21
Bahan

Et bien ma foi, je ne sais même pas comment faire pour afficher la ligne :boulet:. Il y a une variable pour ça ? Logiquement dans SQLERRM, il devrait me donner toutes les infos sur l'erreur non ?

Par contre j'ai localisé l'erreur, elle se situe quand je sors de mon curseur au niveau du EXIT WHEN cMonCursor%NOTFOUND.

Après la raison, aucune idée... Je sens que je vais me pendre...

Bahan
11/09/2006, 18h22
orafrance

pour pallier le problème c'est une EXCEPTION NO_DATA_FOUND qu'il faut mettre :)
11/09/2006, 18h23
Bahan

Mais je ne veux pas sortir en erreur moi, je veux parcourir mon curseur et une fois ceci fait continuer tranquillou mon code.:?

Est-ce possible de faire cela ?

En fait là qu'est-ce qu'il se passe au juste ? Il lit le curseur select puis il sort du curseur (grâce au exit) et lève l'exception OTHERS ? Mais pourquoi diable ?

Bahan
11/09/2006, 18h32
orafrance

oui, tu mets ton SELECT dans un bloc BEGIN/END et gestion d'exception... si il y a une erreur tu vas au bloc exception le plus proche et tu continues tranquillou ;)
11/09/2006, 18h35
Bahan

Aaah, tu veux dire, faire un sous-bloc PLSQL ?

Merci du conseil.

Bahan
11/09/2006, 18h46
orafrance

exactement :)
11/09/2006, 18h51
Bahan

Cependant, je n'y connais vraiment pas grand chose dans ces boucles imbriquées. De plus, je trouve qu'elles compliquent le code pour pas grand chose. N'y a-t-il vraiment pas un moyen plus simple ? ^_^

Je veux dire, est-ce vraiment si difficile pour oracle de comprendre que je lis le resultat d'une requete select et que, quand j'ai terminé, je fais autre chose et je ne sors pas un message d'erreur "curseur non valide" ?

Enfin, j'imagine que non et je vais m'arrêter là de geindre ^_^. Merci pour vos précieux conseils. Je vais voir ce que je peux faire avec.

Bonne soirée.

Bahan
11/09/2006, 19h32
Bahan

Et bien (roulement de tambout), j'ai toujours la même erreur xD, même en ajoutant un NO_DATA_FOUND.

Voici le code en entier, j'en ai marre de chez marre.

--

Je ne vois vraiment pas comment faire pour lire un curseur puis sortir normalement.

Merci d'avance pour votre aide.

Bahan, complètement perdu
11/09/2006, 19h59
SheikYerbouti

When NO_DATA_FOUND sur un curseur ... de plus en plus fort !
Le message est pourtant clair : dans l'une de vos instructions OPEN, FETCH ou CLOSE vous faites référence à un curseur invalide, donc qui n'existe pas ou n'est pas/plus ouvert.

Si on élimine de facto OPEN, il reste FETCH et CLOSE
mettez la section exception en commentaire et exécutez la procédure. Le pile des messages vous dira alors sur quelle ligne se situe l'erreur.
11/09/2006, 20h07
Bahan

Ok, je vais voir ce que ça donne de suite et je vous mets le résultat.

Bahan
11/09/2006, 20h14
Bahan

Bon, le problème vient de ma ligne cMonCurseur%ROWCOUNT.
D'après moi, je dirais que c'est parce que j'ai déjà fermé mon curseur et donc que je ne peux pas utiliser l'attribut rowcount.

Me trompe-je ?

Bahan

Citation:

Envoyé par Bahan

Et bien (roulement de tambout), j'ai toujours la même erreur xD, même en ajoutant un NO_DATA_FOUND.

Voici le code en entier, j'en ai marre de chez marre.

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
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
-- ======================================================
--
--  FONCTION
--    F_CtrlEtIntVente
--
--  DESCRIPTION
--    Controle de coherence des enregistrements de type VENTE
--
--  SYNTAXE
--    FUNCTION F_CtrlEtIntVente 
--      (pTypeFichier IN TCJ_TRACE_ERREUR.TypeFichier%TYPE)
--
--  ARGUMENTS
--    - pTypeFichier : Type du fichier
--    - pNumStade 	 : Etape du traitement
--
--  RETOUR
--    - 2	: aucune nouvelle donnee
--    - 1	: traitement OK
--    - 0	: traitement NOK
--    - -1	: traitement NOK (inconnu)
--
-- ======================================================
FUNCTION F_CtrlEtIntVente 
    (pTypeFichier IN TCJ_TRACE_ERREUR.TypeFichier%TYPE)
RETURN NUMBER
IS
    CURSOR cVente
    IS
        SELECT
            tv.NumOrdreChargement
            , tv.CodeMagasin
            , tv.DateHeureLocale
            , tv.CodeInterneArticle
            , tv.SoldeMvts
        FROM TCJ_VENTE tv
        WHERE tv.FlagIntegration = 0
        ORDER BY tv.NumOrdreChargement ASC;

    vCrFonction NUMBER;
    vCrControleCoherence NUMBER;
    vCrIntegVente NUMBER
    vFlagIntegration NUMBER;
    vVente  cVente%ROWTYPE;
    vCptErr NUMBER;
    vNomFonction VARCHAR2(50);
BEGIN
    vNomFonction := 'F_CtrlEtIntVente';
    vCptErr := 0;

    OPEN cVente;
    LOOP
        FETCH cVente INTO vVente;
        EXIT WHEN cVente%NOTFOUND;

        -- Controle de coherence de l enregistrement
        vCrControleCoherence := F_CtrlVente(vVente.NumOrdreChargement
                                        , vVente.CodeMagasin
                                        , vVente.CodeInterneArticle
                                        , vVente.DateHeureLocale
                                        , pTypeFichier
                                        , 3);

        IF(vCrControleCoherence = 1) THEN
            vCrIntegVente := F_IntVente(vVente.CodeMagasin
                                        , vVente.DateHeureLocale
                                        , vVente.CodeInterneArticle
                                        , vVente.SoldeMvts);

            IF(vCrIntegVente = 1) THEN	
                vFlagIntegration := 1;
                COMMIT;
            ELSE
                IF(vCrIntegVente = 0) THEN
                    vCptErr := vCpErr + 1;
                    vFlagIntegration := -1;
                    ROLLBACK;
                END IF;

                IF(vCrIntegVente = -1) THEN
                    ROLLBACK;
                    CLOSE cVente;
                    RETURN vCrIntegVente;
                END IF;
            END IF;
        ELSE
            IF(vCrControleCoherence = 0) THEN
                vCptErr := vCpErr + 1;
                vFlagIntegration := -1;
            END IF;

            IF(vCrControleCoherence = -1) THEN
                CLOSE cVente;
                RETURN vCrControleCoherence;
            END IF;
        END IF;

        -- Maj de la table TCJ_PIECE_VENTE (integration effectuee)
        UPDATE TCJ_VENTE tv
        SET tv.HeureIntegration = SYSDATE
            , tv.FlagIntegration = vFlagIntegration
        WHERE tv.NumOrdreChargement = vVente.NumOrdreChargement;
    END LOOP;
    CLOSE cVente;
EXCEPTION
    WHEN NO_DATA_FOUND THEN
        IF(cVente%ROWCOUNT = 0) THEN
            -- Pas de nouvelle donnee a integrer
            RETURN 2;
        ELSE
            -- Sortie normale apres controle de ligne
            IF(vCptErr = 0) THEN
                RETURN 1;
            ELSE
                RETURN 0;
            END IF;
        END IF;
    WHEN OTHERS THEN
        P_SortirSqlErreur(vNomFonction, SQLERRM, TO_NUMBER(SQLCODE));
        RETURN -1;
END F_CtrlEtIntVente;

Je ne vois vraiment pas comment faire pour lire un curseur puis sortir normalement.

Merci d'avance pour votre aide.

Bahan, complètement perdu

Il semble qu'il y a trop de CLOSE cVENTE dans le code ...