[FORMS][6i] Erreur non explicitée

Version imprimable

Salut a tous,

J'ai le message suivant :

Citation:

FRM-40735:le declencheur WHEN-BUTTON-PRESSED
a detecte une exception ORA-06502 non traitee.

Le message survient lorsque j'excute une form et que je clic sur un boutton pour executer le code suivent :

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
PROCEDURE test IS
BEGIN
declare
	mat varchar2(7);
	mt number;
	date_jour1 date;
	in_file Text_IO.File_Type;
	tampligne  VARCHAR2 (80);
  begin
 
      in_file:=Text_IO.Fopen('c:\vers_syspai\precompte.txt','r');
      loop
         Text_IO.Get_Line(in_file,tampligne);
 
         if tampligne is null then
            exit;
         else
            mat:= recherche(tampligne,1,';');
            mt:=recherche(tampligne,2,';');
            date_jour1:=recherche(tampligne,3,';');
            insert into fichier_precompte(MATRICULE_PARTICIPANT,MONTANT_PRECOMPTE,DATE_PRECOMPTE)
     	values (mat,mt,date_jour1);
         end if;      				 
      end loop;
    EXCEPTION
    WHEN no_data_found THEN
       	Text_IO.Fclose(in_file);
    when too_many_rows then 
            message('plusieurs enregistrements');    	
    commit;
 end;
END;

A mon avis le message survient apres l'instruction : Text_IO..Get_Line...
Que peut vouloir signifier ce message?

12/05/2005, 15h03
SheikYerbouti

Etes-vous sûr que la variable templigne (varchar2(80)) est suffisament dimentionnée ? pas de lignes de plus de 80 caractères dans votre fichier ?
12/05/2005, 15h26
badara1

la ligne de mon fichier compte exactement 21 caracteres. J'ai mis volontairement templigne a 80.
12/05/2005, 15h31
Nounoursonne

peux t'on avoir le details de la fonction recherche ()

Voila le code de la fonction recherche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
FUNCTION Recherche (PC$Chaine in varchar2,PN$Pos in PLS_INTEGER,
PC$Sep in varchar2 default ';') RETURN varchar2 IS
LC$Chaine varchar2(32767):=PC$Sep||PC$Chaine;
LI$I PLS_INTEGER;
LI$I2 PLS_INTEGER;
BEGIN
  LI$I:= INSTR(LC$Chaine,PC$Sep,1,PN$Pos);
  message ('extraction',LI$I);
  If LI$I > 0 then
  	 LI$I2:=INSTR(LC$Chaine,PC$Sep,1,PN$Pos+1);
  	 message ('extraction',LI$I2);
  	 If LI$I2 = 0 then
  	 	  LI$I2:=LENGTH(LC$Chaine)+1;
  	 End if;
     Return(SUBSTR(LC$Chaine,LI$I+1,LI$I2-LI$I-1));
     message ('extraction',LC$Chaine);
  else   
     Return Null;
  End if;   	 	
END;

12/05/2005, 15h50
SheikYerbouti

Probablement un problème de conversion, peut-être votre variable mt de type number.

Afficher chaque valeur retournée par votre fonction recherche()
Vous verrez vite d'où vient le problème.

j'ai essaye avec la fonction suivante, mais j'obtiens le meme message :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PROCEDURE testons IS
BEGIN
	declare
	mat varchar2(7);
	mt number;
	jour1 varchar2(9);
	begin
     mat:= recherche('100/A;18500;09-MAI-05',1,';');
     message('premiere valeur',mat);
     mt:=recherche('100/A;18500;09-MAI-05',2,';');
     message('deuxieme valeur',mt);
     jour1:=recherche('100/A;18500;09-MAI-05',3,';');
     message('troisieme valeur',jour1);
  end;    		
END;

Le code est correct

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
Connecté à :
Oracle9i Enterprise Edition Release 9.2.0.5.0 - 64bit Production
With the Partitioning, OLAP and Oracle Data Mining options
JServer Release 9.2.0.5.0 - Production
 
SQL> set serveroutput on
SQL> DECLARE 
  2    mat VARCHAR2(7); 
  3    mt NUMBER; 
  4    jour1 VARCHAR2(9); 
  5  BEGIN 
  6    mat:= Split('100/A;18500;09-MAI-05',1,';'); 
  7    dbms_output.put_line(mat); 
  8    mt:=Split('100/A;18500;09-MAI-05',2,';'); 
  9    dbms_output.put_line(mt); 
 10    jour1:=Split('100/A;18500;09-MAI-05',3,';'); 
 11    dbms_output.put_line(jour1); 
 12  END; 
 13  /
100/A
18500
09-MAI-05
 
Procédure PL/SQL terminée avec succès.
 
SQL>

A un moment ou un autre, vous devez avoir une valeur en dépassement de capacité dans mat ou mt ou jour1.

12/05/2005, 16h48
plaineR

N'est-ce pas la fonction recherche qui pose problème ?
12/05/2005, 20h15
badara1

c'est bien possible.
D'autre part je soupconne aussi la fonction test au niveau de l'instruction Text_IO.Get_File...
12/05/2005, 21h15
SheikYerbouti

Je persiste à croire que le fichier plat (les lignes) contient des valeurs soit trop longues pour la/les variables de réception, soit un nombre réel qui dépasse la capacité de la variable NUMBER()
12/05/2005, 21h22
badara1

voila ci-dessous le contenu reel de mon fichier qui est un fichier juste de teste et qui reflete exactement le contenu du fichier qui sera exploite:

100/A;18500;09-MAI-05
200/B;14000;09-MAI-05
300/C;25000;09-MAI-05
400/S;12000;09-MAI-05
600/E;12000;09-MAI-05
100/A;18500;12-MAI-05
200/B;14000;12-MAI-05
300/C;25000;12-MAI-05
400/S;12000;12-MAI-05
600/E;12000;12-MAI-05

vous voyez bien...
12/05/2005, 21h40
SheikYerbouti

C'est effectivement très bizarre !!!

savez-vous sur quelle ligne vous tombez en erreur ?
12/05/2005, 21h45
SheikYerbouti

Ne serait-ce pas tout simplement le format date qui ne correspond pas à celui attendu...

et si vous essayez :

Code:

date_jour1 := To_date(recherche(tampligne,3,';') ,'DD-MONTH-YY' );

:?:
13/05/2005, 09h09
plaineR

Pour être sûr que cela ne vient de text_io.get_line, déclare ta variable en varchar2(1000) :wink:

Mais je suis convaincu que cela ne vient pas de là, puisque tu as la même erreur dans testons et tu ne fais de text_io.get_line :wink:

Que se passe-t-il si tu déclares toutes tes variables qui réceptionnent le résultat de recherche en varchar2(100) par exemple ?
13/05/2005, 10h56
badara1

Merci beaucoup a tous, ca passe correctement maintenant.
C'est tres gentil...