Vba/access2000 ConnectionString

greg_one -  
Cqqn Messages postés 964 Date d'inscription   Statut Membre Dernière intervention   -
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

Cqqn Messages postés 964 Date d'inscription   Statut Membre Dernière intervention   21
 
Salut,
essaye
cnx.ConnectionString = CurrentDB.Name

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

Merci
A+
0
Cqqn Messages postés 964 Date d'inscription   Statut Membre Dernière intervention   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