connexion à une base de données Access 2007

**EDM-TAHITI** · 05/07/2011, 02h06

Re hello,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
// Connexion à la BDD
TypeBase = "hOledbAccess2007"
NomSource = "G:\GEst_Loyer\Database\Gest_loyer.accdb"
NumConnexion = SQLConnecte(NomSource, NomUtilisateur, PasseUtilisateur,"",hOledbAccess2007)
// Vérification de la connexion
SI NumConnexion <> 0 ALORS
Info("Connexion OK")
SINON
// pour avoir toute l'erreur...
 Erreur("pas de connexion à la source de données ", herreurinfo() )
FIN

Désolé, j'aurais du dans le post précédent, mes excuses...

**PaulNero** · 05/07/2011, 08h52

Aldama,
il faut être très reactif et "eveillé" dans la vie (si je peux me permettre).Je t'avais bien parlé des provider ole db, voilà qu'un autre membre t'en fait la remarque.

bon courage

**aldama** · 05/07/2011, 11h10

Merci PaulNero, je t'assure que je fais ce que je peux. C'est tout nouveau pour moi et je fais des recherches dans ce sens.

Concernant la proposition de EDM-TAHITI, je l'ai testé mais il y a une erreur au niveau de:

Code :

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

NumConnexion = SQLConnecte(NomSource, NomUtilisateur, PasseUtilisateur,"",hOledbAccess2007)

je recois le message d'erreur suivant:

Identificateur 'hOledbAccess2007'inconnu ou inaccessible ici....

.

Je peux donc pas tester le code.

**PaulNero** · 05/07/2011, 11h26

essaie de remplacler NomUtilisateur, PasseUtilisateur par: "",""

bon courage

**aldama** · 05/07/2011, 13h27

toujours rien.

je crois que le problème vient de

hOledbAccess2007

**miripesage** · 05/07/2011, 13h34

Salut, fais alors un essai comme ceci (vous utilisez WD10) pour voir:

Code :

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

1
2
3
4
5
6
7
8
9
 
HDécritConnexion("MaConnexion", "", "", "G:\GEst_Loyer\Database" , hOledbAccess2007, hOLectureEcriture, "")
 
SI HOuvreConnexion("MaConnexion") 
HChangeConnexion("*", "MaConnexion")
 info("Connexion OK")
Sinon
       Erreur("Erreur connexion : " + HErreurInfo())
FIN

**aldama** · 05/07/2011, 14h11

Windev reconnais hOledbAccess2000 mais pas hOledbAccess2007

Lorsque j'utilise hOledbAccess2007 dans le code que tu me propose, j'ai une erreur de syntaxe

mais lorsque je remplace hOledbAccess2007 dans le code que tu me propose tel q suit,

Code :

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

HDécritConnexion("MaConnexion", "", "", "G:\GEst_Loyer\Database" ,"Gest_Loyer.accdb", hOledbAccess2000, hOLectureEcriture, "")

j'ai pas d'erreur au niveau de la syntaxe, mais j'ai une erreur à l'exécution:

erreur de l'acces OLEDB. Numero d'erreur:17012

.

Je me demande s'il n'y a pas une mise à jour de mon Windev 10 pr reconnaître
hOledbAccess2007?

**miripesage** · 05/07/2011, 14h48

Alors, c'est que WD10 ne reconnait pas Access2007, essaye ce qui suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
NumConnexion est un entier
NomSource est une chaîne
// Connexion à une source de données spécifique via ODBC MS ACCESS
NomSource = "G:\GEst_Loyer\Database"
NumConnexion = SQLConnecte(NomSource, "", "", "", "ODBC")
SI NumConnexion<>0 ALORS
info("connection Ok")
SINON
     Erreur("La connexion echouée" +   HErreurInfo())
FIN

**aldama** · 05/07/2011, 15h15

Un fois encore merci.

Sur le plan syntaxique, tout va bien.

Par contre à l'exécution, la connexion a échoué. Seulement, aucun numero d'erreur n'apparait.

**PaulNero** · 05/07/2011, 15h40

bonjour,
j'ai lu ceci dans l'aide:

L'accès natif aux bases de type ACCESS est fourni dans un objectif d'interopérabilité. Il est conseillé d'utiliser le moteur de base de données intégré à WinDev/WebDev, HyperFileSQL.
Pour pouvoir utiliser l'Accès Natif Access, il est nécessaire d'installer :

le MDAC
le provider Microsoft Jet (installé avec Access ou Internet Explorer 6.0 par exemple).

suivez ces recommendations et retestez le code de notre ami MERIPESAGE

cordialement

**miripesage** · 05/07/2011, 17h00

Aldama, reprenons dès le début :

-La source est bien : " G:\GEst_Loyer\Database.mdb"
Si oui, le code précédent devrait fonctionner(ou vérifier bien le code)
-Sinon essayer le code suivant :

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
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.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)")

**aldama** · 05/07/2011, 20h07

La source est G:\GEst_Loyer\Database\Gest_Loyer.accdb

Concernant le MDAC, où puis-je le trouver pr l'installer?

**miripesage** · 05/07/2011, 20h32

Envoyé par aldama

La source est G:\GEst_Loyer\Database\Gest_Loyer.accdb

Concernant le MDAC, où puis-je le trouver pr l'installer?

Si vous êtes sur xp pro
Panneau de config-->Outil d'administration-->Sources de données(ODBC)-->et dans la fenêtre qui apparait faire le choix pour configuration de la source

**EDM-TAHITI** · 05/07/2011, 21h14

Hello,
Il me semble qu'un peu de recherche de ta part serait le bienvenue. il existe plusieurs sites pour télécharger le MDAC (merci 'gogole' pour ta recherche - télécharger mdac).

Bon téléchargement

**aldama** · 06/07/2011, 00h53

J'ai installer MDAC et j'ai testé les différent codes. Il se trouve que je n'arrive pas toujours à me connecter à ma base de données. De plus, hOledbAccess2007 n'est toujours pas reconnu.

Enfin, le code

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.Gest_Loyer.accdb"
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)")

ne renvoie aucun message.

A cette allure, je crois que je vais finir par changer de base de données...

**miripesage** · 06/07/2011, 01h03

Bonsoir, il est tard, mais demain matin je vais faire un test sur acces2007 avec ces codes et tu auras le résultat. Ok. Bonne soirée.

**aldama** · 06/07/2011, 02h08

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.

**EDM-TAHITI** · 06/07/2011, 02h32

Hello,
Heu, en quel OS es-tu??? Cause que là, c'est hyper méga étonnant vu qu'il fait partie au moins du SP2 de XP.
Je ne comprends pas, ou alors, tu as un XP d'origine sans Mise à jour!!!!!
Là, effectivement.... Cela relève désormais des hautes instances du Dieu Informatique...

**PaulNero** · 06/07/2011, 08h34

Envoyé par aldama

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.

Je l'avais pourtant spécifié dans mon précédent message.

bon courage