Discussion :

[DamKre]

Bonjour,

Je cherche à faire une requête INNER JOIN entre deux tables issues de deux bases différentes, dont la base en cours, en utilisant DAO.

Schématiquement, le code se résume ainsi :

Code :

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

1
2
3
4
5
Dim AutreDB as DAO.Database
Set AutreDB=...
 
Dim eRst As DAO.Recordset
Set eRst = AutreDB.OpenRecordset("SELECT * FROM TabledeAutreDB INNER JOIN Tabledbencours ON TabledeAutreDB.ChampTableAutreDB = Tabledbencours.ChampTabledbencours  WHERE Condition...")

Je n'arrive pas à faire le lien entre l'autre base et la base actuelle.

Est-ce finalement faisable ?
Et si oui, comment ?

Merci de votre aide !

[hyperion13]

Salut
Un début de piste ici.

[DamKre]

Merci pour la piste.

En chipotant un peu, il y a souvent une erreur dans la clause FROM, ou dans le INNER.

Par contre, ceci semble fonctionner :

Code :

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

SELECT TabledeAutreDB.* FROM TabledeAutreDB  INNER JOIN [" & CurrentDb.Name & "].TableDbEnCours ON TabledeAutreDB.ChampTableAutreDB = TableDbEnCours.ChampTableDbEnCours;"

Je teste encore tout cela.

[hyperion13]

Et sinon pour faire plus simple, il suffirait de lier la tbl de votre 2nd bdd à la bdd ouverte (Données externes - Importer/Lier)

[DamKre]

Solution très simple, évidemment, mais vu que tout ce code fonctionne avec une boucle sur plusieurs autre DB, cela fait plein de liaisons, d'où la demande ;-)

Merci pour les pistes !

Belle journée !