Discussion :

[flora_vig]

Bonjour,

Je souhaite appeler une procédure stockée Oracle avec Windev9.
J'ai essayé :
- HExecuteRequeteSQL(mareq, MaConnexion, HRequeteSansCorrection, "Exec MaProc;") -> Marche pas (HRequeteDefaut marche pas non plus)
- HExecuteRequeteSQL(mareq, MaConnexion, HRequeteDefaut, "Execute MaProc;") -> non plus (HRequeteSansCorrection marche pas non plus)
- HExecuteRequeteSQL(mareq, MaConnexion, HRequeteSansCorrection, "Exec MaProc;end;/") -> non plus (HRequeteDefaut idem)
SQLExec("Exec MaProc;",mareq) -> non plus

Mais je n'ai aucune erreur... Ma procédure stockée doit me modifier un champ, c'est comme ça que je vois qu'elle n'est pas appelée ou qu'elle s'éxécute mal.

Ca fait 3 jours que je cherche sur tous les forums et personne ne sait me répondre.

Pouvez-vous m'aider ?

[Emmanuel Lecoester]

Il existe un fil sur les forums de l'éditeur avec une solution alambiquée mais fonctionnelle (passage par Access comme middleware).

La P/S contient-elle un commit ? pour valider les actions
Quel type d'accès ? natif , oledb, odbc, sqmx ?

[flora_vig]

Merci de m'avoir répondu, tu es le premier...

La procédure stockée ne contient pas de commit mais je le fais dans mon code juste après
J'accède à la base Oracle par ODBC
Peux-tu développer le fait de passer par access pour executer ma procédure stp ?

[Emmanuel Lecoester]

L'ODBC c'est pas top. Ci-dessous le code repris du fil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
41
42
43
44
45
 
Voila l'exemple pour l'utilisation des procédures stockées avec récupération des valeur renvoyées:
 
maconnexion est un objet Automation("ADODB.Connection")
cmd est un objet Automation dynamique
DossierAppel est une chaîne =nom de la base+".GES_APPEL_EXT."
datasource est une chaîne
chaineconnexion est une chaîne
datasource=chaine contenu dans le tnsname.ora
 
//creation de la connexion oracle
//chaine de connection
chaineconnexion = "Provider=MSDAORA ;Data Source="+ datasource + ";USER ID=" + paramOracle.login + ";PASSWORD=" + paramOracle.password + ";"
maconnexion>>ConnectionString = chaineconnexion
//ouverture de la connexion
maconnexion>>open
 
//ouverture de la session
cmd=allouer un objet Automation("ADODB.Command")//(equivalent sous vba à set cmd= new comman)
cmd>>ActiveConnection=maconnexion
cmd>>commandText=DossierAppel+"OPENSESSION"
cmd>>Commandtype=4 //adcmdStoredProc
//mise à jour des parametres
cmd>>Parameters>>Refresh
cmd>>Parameters("USER")>>Value = "Admin"
cmd>>Parameters("PWD")>>Value = "Admin"
cmd>>execute("","",128)//128=adExecuteNoRecords
 
//'====================Creation entete du devis =============================
 
//creation de l'entete du devis
 
cmd>>CommandText = DossierAppel + "CREATIONENTETEDC"
cmd>>CommandType = 4
//met a jour les parametres
cmd>>Parameters>>Refresh
//on renseigne les parametres
cmd>>Parameters("CODETIERS") = code du tiers
cmd>>Parameters("CODEDEPOT") = ""
madate est une Date=DateSys()
cmd>>Parameters("DATEDOCUMENT") = la date
cmd>>Execute("", "", 128)
//on recupere les valeur de retour
codedocutil est une chaîne = cmd>>Parameters("CODEDOCUTIL")>>Value
codeinterne est un entier = cmd>>Parameters("CODEDOCINTERNE")>>Value

A adapter bien sur.

[tjfromparis]

