Exécution de procédures et functions Oracle 9i

Bonjour,

Je désire exécuter des procédures stockées et des fonctions stockées (que j'aurai écrites) dans ma base Oracle 9i.

C'est cette méthodologie que j'applique dans l'ensemble des projets informatiques auquels je participe. Que ce soit en C++, C#, Delphi, VBA ...

En effet, le fait d'écrire les requêtes en dur dans le code WinDev nécessite, en cas de correctif, une nouvelle compilation, une nouvelle livraison et un nouveau déploiement.

Il doit bien être possible tout de même d'exécuter une procédure stockée à partir de WinDev en passant les paramètres en entrées et en récupérant le résultat dans WinDev.

Voici l'exemple d'une procédures tockée qui prends en entrée un login et mot de passe, et renvoie l'identifiant de l'utilisateur désigné, l'identifiant et le nom de son groupe ainsi que l'identifiant du responsable de son groupe.

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

CREATE OR REPLACE PROCEDURE OGBC_CHECK_CONNECTION ( login in bctbutilisateur.util_login%type, pwd in bctbutilisateur.util_pwd%type, idGroupe out bctbgroupe.grpe_id%type, nomGroupe out bctbgroupe.grpe_nom%type, idRespGroupe out bctbgroupe.rgpe_id%type, idUser out bctbutilisateur.util_id%type ) IS BEGIN   SELECT g.grpe_nom, g.grpe_id, rg.util_id, u.util_id INTO nomGroupe, idGroupe, idRespGroupe, idUser FROM bctbutilisateur u, bctbgroupe g, bctbresponsable_groupe rg WHERE g.grpe_id = u.grpe_id AND g.grpe_id = rg.grpe_id AND u.util_login = login AND u.util_pwd = pwd;   END;

---

Via cette requête (dans l'analyseur de requête) ça marche très bien.

Code:

---

1 2 3 4 5 6 7 8 9

variable temp1 number; variable temp2 varchar2(50) variable temp3 number variable temp4 number call ogbc_check_connection('rp', 'rp', :temp1, :temp2, :temp3, :temp4); print :temp1 print :temp2 print :temp3 print :temp4

---

Par contre, à partir de WinDev je tourne en rond, pas moyen de l'exécuter.

Merci de votre aide.

Tu es passé par la case F1 ?

Il te faut tout d'abord une connexion active sur la base Oracle(j'imagine que tu sais le faire)

Ensuite voila la procédure à suivre ( Tiré de l'aide Windev ) :

Citation:

---

La procédure stockée 'sp_cut(n,str)' tronque la chaîne 'str' aux 'n' premiers caractères et renvoie l'ancienne longueur de chaîne.

[IMG smallblue.gif] n est une variable d'entrée.

str est une variable d'entrée / sortie.





1. Déclaration de la source de données

La source de données permet de manipuler les différentes variables de la procédure à exécuter.



MaProc est une source de données







2. Déclaration des variables utilisées par la procédure

La déclaration des variables manipulées par la procédure se fait à partir de la source de données.



MaProc.n = 3 // Déclare automatiquement un entier initialisé à 3
MaProc.str = "Exemple"



Remarque : Il n'est pas obligatoire de déclarer toutes les variables utilisées. Dans cet exemple, la variable utilisée pour connaître le résultat de la procédure n'est pas déclarée.





3. Exécution de la requête et récupération du résultat

Pour exécuter la requête, il suffit d'utiliser la fonction HExécuteRequêteSQL :



HExécuteRequêteSQL(MaProc,Connexion,hRequêteSansCorrection,...
"begin :Res :=sp_cut(:n,:str);end;")
Info(MaProc.Res)



Après l'exécution de la requête, la variable MaProc.str contient "exe", et la variable MaProc.res contient 7.

---

J'espère que ca t'avancera un peu ;)

Oui, j'ai déjà une connexion active et qui marche.

Quand à cet exemple je l'ai déjà lu mais pas très utile.
sp_cut est une fonction préféfinie d'Oracle, ce n'est pas une procédure ou une fonction stockée.
Et supposons, elle ne renvoie qu'une unique valeur, moi dans ce cas très simple je veux déjà en récupérer 4.
Mais j'aurai besoin d'en récupérer beaucoup plus.

Voici le code WinDev avec lequel j'essaye d'exécuter la procédure stockée que j'ai énoncée plus haut.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

RqtSql.grpe_id = -1 RqtSql.grpe_nom = "" RqtSql.grpe_id = -1 RqtSql.util_id = -1   CodeSql = "BEGIN CALL OGBC_CHECK_CONNECTION('"+ clUser:m_sLogin + "', '" + clUser:m_sPassword + "', :grpe_id, :grpe_nom, :rgpe_id, :util_id); END;"   HExécuteRequêteSQL(RqtSql, CnxOracle, hRequêteSansCorrection, CodeSql)   gnNumGroupe = RqtSql.grpe_id gsGroupe = RqtSql.grpe_nom gnNumResponsable = RqtSql.grpe_id gnNumUtilisateur = RqtSql.util_id

---

Je viens d'exécuter le code suivant

Code:

---

1 2 3 4 5 6

MaProc est une Source de Données MaProc.n = 3 // Déclare automatiquement un entier initialisé à 3 MaProc.str = "Exemple" MaProc.Res = 0 HExécuteRequêteSQL(MaProc,CnxOracle,hRequêteSansCorrection,"begin :Res :=sp_cut(:n,:str);end;") Info(MaProc.Res)

---

et le résultat est MaProc.Res = 0 et MaProc.str = "Exemple".

J'ai également du initialiser la variable Res car autrement il y avait une erreur d'exécution WinDev sur la dernière ligne, comme quoi l'aide WinDev est de très bonne qualité.

Je ne pense pas que cela provienne de la connection puisque dans le même fonction WinDev il y avait anciennement le code suivant qui marchait

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

CodeSql="SELECT * FROM bctbgroupe, bctbutilisateur,bctbresponsable_groupe " CodeSql=CodeSql+ "WHERE bctbgroupe.grpe_id=bctbutilisateur.grpe_id and bctbgroupe.grpe_id=bctbresponsable_groupe.grpe_id " CodeSql=CodeSql+ "and bctbutilisateur.util_login= '" + clUser:m_sLogin + "' and bctbutilisateur.util_pwd='" + clUser:m_sPassword + "'" HExécuteRequêteSQL(RqtSql,CnxOracle,hRequêteSansCorrection,CodeSql) HLitPremier(RqtSql)   SI HEnDehors(RqtSql) ALORS CodeSql="SELECT * FROM bctbutilisateur " CodeSql=CodeSql+ "WHERE bctbutilisateur.util_login= '" + clUser:m_sLogin + "' and bctbutilisateur.util_pwd='" + clUser:m_sPassword + "'" HExécuteRequêteSQL(RqtSql,CnxOracle,hRequêteSansCorrection,CodeSql) HLitPremier(RqtSql) gsGroupe="" gnNumGroupe=0 gnNumResponsable=0 SINON //Utilisateur connecté existe en Bdd : récupération du groupe et de son identifiant gsGroupe=RqtSql.grpe_nom gnNumGroupe=RqtSql.grpe_id gnNumResponsable=RqtSql.rgpe_id FIN gnNumUtilisateur=RqtSql.util_id

---

Autant pour moi concernant sp_cut, j'avais compris que c'était une fonction d'Oracle.
Aurais tu le code SQL de cette fonction ?
Merci.

Code:

---

1 2 3

requete=" begin procedure_stockée(p1,p2.....pn); end;"   sqlexec(requete,"nom_requete")

---

en fait on est très proche de ce que vous aviez fait mais sans le call dans la requête.

A+

Et si c'est une fonction stockée comment on fait pour récupérer la valeur de retour ?