Vba/access2000 ConnectionString

Fermé
greg_one - 16 juin 2003 à 13:17
Cqqn Messages postés 964 Date d'inscription vendredi 22 novembre 2002 Statut Membre Dernière intervention 1 avril 2010 - 16 juin 2003 à 16:22
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 vendredi 22 novembre 2002 Statut Membre Dernière intervention 1 avril 2010 21
16 juin 2003 à 14:11
Salut,
essaye
cnx.ConnectionString = CurrentDB.Name

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

Merci
A+
0
Cqqn Messages postés 964 Date d'inscription vendredi 22 novembre 2002 Statut Membre Dernière intervention 1 avril 2010 21
16 juin 2003 à 16:22
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