Procédure d'insertion qui ne s'exécute pas très bien [Résolu]

Bonjour,

Voici une procédure stockée qui consiste clairement à insérer un enregistrement dans la table TableCategories !!
Je lance en fait cette procédure à partir de mon programme (en VB) sous ADO avec l'instruction Execute().
Et ben, la fonction vb s'exécute sans exception/erreur mais rien est fait du côté de la base, pas de nouvel enregistrement dans la table TableCategories alors que je pense que cette procédure est OK non ?

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
CREATE  OR REPLACE procedure NewFieldInCateg
   (v_LastUser varchar2 ,
  v_LastWorkstation varchar2 ,
  v_DS int,
  v_IDCategory varchar2,
  v_Name varchar2 ,
  v_Class varchar2 ,
  v_Type int,
  v_ID varchar2,
  v_IDClass out varchar2,
  v_Result out int )
 
AS
 
 
BEGIN
  v_Result := -1;
 
  SELECT ID INTO v_IDClass FROM TableClasses WHERE Name = v_Class;
 
  INSERT INTO TableCategories (ID, system, Name, IDParentCategory, IDClass, Type, DocumentStatus, DateCreation, DateModification, LastUser, LastWorkstation, CreatorUser, CREATORWORKSTATION)
      VALUES (v_ID, 1, v_Name, v_IDCategory, v_IDClass, v_Type,v_DS,localtimestamp,localtimestamp, v_LastUser, v_LastWorkstation, v_LastUser, v_LastWorkstation);
 
      UPDATE TableCategories SET "SYSTEM" = 0
	  WHERE id = v_ID;
 
 
 IF (v_ID IS NOT NULL) then
		COMMIT ;
		RETURN;
 END IF;
 
ROLLBACK ;
 
EXCEPTION
   when others then
     dbms_output.put_line(SQLCODE);
 
 
end NewFieldInCateg;

Comment tester cette procédure sous SQL+ par exemple ou d'une autre manière que dans mon application vb

[pifor]

Vous pouvez tester un appel de procédure avec les commandes SQL*Plus suivantes:

Code :

1
2
3
4
5
6
7
8
9
10
11
 
variable n number;
variable s varchar2(10);
 
 
begin
:n := 1;
:s := 'test';
end;
/
exec maprocedure(:n, s:);

Attention dans cette partie de code en cas de levée d'exception, vous perdez l'exception:

Code :

1
2
3
EXCEPTION
   when others then
     dbms_output.put_line(SQLCODE);

Il vaut mieux écrire:

Code :

1
2
3
4
EXCEPTION
   when others then
     dbms_output.put_line(SQLCODE);
     raise;

Et pour avoir l'affichage de DBMS_OUTPUT dans SQL*Plus, il faut ajouter:

Code :

SET serveroutput ON

Voir aussi le tutoriel Deplphi Oracle pour la partie gestion des exceptions:
http://laurent-dardenne.developpez.c...s-applicative/

J'ai fait ce que tu as indiqué : raise;et SET serveroutput ON
et alors j'ai exécuté comme suit sous sql plus le test

Code :

1
2
3
4
5
6
7
8
9
10
11
12
SET serveroutput ON
 
variable n number;
variable s varchar2(10);
 
 
begin
:n := 1;
:s := 'test';
end;
/
exec newfieldincateg('lucaspan\','pc04\',1,0,'CategPN04','','','{B4352A87-4B48-4B05-9250-6F0C03CAFFA1}',:s, :n);

Voici les erreurs, est-ce normal et pourquoi après "Procédure PL/SQL terminée avec succès.", il y a encore une erreur:

Procédure PL/SQL terminée avec succès.

100
BEGIN newfieldincateg('lucaspan\','pc04\',1,0,'CategPN04','','','{B4352A87-4B48-4B05-9250-6F0C03CAFFA1}',:s, :n); END;

*
ERREUR à la ligne 1 :
ORA-01403: Aucune donnée trouvée
ORA-06512: à "MYSCHEMA.NEWFIELDINCATEG", ligne 38
ORA-06512: à ligne 1

[orafrance]

Code :

1
2
3
4
5
begin
:n := 1;
:s := 'test';
end;
/

se termine avec succés (1° message) mais tu as un SELECT qui ne retourne aucun résultat dans ta procédure.

L'erreur c'est en fait

Code :

1
2
3
4
5
Procédure PL/SQL terminée avec succès.
 
100
 
Procédure PL/SQL terminée avec succès.

Comment interpréter ce "100" qui devient "-6503" quand on change certains paramètres de la procédure à exécuter.
Même si le select ne retourne rien, ça retourne au moins une chaine vide qui n'affecte en rien l'INSERT alors pourquoi y a pas d'insertion ?

Curiosité :Existe-t-il un outil Oracle pour déboguer un script pl/sql pas à pas comme dans les EDI puissants (Visual Basic, Visual C++, etc.) c-à-d un SQL PLUS plus évolué

[orafrance]

Envoyé par Lucas Panny

Même si le select ne retourne rien, ça retourne au moins une chaine vide qui n'affecte en rien l'INSERT alors pourquoi y a pas d'insertion ?

non, si le SELECT ne retourne rien tu pars en NO_DATA_FOUND qui là n'est pas géré donc dans le OTHERS.

D'ailleurs, on se demande bien pourquoi tu fait pas tout simplement un INSERT... SELECT... ton UPDATE n'est sensé mettre à jour que la nouvelle ligne insérée ?

[mnitu]

Envoyé par Lucas Panny

...
Curiosité :Existe-t-il un outil Oracle pour déboguer un script pl/sql pas à pas comme dans les EDI puissants (Visual Basic, Visual C++, etc.) c-à-d un SQL PLUS plus évolué

SQL Developer fourni gratuitement par Oracle.

Envoyé par orafrance

non, si le SELECT ne retourne rien tu pars en NO_DATA_FOUND qui là n'est pas géré donc dans le OTHERS.

Et oui, c'est ça l'erreur "Aucune donnée trouvée". Est-ce une spécificité d'Oracle car en Access, c'est une chaine vide ? En fait, une chaîne vide c'est '' ou ' ' (il y a un espace) ??
Pour détourner ce retour de NO_DATA_FOUND

Code :

1
2
3
4
5
6
7
IF  v_Class =' ' then
         v_IDClass := NULL;
    else
 
    SELECT ID INTO v_IDClass FROM TableClasses WHERE Name = v_Class; 
 
    end IF ;

______________________________

Envoyé par mnitu

SQL Developer fourni gratuitement par Oracle.

Merci !

Je réponds à moi même : pour un varchar, une chaine vide '' est égale à NULL aussi donc au lieu de IF v_Class =' ' then, je fais IF v_Class IS NULL then !!
En fait, le principe de cette procédure c'est que v_Class soit vide ou choisi parmi une liste de champs existants d'où ce test