j'ai eu ce probleme il y a 5 ans :
depuis j'utilises l'acces alternatif OTL4WD.

http://www.sqlmanagerx.com/websqlx/h...ex.php?page=16

si tu veux voir comment ca s'utilise la documentation est bien faite et apres une petite periode de prise en main ça deroule tres tres vite à l'utilisation.

Pour te donner une idée télécharge l'exemple http://www.sqlmanagerx.com/SQLManage...lter-natif.rar

gros avantage : l'auteur de cet acces est tres reactif sur le support de son produit.

inconvenient : pas de gestion de l'analyse (mais comme je ne connecte que tres rarement mes applis à des analyses Hf, ca ne pose aucun probleme)

sinon autre solution :
Si ta proc ne renvoi pas de donnees transforme-là en fonction et appelle la fonction dans un select classique

"select maFonction(param_fonction) as vRetour from dual "

vretour sera un code retour renvoyé par ta fonction pour savoir si ton code PL s'est bien exécuté

[Emmanuel Lecoester]

sinon autre solution :
Si ta proc ne renvoi pas de donnees transforme-là en fonction et appelle la fonction dans un select classique

"select maFonction(param_fonction) as vRetour from dual "

vretour sera un code retour renvoyé par ta fonction pour savoir si ton code PL s'est bien exécuté

Ta solution ne fonction QUE si ta fonction est pure donc qu'elle ne fait aucun insert / update.

[flora_vig]

Bonjour
J'ai essayé ça aussi mais ça ne marche toujours pas.

[Emmanuel Lecoester]

Quel est le message d'erreur ???? car c'est une solution qui devrait fonctionner.

[tjfromparis]

Ta solution ne fonction QUE si ta fonction est pure donc qu'elle ne fait aucun insert / update.

pourquoi ?
nous avons des fonctions qui font des controles d'existences, si ca existe => update sinon insert.

[Emmanuel Lecoester]

pourquoi ?
nous avons des fonctions qui font des controles d'existences, si ca existe => update sinon insert.

Tu n'as pas du déclarer ta fonction pure avec un pragma ?

[flora_vig]

J'ai essayé "SQLExec("begin nom_de_la_procedure(param1,param2,...);end ;","nom_requete")"
Il me dit "Problème d'initialisation de la Requete. Mot MaProc (qui est le nom de ma procédure) inattendu"

Alors j'ai essayé "SQLExec("SELECT nom_de_la_procedure(param1) FROM DUAL ","nom_requete")"
il me dit "Problème d'initialisation de la Requete. Mot ( inattendu"

Je me suis aussi rendue compte que mon SQLConnecte ne fonctionnait pas correctement, donc je l'ai refait.

Je vais essayer avec OTL4WD mais c'est prévu pour une version 10 et non 7.5 comme annoncé sur le site, donc je dois copier méthode par méthode... Mais je vais tester quand même

[Emmanuel Lecoester]

- un source WD75 s'ouvre avec toutes versions supérieuers (même la version 12)

- tu as essayé avec hSansCorrection (ou un truc du genre) ?

[Firetox]

Je vais essayer avec OTL4WD mais c'est prévu pour une version 10 et non 7.5 comme annoncé sur le site, donc je dois copier méthode par méthode... Mais je vais tester quand même

non les acces sont fournis en 7.5 et donc de ce fait vous pouvez integrer la classe dans un projet 10 sans probleme

[tjfromparis]

voila le bazar :

