Message erruers et developer6i

Version imprimable

Salut, et merci pour votre collaboration Mr,
je ecris cette procedure pour remplir les listes (combo box sour developer 6i) et je utilise une procedure stockée au niveau de la base de donnée oracle 9i pour l'affichage des erruers de l'application mais en utilisant cette procedure (creer_list),la procedure d'affichage des messages d'erreurs n'est plus fonctionnelle, comment de peut proceder pour resoudre cette problème et merci
voici le coprs de la procedure creer_list:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 PROCEDURE creer_list( LIST_ITEM IN VARCHAR2, COL_1 IN VARCHAR2, COL_2 IN VARCHAR2, TAB_NAME IN VARCHAR2) IS rg_id recordgroup; err number; BEGIN rg_id := Find_Group( 'GR_NAME' ); IF NOT Id_Null(rg_id) THEN Delete_Group( rg_id ); END IF; rg_id := create_group_from_query('GR_NAME', 'select '||COL_1||',to_char('||COL_2||') from '||TAB_NAME); err := populate_group(rg_id); populate_list(LIST_ITEM,rg_id); END;
Merci

20/01/2006, 11h04
bouyao

:tagcode:
20/01/2006, 11h24
SheikYerbouti

Citation:

la procedure d'affichage des messages d'erreurs n'est plus fonctionnelle

Que voulez-vous dire par là ? Quel est le problème, le message d'erreur ?
20/01/2006, 11h29
moezsokrati

RE: mesages erreurs

La procedure affiche :
"FRM-40735: When-mouse-clicked trigger raised unhandled exception ora-2000"
au lieu d'un message personnalisé "ora-2000: la date doit être inférieur au date du jour"
Merci
20/01/2006, 11h44
SheikYerbouti

Mais, il n'y a aucune section Exception dans votre bloc PL/SQL. Comment comptiez-vous gérer l'exception ???

Voici un exemple d'erreur généré dans une procédure stockeé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  ---------------------------------
  -- Lock trigger transactionnel --
  ---------------------------------
  PROCEDURE emp_lock2( t IN emptab ) IS
    v_rownum NUMBER;
    verrou exception;
    pragma exception_init ( verrou, -54 ) ;
  BEGIN
	FOR i IN t.first..t.last LOOP
	  SELECT empno
	  INTO   v_rownum
	  FROM   emp
	  WHERE  empno = t(i).empno
	  FOR UPDATE OF ename NOWAIT;
	END LOOP ;
  EXCEPTION
    When verrou then
	  Raise_Application_Error( -20100, '^Verrouillage de l''enregistrement impossible^' ) ;
  END emp_lock2;

et la gestion de l'erreur dans le module Forms dans un trigger ON-ERROR:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Declare
	LC$Msg Varchar2(2000) ;
Begin	
 
If DBMS_ERROR_CODE = -20100 Then
	-- Récupération du message inséré dans Raise_Application_Error --
      LC$Msg := substr(DBMS_ERROR_TEXT, 
            instr(DBMS_ERROR_TEXT,'^')+ 1 ,
            ( instr(DBMS_ERROR_TEXT,'^',-1) - instr(DBMS_ERROR_TEXT,'^') - 1) ) ;
 
	message(LC$Msg, acknowledge ) ;
Else
	message('erreur : ' || DBMS_ERROR_TEXT, acknowledge ) ;
End if ;
 
End ;

Bien sûr, vous pouvez trapper l'erreur directement dans votre block pl/sql sans passer par le trigger ON-ERROR

20/01/2006, 11h53
moezsokrati

La procedure

cette procedure qui affiche les messages d'erreurs applications
create or replace procedure IA_Erreur_Application
(v_nls_lang in ia_msg_erreur.nls_lang%TYPE,
v_code_erreur in ia_msg_erreur.code_erreur%TYPE DEFAULT -20000,
v_type_erreur ia_msg_erreur.type_erreur%TYPE DEFAULT NULL,
v_Text_Erreur ia_msg_erreur.texte_erreur%TYPE DEFAULT NULL) is

