Windev et Oracle

Bonjour,

je possède une application qui travaille avec MySQL et SQL Server.
Elle a des requetes (générés avec l'editeur de requetes) et tout fonctionne bien.
Maintenand je dois me connecter a Oracle, mais je n'arrive pas.
Je vous mets la partie de mon code pour me conecter. Les donnés sont lues a partir d'un fichier .ini

Fichier .ini

Code:

---

1 2 3 4 5 6

ORACLE NOMBD SJUPITER //Nom Serveur David manager

---

Initialization Projet

Code:

---

1 2 3 4 5 6 7 8

//Initialization Projet Nouvelle_connexion..Utilisateur=sUser Nouvelle_connexion..MotDePasse=sPassword Nouvelle_connexion..Serveur=sNomServer Nouvelle_connexion..Accès=hOLectureEcriture Nouvelle_connexion..BaseDeDonnées=sNomBD Nouvelle_connexion..Provider= "OraOLEDB.Oracle" SQLConnecte(sNomServer,sUser,sPassword,sNomBD)

---

Initialization fenetre. En gras je mets ce qui s'execute.

Code:

---

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

//Initialization fenetre SI HDécritConnexion(Nouvelle_connexion,sUser, sPassword, sNomServer,sNomBD,"OraOLEDB.Oracle", hOLectureEcriture)=Vrai ALORS Info("Description OK") SINON Info("Description NO OK") FIN //Ne s'execute pas !!! SI HOuvreConnexion(Nouvelle_connexion)=Vrai ALORS Info("Ouverture connexion ok 2") FIN SI HChangeConnexion("*",Nouvelle_connexion)=Vrai ALORS Info("Changement connexion ok 3") FIN

---

Code du bouton pour recuperer les infos via requete.

Code:

---

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

//Code du bouton //Exécution de la requête SI HExécuteRequête(REQ_SELECT) ALORS // Parcours du résultat HLitPremier(REQ_SELECT)   SAI_Saisie..Valeur=REQ_SELECT.Desc_P   TABLE_Table1.COL_Colonne1..Titre = "COL1" TABLE_Table1.COL_Colonne2..Titre = "COL2"   FichierVersTableMémoire(TABLE_Table3,REQ_SELECT) SINON Info(HErreurInfo()) FIN

---

je voudrais le faire sans utilizer le OTL4WD, car j'ai toute mon appli deja faite.
Mon problème est sur le:

Code:

---

1 2 3

SI HOuvreConnexion(Nouvelle_connexion)=Vrai ALORS Info("Ouverture connexion ok 2") FIN

---

Merci de votre aide.

David

En général j'utilise deux méthodes :
SQLConnecte ou HouvreConnexion.
Dans les deux cas, je crée d'abord une source de données ODBC sur ma base de données, ensuite, j'initialise les variables

• - nom user
• - mot de passe user
• - chaîne odbc
• - sid de la base de données
• - Provider = MSDASQL.1 ici

Pour SQl Connecte, je fais

Code:

---

id_connexion= SQLConnecte(Orcl_dbODBC,Orcl_dbUser,Orcl_dbPassword,Orcl_dbName,Orcl_dbType,Orcl_dbProvider)

---

je teste la valeur de id_connexion, si elle est différente de 0 alors la connexion a été établie avec succès.

Pour Houvresession, je fais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

SI HDécritConnexion("UneConnexion1",Orcl_dbUser,Orcl_dbPassword,Orcl_dbODBC,Orcl_dbName,Orcl_dbProvider)=Faux ALORS Erreur("Erreur Hyper File : " + HErreurInfo()) SINON // Ouvrir la nouvelle connexion SI HOuvreConnexion("UneConnexion1")=Faux ALORS Erreur("Erreur Hyper File : " + HErreurInfo()) SINON //info("Connexion avec la base de donne tablie....") FIN   FIN

---

je rappelle la déclaration suivante: UneConnexion1 est une connexion

Voià dans les deux cas, chez moi, cà marche.

J'espère t'avoir aidé.

Un grand merci a toi Rphenix,

ça marche tip-top.
Mais c'est possible de le faire sans ODBC mais avec OLEDB ?

Merci.
A+

David