CREATE OR REPLACE FUNCTION HR.F_SSO_APP (P_APPLI IN VARCHAR2, P_LOGIN IN VARCHAR2)
RETURN VARCHAR2
IS
W_DATEX VARCHAR2(256);
W_ROWID VARCHAR2(256);
W_CPT NUMBER;
PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
W_DATEX := TO_CHAR(SYSDATE,'DD/MM/YYYY HH24:MI:SS');
SELECT COUNT(*)
INTO W_CPT
FROM ECRYSTA.SSO_APP
WHERE APPLI = P_APPLI
AND LOGIN_APP = P_LOGIN;
IF W_CPT = 1 THEN
SELECT ROWID
INTO W_ROWID
FROM ECRYSTA.SSO_APP
WHERE APPLI = P_APPLI
AND LOGIN_APP = P_LOGIN;
COMMIT;
RETURN W_ROWID;
END IF;
INSERT INTO ECRYSTA.SSO_APP
(IDENT, APPLI, LOGIN_APP)
VALUES (W_DATEX, P_APPLI, P_LOGIN);
SELECT ROWID
INTO W_ROWID
FROM ECRYSTA.SSO_APP
WHERE IDENT = W_DATEX
AND APPLI = P_APPLI
AND LOGIN_APP = P_LOGIN;
UPDATE ECRYSTA.SSO_APP
SET IDENT = W_ROWID
WHERE IDENT = W_DATEX
AND APPLI = P_APPLI
AND LOGIN_APP = P_LOGIN;
COMMIT;
RETURN W_ROWID;
END;
/

elle n'est pas de moi !
ca roule tres bien le tout accedant à une base via un dblink.
Le but de la manoeuvre est de générer un identifiant unique , donc nous prenons le rowid.

[Emmanuel Lecoester]

C'est ptet le "PRAGMA AUTONOMOUS_TRANSACTION;" qui rend ta procédure pure (vu qu'elle est autonome).

Merci pour ce complément même si il ne répond pas à la question de base.

[flora_vig]

non les acces sont fournis en 7.5 et donc de ce fait vous pouvez integrer la classe dans un projet 10 sans probleme

Non ça ne marche pas, je souhaite l'ouvrir avec une version 9 et quand je le lance avec windev 9 :
"Erreur pendant le chargement du projet.
Impossible de terminer l'initialisation :
La version de l'objet est incompatible avec la version courante.
Ce fichier est au format WinDev version 10."

Donc j'ai copié méthode par méthode et j'en suis toujours à l'adapter.

[Jannus]

La compatibilité Windev est (partiellement) descendante.

On peut ouvrir tout source 7.5 et suppérieur avec une versions WD 7.5 et suppérieure. Par exemple WD7.5 avec WD12.
Les sources des versions antérieures à 7.5 doivent être convertis en version 7.5 pour être utilisés avec une version Windev 7.5 ou suppérieure (d'ou le partiellement)
Mais on ne peut ouvrir un source version 10 avec un Windev version 9 par exemple.

[Firetox]

quel lien avez vous utilise pour telecharger que je verifie

mais http://www.sqlmanagerx.com/SQLManage...4WD/OTL4WD.rar est en windev 7.5

je viens de faire le test du telechargement , et ouverture du projet avec windev 7.5 pas de probleme : il est bien en 7.5 donc avec windev 9 il ne doit pas y avoir de probleme

[flora_vig]

J'ai télécharger ce que l'on m'a indiqué et ce n'est pas une version 7.5.
Je sais qu'il n'est pas possible d'ouvrir un fichier v10 avec une v9, c'était justement le problème !!

Je vais essayer avec le lien que tu m'as donné

[flora_vig]

J'ai essayé d'éxécuter une procédure stockée sur l'appli téléchargée dans la classe OTL4WD et avec la méthode mysqlExecPS et il me dit
"Erreur à la ligne 4 du traitement Méthode mySQLExecPS.
Vous avez appelé la fonction AppelDLL32.
La fonction 'OTLExecPS' n'a pas été trouvée dans la DLL OTL4WD"

J'ai réussi à effectuer la connexion, à récupérer les données de ma table, à compter le nombre de lignes, mais pas à éxécuter de procédure et je ne trouve aucun bouton qui le fasse (parmi les 27!!)

Je me demande vraiment s'il est possible d'appeler une procédure stockée en windev ?? et comme pcsoft ne répond toujours pas à mes demandes...