v_message_erreur ia_msg_erreur.texte_erreur%type;
-- retourne un message d'erreur à partir de la table des messages
begin
-- si le texte du message est indiqué alors on l'affiche tel quel
IF v_Text_Erreur IS NOT NULL THEN
raise_application_error(v_code_erreur, v_Text_Erreur);
-- sinon on cherche le texte de l'erreur dans la table msg_erreur
else
select m.texte_erreur
into v_message_erreur
from ia_msg_erreur m
where m.nls_lang = v_nls_lang
and m.code_erreur = -20000--v_code_erreur
and m.type_erreur = v_type_erreur;

raise_application_error(-20000,/*v_code_erreur,*/ v_message_erreur);
end if;

-- si le message n'est pas dans la table msg_erreur
exception when no_data_found THEN
if v_nls_lang = 'ARABIC' then
raise_application_error(v_code_erreur,'äÕ ÇáÎØÃ ÛíÑ ãæÌæÏ');
else
raise_application_error(v_code_erreur, 'Message d''erreur non trouvé');
end if;
end IA_Erreur_Application;
et merci
20/01/2006, 11h58
SheikYerbouti

Du calme, ne cédez pas à la panique !

prenez le temps de choisir un titre correct et d'utiliser les balises pour encadrer le code.

c'est très facile, sélectionnez la partie du texte qui correspond au code et cliquez sur le bouton Code

Message

cette procedure qui affiche les messages d'erreurs applications

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
create or replace procedure IA_Erreur_Application 
(v_nls_lang in ia_msg_erreur.nls_lang%TYPE, 
v_code_erreur in ia_msg_erreur.code_erreur%TYPE DEFAULT -20000, 
v_type_erreur ia_msg_erreur.type_erreur%TYPE DEFAULT NULL, 
v_Text_Erreur ia_msg_erreur.texte_erreur%TYPE DEFAULT NULL) is 
 
v_message_erreur ia_msg_erreur.texte_erreur%type; 
-- retourne un message d'erreur à partir de la table des messages 
begin 
-- si le texte du message est indiqué alors on l'affiche tel quel 
IF v_Text_Erreur IS NOT NULL THEN 
raise_application_error(v_code_erreur, v_Text_Erreur); 
-- sinon on cherche le texte de l'erreur dans la table msg_erreur 
else 
select m.texte_erreur 
into v_message_erreur 
from ia_msg_erreur m 
where m.nls_lang = v_nls_lang 
and m.code_erreur = -20000--v_code_erreur 
and m.type_erreur = v_type_erreur; 
 
raise_application_error(-20000,/*v_code_erreur,*/ v_message_erreur); 
end if; 
 
-- si le message n'est pas dans la table msg_erreur 
exception when no_data_found THEN 
if v_nls_lang = 'ARABIC' then 
raise_application_error(v_code_erreur,'äÕ ÇáÎØÃ ÛíÑ ãæÌæÏ'); 
else 
raise_application_error(v_code_erreur, 'Message d''erreur non trouvé'); 
end if; 
end IA_Erreur_Application;

et merci

20/01/2006, 12h16
bouyao

http://warin.developpez.com/images/balise.gif
20/01/2006, 12h32
orafrance

Merci d'utiliser convenablement le forum et d'éviter de créer des sujets inutilement :)
20/01/2006, 17h38
moezsokrati

Problème de capture des erreurs au niveau forms

En utilisant les deux procédures déjà presentées les erreurs affichés sont

Code:

ora-24334: no descriptor for this position

et

Code:

ora-01403: no data found

ces deux messages sont affichée à l'aide de

Code:

message(DBMS_ERROR_TEXT)

et merci pour votre collaboration
20/01/2006, 18h19
lafouine

Je veux pas troller, mais je trouve l'idée du gif animé excellente ! :)
Bravo bouyao :)