Vba/access2000 ConnectionString

greg_one -  
Cqqn Messages postés 975 Statut Membre -
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. Cqqn Messages postés 975 Statut Membre 21
     
    Salut,
    essaye
    cnx.ConnectionString = CurrentDB.Name

    Le respect, y'a que ça de vrai!
    Entre autres.
    0
  2. Cqqn Messages postés 975 Statut Membre 21
     
    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