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]

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é