Vba/access2000 ConnectionString

Salut,
J'ai un programme vba/access2000 mais le nom du fichier de base de données est écrit en dur.
Donc si je change de repertoire mon fichier (actuellement: D:\mon_prog.mdb), ça ne marche plus.

Dim cnx As New ADODB.Connection
cnx.Provider = "Microsoft.Jet.Oledb.4.0" cnx.ConnectionString = "D:\ma_base.mdb"
cnx.Open

Comment avoir un nom de database générique?? avec une fonction ou avec un fichier de config, ma_base.ini par exemple.

Merci d'avance

3 réponses

  1. ah ben de rien,
    il y a quelques mois je posais ce type de questions moi aussi,
    cétoutafénormalien d'aider son prochain, mais si tu utilises google ou même l'aide d'access tu pourras souvent trouver tout seul réponse à tes interrogations.

    Le respect, y'a que ça de vrai!
    Entre autres.
    0
    1. Salut,
      essaye
      cnx.ConnectionString = CurrentDB.Name

      Le respect, y'a que ça de vrai!
      Entre autres.
      0