Accès OLEDB à une base Oracle

**rphenix** · 30/08/2006, 11h27

Bonjour!!

Je travaille dans un intranet où je dispose d'une base de données sous oracle 9i. La dite base de données est hébergée par un serveur d'adresse IP 192.168.1.1, j'y ai crée un lien ODBC DSN.
Pouvez vous m'expliquer comment me connecter à ma base de données en ligne de commande (par exemple à l'initialisation de la feuille de démarrage)?
PS: Je ne dispose pas d'accès natif oracle...

**hegros** · 30/08/2006, 12h27

En Windev il faut se tourner vers la fonction 1-SQLConnecte ou 2-HOuvreConnexion pour la connexion à la base de données.

1-Ensuite il faut utiliser SQLExec pour executer des requetes sur la base puis SQlPremier etc pour parcourir les résultats
2-utiliser HExecuteRequete ou HExecuteRequeteSQL pour executer des requetes et HLitPremier,HLitSuivant pour parcourir le resultat

Pour 1 et 2 voir aussi comment se déconnecter (SqlDeconnecte)

**rphenix** · 30/08/2006, 13h41

Voici ce que j'utilise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
MConnexion est une Connexion
 
// Description de la connexion
MConnexion ..Utilisateur = "rphenix"
MConnexion .. MotDePasse = "toto01"
MConnexion ..Serveur = "l192.168.1.1"
MConnexion ..BaseDeDonnées = "DNS"
MConnexion ..Provider = hOledbOracle
MConnexion .. Accès = hOLecture
 
resultat est un booléen
resultat=HOuvreConnexion (MConnexion);

Seulement résultat contient toujours faux

**rphenix** · 30/08/2006, 14h40

Je fais :

Code :

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

1
2
NomSource = "OraBd"  // nom de la base de données
NumConnexion = SQLConnecte("192.168.1.1", "rphenix", "toto01",NomSource)

Pas de succès encore, code erreur 0000..

**hegros** · 30/08/2006, 14h48

ok.

Voici le prototype de la fonction :

<Résultat> = SQLConnecte(<Source>, <Utilisateur>, <Mot de passe> [, <Nom de la DataBase> [, <Type de la base> [, <Provider OLE DB> [, <Informations optionnelles>]]]])

Dans ton cas,en passant par odbc et un provider tu dois :

