Erreur numérique ORA-06502

**GreekNotGeek** · 08/10/2007, 12h26

Bonjour,

C'est mon premier post sur les forums de developpez.com, que je fréquente depuis quelques années. Aujourd'hui j'ai un problème sur une procédure PL/SQL sur base oracle, j'éspère que quelqu'un pourra m'aider

!

Il s'agit de lire deux valeurs dans un fichier csv et de les stocker dans une table. J'utilise pour cela deux variables (Variable_1 et Variable_2).

Voilà le message d'erreur qui apparait lors de l'execution:
ORA-06502: erreur numérique ou erreur sur une valeur: erreur de conversion des caractères en chiffres.

Et voilà mon code:

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
59
60
61
62
63
64
65
66
67
68
69
70
71
 
 
CREATE OR REPLACE PROCEDURE MA_PROCEDURE IS
 
/* Déclaration des variables */
fichier utl_file.file_type; 
buffer VARCHAR2 (1024);
pos1 INT := 1; 
pos2 INT := 1; 
Variable_1 TABLE_1.COLONNE_1%TYPE;
VARIABLE_2 TABLE_1.COLONNE_2%TYPE;
ESL TABLE_1.COLONNE_2%TYPE;
ESF TABLE_1.COLONNE_2%TYPE;
EST TABLE_1.COLONNE_2%TYPE;
premiereligne INT :=1;
 
/* Début de procédure */
BEGIN
 
/* Ouverture du fichier source */
   fichier := utl_file.fopen ('chemin','fichier.csv','r');
 
LOOP
BEGIN
 
/* Lecture */
   IF premiereligne = 0 THEN --on ne veut pas lire la premiere ligne du fichier qui contient les noms de colonnes
   	  pos1 := 1;
   	  pos2 := 1;
   	  utl_file.get_line (FILE => fichier ,buffer => buffer);
 
   	  pos1 := INSTR (buffer, ';', 1, 3)+1;
   	  pos2 := INSTR (buffer, ';', 1, 4);
   	  Variable_1 := SUBSTR(buffer, pos1, pos2-pos1);
 
 
   	  pos1 := INSTR (buffer, ';', 1, 6)+1;
   	  pos2 := INSTR (buffer, ';', 1, 7);
   	  VARIABLE_2 := SUBSTR(buffer, pos1, pos2-pos1);   
 
/* Update */
   	  IF Variable_1 <> "ESL" AND Variable_1 <> "ESF" THEN
   	  	 UPDATE TABLE_1 SET COLONNE_2 = VARIABLE_2
   	  	 WHERE COLONNE_1 = Variable_1;
      ELSE
   	  	 IF Variable_1 = "ESL" THEN ESL := VARIABLE_2;
	  	 END IF;
	  	 IF Variable_1 = "ESF" THEN ESF :=VARIABLE_2;
	  	 END IF;
   	  END IF;
   ELSE
   premiereligne :=0;
   END IF;
END;
END LOOP;
 
EST := ESL + ESF;
UPDATE TABLE_1 SET COLONNE_2 = EST
WHERE COLONNE_1 = "EST";
 
utl_file.fclose(fichier);
COMMIT;
 
   EXCEPTION
     WHEN NO_DATA_FOUND THEN
       NULL;
     WHEN OTHERS THEN
       -- Consider logging the error and then re-raise
       RAISE;
END MA_PROCEDURE;
/

Lors de débuggage, la procédure lit la première ligne du fichier csv, et donne une valeur correcte à la Variable_1, puis à la Variable_2. Ce n'est qu'ensuite qu'apparait le message d'erreur.

TABLE_1.COLONNE_1 est du type VARCHAR2(15). Les valeurs lues dans le .csv ne dépassent pas les 3 caractères.
TABLE_1.COLONNE_2 est du type NUMBER(16,2). Les valeurs lues dans le fichier csv ne dépassent pas une longueur de 16 caractères, et sont des numériques à deux chiffres apres la virgule.

Quelqu'un sautait-il d'ou cette erreur peut venir? Merci d'avance !

**plaineR** · 08/10/2007, 13h22

Qu'as-tu dans variable_2 ?
=> vérifie que c'est bien une valeur numérique pour toutes les lignes.

