Discussion :

[AndréPe]

Bonjour,
La FAQ ACCESS "Comment lister les références" donne in fine le code suivant pour ajouter une référence :

Code :

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

References.AddFromFile("C:\Program Files\Common Files\System\ado\msado21.tlb ")

A quoi correspondent les termes de la partie en rouge ?
J'ai utilisé avec succès le code qui figure au début de cette FAQ pour lister les références de mon projet.
Merci de votre aide éventuelle.

[Ric500]

Salut!

De la doc ici.

[AndréPe]

ric500 merci.
Je ne suis pas un expert en Access, mais je ne comprends absolument pas à quoi correspondent ces termes en rouge et comment je peux me servir des données du lien que tu indiques pour résoudre mon problème.
Je continue à rechercher
Cordialement.

[Ric500]

Bonjour AndréPe,

Quand tu ajoutes une référence, c'est pour utiliser un code extérieur à ton application (on dit aussi bibliothèque). Ce code peut-être contenu dans un fichier de DLL ou dans une autre base Access...

La partie en rouge représente le chemin d'accès et le fichier contenant ce code externe.

[AndréPe]

Bonjour,
Mes tentatives échouent.
J'ai donc pris la décision de rechercher d'autres chemins et d'interrompre la discussion sur cette question.
Je remercie tous ceux qui y ont participé.
De leurs suggestions il me restera certainement pas mal de choses utiles.
Cordialement.

[AndréPe]

Bonjour,
Après une trop longue pause forcée, je reprends mes recherches.
Le fichier msado21.tbl existe bien dans mon W10.

Code :

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

References.AddFromFile ("C:\Program Files\Common Files\System\ado\msado21.tlb ")

Cette commande donne "Nom de module, de projet ou de bibliothèque d'objets déjà utilisé", ce qui est exact mais concerne une autre base.
Où place-t-on le nom de la nouvelle base à référencer ?

[loufab]

Bonjour,

Non ça ne marche pas comme ça. L'instruction travaille sur l'application active.

Tu dois d'abord ouvrir l'instance de cette application puis utiliser la méthode sur cet objet application.

Cordialement,

[AndréPe]

J'ai suivi (tout au moins je le pense !) tes conseils et, pour tester, ai créé dans l'application active une procédure, commandée par le bouton "cmdRef", qui contient la ligne en question

Code :

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

 References.AddFromFile ("C:\Program Files\Common Files\System\ado\msado21.tlb ")

Le résultat est le même.
A noter que la base active est dans le le même répertoire que la dizaine de bases auxquelles elle est déjà référencée
Je voudrais ajouter (par le code) une autre base B2 qui est aussi dans ce même répertoire.
Où dois-je placer le nom/chemin de B2 ?
Merci de ton aide.
Bonne journée.

[loufab]

Pour charger dans un autre fichier applicatif il faut que Application soit ouvert sur le fichier accdb.

Code :

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

1
2
3
4
5
6
7
8
 
Dim appaccess  As New Access.Application
Set appaccess = CreateObject("Access.Application")
appaccess.Visible = False
appaccess.OpenCurrentDatabase "le chemin et le fichier de ton application", False
appaccess.References.AddFromFile "chemin et fichier de ton composant"
appaccess.Quit acQuitSaveNone
Set appaccess = Nothing

Pourquoi tu charges cette vieille version ?
Tu n'as pas le 2.8 plutôt ?

[AndréPe]

loufab, merci.

Je n'ai pas choisi la version 21, elle était dans les références en place de mon appli.
J'ai aussi les versions 25, 26, 27, 28 et 60.

Dans le code que tu proposes, où apparaît ce N° de version ?

A la ligne 6 "chemin et fichier de ton composant" je dois donc indiquer la base B2 que je souhaite référencer dans l'appli ?
Cordialement.

[Thumb down]

Bonjour,
La FAQ ACCESS "Comment lister les références" donne in fine le code suivant pour ajouter une référence :

Code :

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

References.AddFromFile("C:\Program Files\Common Files\System\ado\msado21.tlb ")

A quoi correspondent les termes de la partie en rouge ?
J'ai utilisé avec succès le code qui figure au début de cette FAQ pour lister les références de mon projet.
Merci de votre aide éventuelle.

bonjour,
si tu nous exposais le problème car j'ais l'impression qu'on ce fourvoie!

pourquoi veux tu ajouter une reference alors q'il te suffis de les supprimer toutes et d'utilser ce code!

Code :

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

1
2
3
4
5
Sub test()
 Dim cn As Object: Set cn = CreateObject("Adodb.connection")
 cn.Open ConnectionString
 cn.Close
End Sub

[AndréPe]

Thumb down, tu as raison, je pense aussi qu'on se fourvoie !
J'aurais dû commencer par cela.