Type de base doit correspondre à OLEDB
Source doit valoir le nom de la source. ( tu dois avoir le nom d'un fichier genre base.mdb)
Nom de la database doit correspondre à une chaine vide.

ensuite pour le paramétre provider ole db il faut une des valeurs suivante (a tester):

"MSDAORA" pour Oracle (Microsoft)
"OraOLEDB.Oracle" pour Oracle
"hODBC"
"hOLEDBOracle"

Note : Pour utiliser une connexion OLE DB il est nécessaire :
d'installer le MDAC version 2.6 minimum (installation réalisée avec WinDev ou WebDev lors de l'installation de l'application)
d'installer le provider OLE DB correspondant à la base de données manipulée.

**rphenix** · 30/08/2006, 17h39

J'ai Windev 10. Je pensais que le driver OLEDB y était inclus...je sais seulement que le driver natif d'oracle s'aquiert séparément.

Comment puis-je disposer du Provider OLE DB pour oreacle et en attendant que me conseillez vous pour me connecter à ma base?

**Emmanuel Lecoester** · 30/08/2006, 19h25

le driver oledb oracle est livré avec oracle... ou on le trouve chez oracle.

Pour vous connecter à une base oracle il vous faut la couche client oracle et en même temps je pense q'il installe le driver oledb oracle.

D'ou la question : avez vous un client oracle d'installé?

**rphenix** · 31/08/2006, 08h57

oui, j'ai un client oracle installé. j'ai crée un alias de la BD et une source de données ODBC avec oracle in OraHome92.

Comment puis-je utiliser ce qui précède pour une connexion?

**Emmanuel Lecoester** · 31/08/2006, 09h50

créer un fichier maconnexion.udl
l'ouvrir, celà ouvre une fenetre "data link properties"
choisir le provider, la base, le user, le pwd et faire un test de connexion.
Si il est concluant fermer la fenetre
renommer le ficheir en .txt
l'ouvrir
il contient la chaine de connexion à votre base oracle
recopier les paramètres dans ceux de la connexion WinDev. Le tour est joué

**rphenix** · 31/08/2006, 13h25

Excusez moi, j'suis qu'un novice en la matière j'ai beau bouquiné le bord d'auto-formation sans résultat probant.
Le fichier .udl est crée où (dans Windev)? que contient-il?

je vous serai reconnaisant de me fournir un exemple SVP.

Merçi de votre compréhension.

**Emmanuel Lecoester** · 31/08/2006, 16h15

La manipulation est entierement sous WINDOWS. le fichier udl est comme un ficier texte.

**rphenix** · 01/09/2006, 14h17

J'ai suivi ta procédure de création de la chaine de connexion, j'ai otenu un fichier contenant:
[oledb]
; Everything after this line is an OLE DB initstring
Provider=MSDASQL.1;Persist Security Info=False;User ID=rphenix;Data Source=dsn

Ma question comment utilise t-on tout ceci? avec Houvreconnexion? avec SQLConnecte?

Merçi de m'indiquer la procédure à suivre...

**Emmanuel Lecoester** · 01/09/2006, 15h41

Provider=MSDASQL.1;Persist Security Info=False;User ID=rphenix;Data Source=dsn

çà ne ressemble pas trop à une connexion Oracle

Voici un code qui fonctionne avec WinDev7.5 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Description
SI HDécritConnexion("MaConnexion","_USER_","_PASSORD_","_ENTREE_TNSNAMES_ORA_","","OraOLEDB.Oracle")=Faux ALORS
	Erreur("Erreur Hyper File : " + HErreurInfo())
SINON
	Info("Description OK")	
FIN

// Ouvrir la nouvelle connexion
SI HOuvreConnexion("MaConnexion")=Faux ALORS
	Erreur("Erreur Hyper File : " + HErreurInfo())
SINON
	Info("Connexion OK")	
FIN

**rphenix** · 01/09/2006, 16h35

Voici mon code de connexion conformément à ce que vous avez fait

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
MaConnexion est une Connexion
// Description
SI HDécritConnexion("MaConnexion","RPHENIX","TOTO01","DSN","","OraOLEDB.Oracle")=Faux ALORS
	Erreur("Erreur Hyper File : " + HErreurInfo())
SINON
	Info("Description OK")	
FIN
 
// Ouvrir la nouvelle connexion
SI HOuvreConnexion("MaConnexion")=Faux ALORS
	Erreur("Erreur Hyper File : " + HErreurInfo())
SINON
	Info("Connexion OK")
	HChangeConnexion("table1","MaConnexion")	
	SI HLitPremier("table1")=Vrai ALORS
		Info ("Lecture du premier enregistrement fait avec succès.")
	FIN

J'essaie de lire une table avec hchangeconnexion et hlitpremier, j'obtiens une erreur facile. Est-ce une erreur de syntaxe de ma part?
FIN

**Emmanuel Lecoester** · 01/09/2006, 16h50

Si maintenant vous arrivez à vous connecter à la base de données Oracle c'est tout bon

.

Mais je ne peux pas vous aider car pour accéder à une base Oracle je ne passe pas par un accès ODBC mais par l'accès OTL4WD

. Je pense que d'autres pourront prendre la relève

.

**rphenix** · 01/09/2006, 17h51

Peut tu m'expliquer ce qu'est un accès OTL4WD?
Comment se fait elle, quels sont les prerequis?

Cdlt.

**Emmanuel Lecoester** · 01/09/2006, 19h34

OTL4WD est un accès natif Oracle open source. Il est composé d'une dll basée sur les oci et d'une classe WinDev.

A la différence des accès proposés par l'éditeur (natif, OLE-DB, ODBC) il n'est pas intégré dans l'AGL. Donc l'utilisation des fonction hxxx n'est pas possible, pas d'analyse dans votre projet. Tout s'effectue au moyen de requetes.

Celà en fait une utilisation pour développeur avancé. En effet on n'appréhende pas OTL4WD de la même manière que un HDecritConnexion. IL ya un minimum de programmation objet et de connaissance SQL à avoir.

Plus d'info sur le site www.sqlmanagerx.com ou le lien direct http://www.sqlmanagerx.com/websqlx/h...ex.php?page=16.

Avant de vous orienter sur cet accès, je vous conseille de creuser la question avec le bout de code que vous nous avez présenté. D'autres forums et news existent : Windasso et fr.comp.developpement.agl.windev ainsi que les news de l'éditeur. Vous trouverez certainement votre bonheur avec tout celà.

**Emmanuel Lecoester** · 01/09/2006, 20h47

Bon celà m'a travaillé un petit peu car çà doit fonctionner. Voici un code qui fonctionne parfaitement sur un Oracle XE utilisateur scott/tiger. Testé à l'instant avec WD7.5.

J'ai défini une analyse avec un fichier Clients.

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
// Description
SI HDécritConnexion("MaConnexion","scott","tiger","XE","","OraOLEDB.Oracle")=Faux ALORS
	Erreur("Erreur Hyper File : " + HErreurInfo())
SINON
	Info("Description OK")	
FIN

// Ouvrir la nouvelle connexion
SI HOuvreConnexion("MaConnexion")=Faux ALORS
	Erreur("Erreur Hyper File : " + HErreurInfo())
SINON
	Info("Connexion OK")	
FIN

HChangeConnexion(Clients,"MaConnexion")
HCréationSiInexistant(Clients)
Clients.IDClients = 1
Clients.NomClient = "LECOESTER"
Clients.DateCreation = DateSys()
HAjoute(Clients)
Clients.IDClients = 2
Clients.NomClient = "HEGROS"
Clients.DateCreation = DateSys()
HAjoute(Clients)

HLitPremier(Clients,IDClients)

Info(Clients.NomClient)

PS : désolé Hegros de te citer c'est pour le test.

PS2 : j'ai un projet à proposer : un exe qui colorise notre code WinDev pour le mettre ici

car là je me tape la coloration à la main

**rphenix** · 26/09/2006, 21h32

Apparement votre connexion SQLManagerX ne marche qu'avec les version 7.x de Windev.
Moi j'ai Windev 10 est-ce qu'il y a une solution pour moi avec SQLManagerX?