**Loyd1974** · 08/10/2007, 14h54

Je pense que tu as des problème dans ton code

Ta boucle est infinie, il doit y avoir un test de sortie lorsque ton fichier est vide
Ton test sur premiereligne = 0 amène à faire premiereligne=0 sans même faire un get_line pour zapper effectivement la première ligne

A mon avis, ton problème vient que tu ne sors pas du traitement quand tu as fini de lire ton fichier, donc tu alimentes tes zones avec NULL et forcément à la conversion, cela ne lui plait pas

**GreekNotGeek** · 08/10/2007, 15h19

Merci de vos réponses

.

plaineR, j'utilise TOAD, qui a un débugger laissant à désirer... Donc je suis la progression de mes deux variables, en utilisant "break on value change": je lance l'execution, la premiere etape est que la variable_1 prends la valeur "AAA" lue dans le fichier (ce qui signifie que ma bidouille pour ne pas lire la premiere ligne du fichier fonctionne, Loyd1974.), puis je reclique et la variable_2 prend la valeur 607094,53. Et c'est ensuite qu'apparait l'erreur...
Variable_2 est donc un numérique ! Et c'est le seul endroit du code ou je lui attribue une valeur...

Loyd1974, ton conseil parait logique, mais j'ai codé cette procédure à l'image d'une procédure existante qui fonctionne. Et apparemment, LOOP passe a la prochaine ligne du csv automatiquement, et n'a besoin d'aucune condition de sortie. En tant que programmeur objet, je dois dire que ca me parait bizarre a moi aussi. Mais de toute facon, le problème survient avant le début du deuxième passage dans la boucle...

**Loyd1974** · 08/10/2007, 15h26

Envoyé par GreekNotGeek

la variable_2 prend la valeur 607094,53

Vérifie que le séparateur décimal dans ton fichier correspond bien à celui de ta base de données. Si c'est le point et que tu utilises une virgule, alors la cause est là

**Loyd1974** · 08/10/2007, 15h34

Envoyé par GreekNotGeek

Loyd1974, ton conseil parait logique, mais j'ai codé cette procédure à l'image d'une procédure existante qui fonctionne. Et apparemment, LOOP passe a la prochaine ligne du csv automatiquement, et n'a besoin d'aucune condition de sortie. En tant que programmeur objet, je dois dire que ca me parait bizarre a moi aussi. Mais de toute facon, le problème survient avant le début du deuxième passage dans la boucle...

Effectivement, ca marche, j'avais oublié que la procédure get_line renvoyait une exception no_data_found quand on arrive à la fin du fichier.
Par contre, toute cette partie de code ne sera jamais exécuté:

Code :

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

1
2
3
4
5
6
EST := ESL + ESF;
UPDATE TABLE_1 SET COLONNE_2 = EST
WHERE COLONNE_1 = "EST";
 
utl_file.fclose(fichier);
COMMIT;

car elles se situent entre la boucle et l'exception, alors qu'il faudrait qu'elles soient après le exception ... end

Pour être plus propre, ta structure devrait être

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
 
DECLARE 
...
BEGIN
...
   BEGIN
      LOOP
          ...
      END LOOP
   EXCEPTION
      WHEN NO_DATA_FOUND THEN 
           NULL;
      WHEN OTHERS THEN
           RAISE;
    END;
....
EXCEPTION
    ...
END;

**plaineR** · 08/10/2007, 15h39

Envoyé par GreekNotGeek

Et apparemment, LOOP passe a la prochaine ligne du csv automatiquement, et n'a besoin d'aucune condition de sortie. En tant que programmeur objet, je dois dire que ca me parait bizarre a moi aussi.

Il sort de la boucle car une exception no_data_found est levée à la fin du fichier.

Ton séparateur de décimale est-il la virgule ?

**GreekNotGeek** · 08/10/2007, 16h16

Ma base de données utilise bien la virgule (mais j'avais essayé avec des points, aussi, et l'erreur était la même).

C'est vrai, le code après le END LOOP n'aurait jamais été executé, merci. Mais cela ne règle pas mon problème é_è . Je continue de chercher...

Erreur numérique ORA-06502

Oracle

Vue hybride

Discussions similaires

Partager

Partager