Mon appli est un portail de généalogie, pour ne rien vous cacher, il s'agit de l'association "Cercle généalogique des cheminots".
Dans un même répertoire j'ai
- la base active BA, d'où partent les commandes
- une douzaine de bases B(n) contenant des données spécifiques (tables, états et leur requêtes), le nombre et le contenu de ces B(n) étant susceptible de varier en fonction des informations reçues de nos correspondants.

Les B(n) sont référencées dans BA pour lui permettre de récupérer à la demande l'état correspondant à un individu donné dans une B(n) donnée.

Grâce à la FAQ Access, j'ai pu lister les références existantes et constater qu'elles utilisaient la version 21 de ado, mais j'ai été incapable par le code de créer une référence avec une nouvelle base.
C’est le problème que je tente de résoudre avec l'aide du forum.
Manuellement, pas de difficulté majeure, si ce n'est pouvoir donner un nom spécifique à la référence qui est un groupe de 3 lettres, ce que le code devrait permettre.

Je ne sais si j'ai été assez clair, merci de me le dire.
Cordialement.

[loufab]

La question principale c'est pourquoi par code ?
La secondaire pourquoi une version aussi ancienne d'ADO ? Je sais que la SNCF est la spécialiste du retard mais c'est pour les trains en principe.

"Manuellement, pas de difficulté majeure, si ce n'est pouvoir donner un nom spécifique à la référence qui est un groupe de 3 lettres, ce que le code devrait permettre."

Je ne comprend pas c'est quoi ce groupe de 3 lettres ?

[AndréPe]

#loufab
- Pourquoi par code : parce que il est fastidieux de traiter manuellement une série de 12 bases par exemple pour en tirer un index général qui servira à alimenter un site donnant les noms des nouvelles entrées dans le portail.
- Pourquoi une version aussi ancienne d'ADO :parce que le portail ne date pas d'aujourd'hui, mais je suppose que pour utiliser une version plus récente, il faut refaire les références et je ne veux pas m'y aventurer avant d'être certain de pouvoir les recréer.

- Ce groupe de 3 lettres est simplement le début du nom de chaque B(n). Au lieu par exemple de "Annuaires" on utilise "ANN" c'est moins long dans le code.

[Thumb down]

Si on utilise Ado c'est uniquement pour accéder à une base de données par programme !

Donc pas besoin de référence mais de creatobject et là la seule version d'Ado sera celle de la machine.

Arrêtes de te compliquer la vie!

Personnellement je me les taperai les 12 bases. Question de point de vue !

[AndréPe]

loufab #
Peux-tu me dire où, dans le code que tu proposes, apparaît le N° de version de ado ?
A la ligne 6 "chemin et fichier de ton composant" je dois donc indiquer la base B2 que je souhaite référencer dans l'appli ?
Merci de ton aide.

[Thumb down]

Bonjour,
Personnellement j'ai toujours pas compris pourquoi tu avais besoin d'ado!

[AndréPe]

Thumb down Bonjour,
Je me demande si nous parlons bien de la même chose.
Lorsque, dans le code d’une appli, tu cliques sur"outils/références" tu obtiens une liste de références précédées d'une case à cocher.
A partir de la on peut supprimer une référence ou en ajouter manuellement.

La FAQ Access donne une méthode pour lister ces références, et c'est là que ado apparaît. Je ne sais si j'en ai besoin, mais il est bel et bien présent, voilà ce que je peux te répondre.
Cette FAQ donne ensuite une méthode pour en créer par le code et c'est là que j'aurais besoin d'explications.

Je constate avec regrets que l'unanimité n’existe pas parmi les réponses que je reçois de personnes plus qualifiées que moi dans ce domaine.
Mais je ne désespère pas d’obtenir un jour la solution à mon problème que d'autres se sont certainement déjà posé et ont résolu !

Merci de vos conseils
Cordialement

[Thumb down]

Thumb down Bonjour,
Je me demande si nous parlons bien de la même chose.
Lorsque, dans le code d’une appli, tu cliques sur"outils/références" tu obtiens une liste de références précédées d'une case à cocher.
A partir de la on peut supprimer une référence ou en ajouter manuellement.

Oui nous parlons exactement de la même chose.

Activer les références permet,dans ton ca, d'utiliser un objet Ado par programme uniquement.

Il est possible de ce passer des références en utilisant en lieu et place de new Adodb dans ton programme la méthode CreateObject.

C'est à toi de faire le choix tu persiste à vouloir importer ta librairie ou tu te facilites la vie avec CreateObject ,et il n'y a plus de problème de version, c'est simple ?

[AndréPe]

Thumb down

Code :

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

1
2
3
4
5
Sub test()
 Dim cn As Object: Set cn = CreateObject("Adodb.connection")
 cn.Open ConnectionString
 cn.Close
End Sub

Je voudrais essayer ta méthode, mais d'abord je ne trouve pas dans mon programme la méthode "new Adodb" dont tu parles.

Ensuite, que dois-je mettre pour "ConectionString" si je veux créer les liens des bases B(n) avec ma base active BA ?

A+