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 ?

[Thumb down]

Si tu fournis le code,je pourrais t'expliquer comment le modifier.

[AndréPe]

Thumb down
J'ai eu le temps de regarder les forums et les tutoriels et ai réalisé que la méthode que tu proposes devrait permettre plus de souplesse dans cette question des liens, références ou connections, et je vais approfondir mes connaissances à ce sujet.

Je voudrais bien te fournir mon code, mais la seule ligne qui doit contenir du code personnel est la ligne 3 et je ne sais pas ce qu'il convient d'y mettre pour pouvoir afficher l'état "Fiche" de B1, dont la requête source est "req1" à partir de la base active BA située dans le même répertoire de C:\.
Que te faut-il de plus ?
C'est là que j'ai besoin de ton aide.
Bon dimanche.

[AndréPe]

En attendant ta réponse, j'ai fait plusieurs essais, mais à chaque fois erreur ligne ""cn.open connectingstring".
Je ne sais plus quoi faire, bien que ta méthode me semble effectivement plus souple que par les références.
La lecture des tutoriels ne m'a pas apporté de solution valable.

Toute aide éventuelle serait la bienvenue.

[AndréPe]

Thumb down
Je suis inquiet de ne pas recevoir de réponse de ta part et espère qu'il ne t'est rien arrivé de grave.
Et suis aussi étonné que personne d'autre que toi n'ait encore donné son avis sur ma question.

Serait-ce trop complexe ?

Cordialement

[Thumb down]

Pour ce qui concerne le provider je te suggère de faire une recherche du MDAC sur internet et de l'installer sur ta machine.
Le MDAC contient toutes les informations de connexion aux base de données.

[Thumb down]

Bonjour,
Application.CurrentProject.Path donne le répertoire de la base de données active.

Si la base de données,don j'ignore le nom,ce trouve dans le même répertoire il te suffit de concaténer !

Code :

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

base=Application.CurrentProject.Path &"\PortaiACO3_V70_04.mdb"

J'essaie de te répondre en fonction des informations que tu me donnes !

[AndréPe]

Merci de ta rapide réaction.
Je reprends mes questions en essayant de bien les expliciter :

1) Si j'ai bien compris ton code, je pense qu'il est fait pour créer un lien entre ce qu'il appelle l'"application" et la "base" ?
L'application est "C:\CGCPortail", répertoire qui contient la base active 'PortailACO3_V70_04.mdb" et, entre autres, la base avec laquelle je recherche à créer une connection, "MED_ACO3.mdb".

2) Le provider utilisé doit-il être effectivement présent ? (ce n'est pas le cas sur mon PC)
La réponse est probablement 'oui', mais où le trouver s'il n'est pas encore présent ?

Est-ce clair ?

[Thumb down]

Bonjour,
Oui c'est correcte.
Oui je t'ai insisté à changer ton fusil d'épaule, mais je me rends compte qu'il est difficile de ce comprendre !

C'est pour cela que je suis revenu en arrière !

Utiliser une macro pour référencer une librairie obsolète, alors que tu utilises Access ne rime à rien car Access dispose de cette librairie dans une version actuelle !
Notes que nous en sommes à 62 postes et nous en sommes toujours au même point !

De plus ce genre de travail ne ce fait qu'une seule fois pas besoin d'exécuter une macro plusieurs fois par jour surtout qu'il est nécessaire de tester l'existence d'une ou plusieurs instances de cette librairie.

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

[Thumb down]

en fonction du type de base de données!

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
'MySQL
    ConectionString= " DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & Server & ";UID=" & User & ";DATABASE=" & Base & ";Password=" & PassWord
    'ODBC
        ConectionString= "Provider=MSDASQL.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
    'ORACLE
        ConectionString= "Provider=OraOLEDB.Oracle.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
    'SQLSERVER2005
        ConectionString= "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
    'SQLServer2008R2
        ConectionString= "Provider=SQLNCLI;Server=" & Server & ";Database=" & Base & ";UID=" & User & ";PWD=" & PassWord & ";"
    'SQLite
        ConectionString= "Driver={SQLite ODBC (UTF-8) Driver};Database=" & Fichier & ";StepAPI=;Timeout="
    'SQLite3
        ConectionString= "Driver={SQLite3 ODBC Driver};Database=" & Fichier & ";LongNames=0;Timeout=4000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
    'CSV
        ConectionString= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server & ";Extended Properties=""Text;HDR=" & Array("No", "YES")(Abs(True/false)) & ";FMT=Delimited;"""

[AndréPe]

Thumb down
Et là, c'est pour moi un grand saut dans l'inconnu (ou plutôt dans le pas encore connu !)
D'abord, quel type de bases ?
Je pense qu'il s'agit d'ODBC, mais je n'ai pas trouvé pour provider de fichier avec un nom du genre MSDASQL.1, mais MSDASQL.dll sans N°
Pour l'user ID je suppose qu'il s'agit de la base active et pour le dataSource de la base utilisée B2 par ex.
Avec ces données : cn.connectingString -> erreur 446 "Cet objet ne gère pas les arguments nommés".

Où est l'erreur ? Me serais-je trompé de type de base ?

J'ai noté qu'ensuite, insQuery utilise des variables qui n'ont pas encore été définis mais le seront par probablement cn.connectingstring.
J'ai encore beaucoup à apprendre dans ce domaine des connections.
Cordialement.

[loufab]

Bonjour,

le chemin de l"application est celui donné par le système, soit le répertoire, donc pas trace de la base active.

Pourquoi tu veux utiliser le nom de la base active dans ce code ?

J'ai donc essayé de remplacer la lien 1 (debug) par "Application.CurrentProject.Path=C:\CGCPortail\Portail_AC03_V70_04.mdb", mais erreur "impossible d'affecter une propri"t" en lecture seule".
Si je supprime "Parh" : erreur "Propriété non gérée par cet objet".

Path est une propriété en lecture seule. Avant d'essayer d'affecter une valeur à une propriété il faut d'abord s'assurer qu'elle le permet. Il te faut consulter l'aide pour le savoir.

Je ne sais plus quoi faire pour introduire le nom de la base active qui ets le plus important.

On en revient à la question précédente, pourquoi tu en as besoin dans ce code ? Et pourquoi tu penses que c'est le plus important ?

Cordialement,

[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 ?