Discussion :

[Pascal]

Bonjour à tous,

J'ai une base Access (sur mon disque D) et j'ai une connection ADO

Code :

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

1
2
3
ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\Projet Oryx\Oryx Guide pratique\BasesOryx\DataGuide.mdb;Persist Security Info=False';
ADOTable1.TableName:='TblEtapes';
ADOTable1.Active:= True

Si j'installe tel quel sur un autre poste (qui installe le programme sur C) j'aurais une erreur.

Donc comment mettre ...Source = ...\Projet Oryx\Oryx Guide (cela génére une erreur, tel quel) afin que le programme cherche sur le bon disque.

Merci

Pascal

[NoisetteProd]

le mieux est de faire une fenetre de connection ou l'utilisateur va choisir le chemin de sa base avec un opendialog

du coup, tu fais :

Code :

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

1
2
3
4
5
6
7
8
9
 
Var CheminBase : string;
...
 
opendialog1.Execute;
CheminBase := opendialog1.FileName;
ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+CheminBase+';Persist Security Info=False'; 
ADOTable1.TableName:='TblEtapes'; 
ADOTable1.Active:= True

Enfin, un truc dans le genre...

[Pascal]

Merci NoisetteProd pour ta réponse, effectivement j'ai bien pensé à ça mais si tu laisses l'utilisateur rentrer son chemin, là il y a un gros danger.

C'est pour cela que je voulais l'écrire en dur.

[Pascal Jankowski]

Si ta station est partagée en réseau, essaie donc quelque chose comme cela :
Data Source= \\nom_station\Projet Oryx\Oryx Guide pratique\...

[NoisetteProd]

Salut ! Bon, j'avais pas bien compris ton problème !

Je suppose que ta base est dans le meme dossier ou dans un dossier en dessous ton appli ??

Si c'est le cas, tu peux utiliser : ExtractFilePath(Application.ExeName) qui te permet de recuperer le repertoire utilisé par ton appli. Si tu utilise un sous répertoire tu rajoute à cela le sous repertoire utilisé et pour finir, tu ajout le nom de ta base...

Code :

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

1
2
3
4
5
6
7
Var CheminBase : string; 
... 
 
CheminBase := ExtractFilePath(Application.ExeName)+'lerepertoiredelabase'+'nomdemabase';
ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+CheminBase+';Persist Security Info=False'; 
ADOTable1.TableName:='TblEtapes'; 
ADOTable1.Active:= True

J'espère que cette fois, c'est ok pour toi !

Bon courage !

[Pascal]

Merci je teste ce soir chez moi et demain je te dis ce qu'il en ai.

[Pascal]

Merci à tous et surtout à NoisetteProd ta réponse est bonne