Discussion :

[hpascal]

Bonjour

J'ai vu plusieurs messages concernant OLEDB
Windev comprend un accès natif Access alors pourquoi s'orienter vers OLEDB ?

L'accès natif n'est pas compatible avec les bases au format 2007 ?

[miripesage]

Je crois que j'ai trouvé le problème.

C'est Microsoft.jet.olede.4.0 qui n'est pas installé sur mon poste. J'ai cherché à le téléchargé toute la nuit sans succès.

Bonjour, télechargement de Microsoft.jet.olede.4.0 pour xp sp2 : http://support.microsoft.com/kb/239114

[mail.spam]

Bonjour

J'ai vu plusieurs messages concernant OLEDB
Windev comprend un accès natif Access alors pourquoi s'orienter vers OLEDB ?

L'accès natif n'est pas compatible avec les bases au format 2007 ?

Bonjour Hpascal,
j'ai lu le sujet en diagonale mais je ne pense pas que l'accès natif de Windev 10 reconnaisse Access 2007 (il n'étais pas encore sortie, on a aussi le cas avec W14 et excel 2007).

Sinon pourquoi ne pas faire un test de source de donnée (DSN - Panneaux de configuration - outils d'administration - source de donnée ODBC) ainsi on saura déjà si windows arrive à se connecter sur la base access2007.

[hpascal]

Merci mail.spam

Effectivement, je n'avais vu que c'était Windev 10

[aldama]

Bonjour, télechargement de Microsoft.jet.olede.4.0 pour xp sp2 : http://support.microsoft.com/kb/239114

Oui j'y suis allé mais aucun des pilotes proposés n'était compatible à mon système.


je veux créer une base. Mais avec Access 2007, est-il possible de créer une base en Access2000?
Si oui, comment?

merci

[EDM-TAHITI]

Hello,
Tout à fait possible en utilisant 'enregistrer sous...'. Deux options possibles:

• Soit enregistrer sous access 2002-2003
• Soit enregistrer sous access 2000

Donc, à priori, tu devrais pouvoir réaliser ta connexion ensuite (tests) et nous dire si cela fonctionne.
A te lire

[aldama]

Oiu, j'ai pu créé ma base en Access 2000. Mais je suis toujour pas sortie d'affaire car là encore on me demande Microsoft.jet.OLEDE.4.O

Voici le code utilisé

Code :

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

1
2
3
4
5
6
7
8
HDécritConnexion("MaConnexion", "", "", "G:\GEst_Loyer\Database" ,"Test.mdb", hOledbAccess2000, hOLectureEcriture, "")
 
SI HOuvreConnexion("MaConnexion") 
HChangeConnexion("OLE DB", "MaConnexion")
Info("Connexion OK")
SINON
Erreur("Erreur connexion : " + HErreurInfo())
FIN

Et voici le code d'erreur:

Erreur de connexion: Erreur de l'accès OLE DB
N° erreur: 170124

[EDM-TAHITI]

Hello,
Bon, on n'avance pas (grrrrr^10)
Pourrais-tu aller dans l'analyse de ton projet, puis connexion, puis créer une nouvelle connexion en utilsant les choix proposés:

• Cliquer sur le plus vert (+)
• type = access
• chemin = chemin de ta base
• Nom d'utilisateur (celui que tu as
• Mot de passe (si il existe)

Une fois ceci réalise, tu as un bouton test pour voir si tu te connectes.
a te lire

[aldama]

J
'ai créé une nouvelle connexion à partir de l'analyse avec une connexion par Access2000.
et voici le chemin de la source:

G:\GEst_Loyer\Database\Test.mdb

.
Lorsque je je fais le test, tout marche bien.
J'ai le message "connexion réussie"

[miripesage]

Oiu, j'ai pu créé ma base en Access 2000. Mais je suis toujour pas sortie d'affaire car là encore on me demande Microsoft.jet.OLEDE.4.O

Voici le code utilisé

Code :

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

1
2
3
4
5
6
7
8
HDécritConnexion("MaConnexion", "", "", "G:\GEst_Loyer\Database" ,"Test.mdb", hOledbAccess2000, hOLectureEcriture, "")
 
SI HOuvreConnexion("MaConnexion") 
HChangeConnexion("OLE DB", "MaConnexion")
Info("Connexion OK")
SINON
Erreur("Erreur connexion : " + HErreurInfo())
FIN

Et voici le code d'erreur:

Bonjour, dans ce cas, essaye le code déja proposé pour acces et dis-nous ce que ça donne

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
NumConnexion est un entier
NomSource est une chaîne
NomUtilisateur est une chaîne = ""
PasseUtilisateur est une chaîne = ""
TypeBase est une chaîne

// Connexion à une source de données spécifique via l'accès natif MS ACCESS
NomSource = " G:\GEst_Loyer\Database\Test.mdb"
TypeBase = "Access"
NumConnexion = SQLConnecte(NomSource, NomUtilisateur, PasseUtilisateur, "", TypeBase)
SI NumConnexion <> 0 ALORS
info("La connexion s'est bien passée")
SINON
// La connexion a échoué : affichage d'un message explicatif

SI Position(RC + Majuscule(SQLListeSource("BASE")) + RC, ...
RC + Majuscule(TypeBase) + RC) = 0 ALORS
// Type de source non trouvé
Erreur("L'accès natif" + TypeBase + "n'est pas correctement installé.", ...
"Vérifiez la présence des DLL WinDev correspondantes" + ...
"(WDxxxACC.DLL pour Access)")

[EDM-TAHITI]

Hello,

J
'ai créé une nouvelle connexion à partir de l'analyse avec une connexion par Access2000.
et voici le chemin de la source: .
Lorsque je je fais le test, tout marche bien.
J'ai le message "connexion réussie"

Ahhhhhhhhhhhhhhhhhhh! enfin une bonne nouvelle, suis le code de miripesage et normalement, dans les 30 minutes, c'est

[aldama]

Je crois que je suis heureux. Enfin ca marche. Merci à vous tous qui m'avez aider pour résoudre ce problème. Mille merci à vous tous.


Aimablement, aldama

[EDM-TAHITI]

Hello,
Il aurait été intéressant d'avoir ton code posté pour permettre à d'autre de ne pas refaire les mêmes erreurs.
Juste comme cela, en passant... la contribution des uns permet aux autres d'y arriver... et inversement...
D'avance merci...

[aldama]

Voici le code utilisé

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
NumConnexion est un entier
NomSource est une chaîne
NomUtilisateur est une chaîne = ""
PasseUtilisateur est une chaîne = ""
TypeBase est une chaîne
 
// Connexion à une source de données spécifique via l'accès natif MS ACCESS
NomSource = " G:\GEst_Loyer\Database\Gest_Loyer.mdb"
TypeBase = "Access"
NumConnexion = SQLConnecte(NomSource, NomUtilisateur, PasseUtilisateur, "", TypeBase)
 
 
SI NumConnexion <> 0 ALORS
	Info("La connexion s'est bien passée")
SINON
 La connexion A échoué : affichage d'un Message explicatif
 
SI Position(RC + Majuscule(SQLListeSource("BASE")) + RC, ...
RC + Majuscule(TypeBase) + RC) = 0 ALORS
 Type de source Non trouvé
Erreur("L'accès natif" + TypeBase + "n'est pas correctement installé.", ...
"Vérifiez la présence des DLL WinDev correspondantes" + ...
"(WDxxxACC.DLL pour Access)")
FIN
FIN

[EDM-TAHITI]

Hello
Merci pour tous ceux qui liront ce post

[aldama]

Voici plutôt le code final.

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
NumConnexion est un entier
NomSource est une chaîne
NomUtilisateur est une chaîne = ""
PasseUtilisateur est une chaîne = ""
TypeBase est une chaîne
 
// Connexion à une source de données spécifique via l'accès natif MS ACCESS
NomSource = " G:\GEst_Loyer\Database\Gest_Loyer.mdb"
TypeBase = "Access"
NumConnexion = SQLConnecte(NomSource, NomUtilisateur, PasseUtilisateur, "", TypeBase)
 
 
// Connexion à une source de données spécifique via l'accès natif MS ACCESS
NomSource = " G:\GEst_Loyer\Database\Test.mdb"
TypeBase = "Access"
NumConnexion = SQLConnecte(NomSource, NomUtilisateur, PasseUtilisateur, "", TypeBase)
 
// Connexion à une source de données spécifique via l'accès natif MS ACCESS
SI NumConnexion <> 0 ALORS
	Info("La connexion s'est bien passée")
SINON
	// La connexion a échoué : affichage d'un message explicatif
 
	SI Position(RC + Majuscule(SQLListeSource("BASE")) + RC, ...
	RC + Majuscule(TypeBase) + RC) = 0 ALORS
	// Type de source non trouvé
	Erreur("L'accès natif" + TypeBase + "n'est pas correctement installé.", ...
	"Vérifiez la présence des DLL WinDev correspondantes" + ...
	"(WDxxxACC.DLL pour Access)")
 
	FIN
FIN

Il y a une erreur dans le code précédent. J'avais mal copié pour le coller ici.

Toute mes excuses