FREEDEV : Liste des code gratuits windev, webdev ou windev mobile

FREEDEV

Les codes free de FreeDev

Comment gerer des procedures stockees sur ma base Oracle depuis WinDev ?

Vous trouverez ci-dessous le detail de l utilisation de procedures stockees ainsi qu un exemple.

- Les fonctions sont directement utilisables dans SELECT
- Les procedure doivent etre appelees avec la syntaxe : begin Nomproc(xxx);end;
- Les appels de procedures stockees doivent rester simples. Ils ne doivent pas utiliser de paramètres en sortie sauf dans le cas d une utilisation dans le bloc BEGIN ... END.
- D autre part, il n est pas possible de recuperer un resultat de procedure stockee renvoyant plusieurs types de tables. Table Client, Table Commande des clients, etc..

Exemple 1

--> Cote serveur (oracle)

// C est la description de la procedure....

create or replace procedure INSCRIPTION (pcode_etu etudiant.codet%type, pnom etudiant.nomet%type, pnb_point etudiant.NB_POINTS%type, pcode_uer etudiant.codeuer%type, pcodedip etudiant.codedip%type) as............begin...........end;

--> Cote client (WINDEV)

// Le code W-Langage qui permet d executer cette procedure

req,req2 sont des chaînes

resreq,resreq2 sont des booleens

ret est un entier

Message("Insciption de l etudiant")

req = "Begin INSCRIPTION(" + CODET + ", " + NOMET + " ,"

req = req + RC + NB_POINTS + ", " + CODEUER + " , " + CODEDIP + " ); End;"

resreq=SQLExec(req,"REQ")

SI resreq ALORS

Info("Etudiant inscrit")

SINON

SQLInfoGene("REQ")

Erreur(SQL.MesErreur)

FIN

Exemple de fonction :

FUNCTION MaProc(NumCpt Char) return real IS
id_cust real;
BEGIN
select summ(montant) into id_cist
from operation
where operatio.numcompte=NumCpt
group by numcompte;
END;

Exemple d appel de cette procedure en W-Langage:

select numcompte,soldeini+maproc(numcompte) formcompte

Source : le support pcsoft

RECHERCHE

Code

**************

Développons ensembles