Discussion :

[Dramon]

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 :

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

1
2
3
4
5
6
 
ORACLE
NOMBD
SJUPITER //Nom Serveur
David
manager

Initialization Projet

Code :

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

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 :

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

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 :

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

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 :

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

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

Merci de votre aide.

David

[rphenix]

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 :

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

 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 :

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

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é.

[Dramon]

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