Procédure d'insertion qui ne s'exécute pas très bien

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

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:

Citation:

---

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

---

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é

Citation:

---

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 ?

Citation:

---

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.

Citation:

---

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 ;

---

______________________________

Citation:

---

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