Discussion :

[Oliv'83]

Bonjour à tous,

Je suis capable de récupérer le chemin de la frontale de ma base :

Code :

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

Me.strNomBase = CurrentDb.Name

Mais comment faire pour récupérer celui de la dorsale?

Merci d'avance de votre aide

Oliv'

[Jean-Philippe André]

salut,
une piste :
en recuperant le path de la chaine de connection des tables liees ?

[Oliv'83]

Salut jpcheck,

Merci de ta piste mais elle dépasse très largement mes faibles compétences...

Si la dorsale et la frontale ne sont pas dans le même dossier je suis à l'Ouest (même si Grimaud est plutôt au Sud... ).

Et comme ma dorsale sert à plusieurs frontale cela peut être le cas.

Oliv'

[Kloun]

Avec quelque chose basé là dessus :

Code :

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

1
2
3
4
5
    For Each Tabl In CurrentDb.TableDefs
        If left(Tabl.Connect, 4) <> "ODBC" And Tabl.Connect <> "" Then
            iStr_NomBaseLiee = right(Tabl.Connect, Len(Tabl.Connect) - 10)
        End If
    Next

[Jean-Philippe André]

En fait, je fais reference a cet article :
http://warin.developpez.com/access/dao/
et notamment la partie de TableDef : http://warin.developpez.com/access/d...tie_4#L4.3.2.2

Pour chaque table liee tu auras une chaine de connection.
exemple :

Code :

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

odbcConnectStr = "ODBC;Filedsn=" & dsn & ";UID=" & uid & ";SRVR=" & srvr & ";DB=" & DB & ";PWD=" & pwd & ""

En effectuant du traitement de texte sur cette chaine, on peut extraire les infos sur la BDD.

Si aucun lien ODBC n'est necessaire, on peut recuperer le lien de la database directement dans la table MSysObjects.

[Oliv'83]

Merci,

Je lis, je tente de comprendre et je reviens vers vous.

Bonne soirée

Oliv'

[ClaudeLELOUP]

Bonsoir,

Toutes mes tables liées se trouvent dans une DB.
J'obtiens son chemin avec ce code dans une requête :

Code :

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

SELECT TOP 1 MSysObjects.Database  FROM MSysObjects ORDER BY MSysObjects.Database DESC;