Discussion :

[adelcrb]

Bonjour,

Toujours avec mon fameux projet... J'ai un nouveau problème : mon application s’exécute le plus normalement du monde mais dès que je change le dossier ou l’endroit de l'exécutable j'ai droit à un message d'erreur du genre :

'xxxxxx' n'est pas un chemin d'accès valide. Assurez-vous que le nom du chemin d'accès est correct et qu'une connexion est établie avec le serveur ....

Je cherche un moyen pour que l'application reconnaisse le chemin de ma base de données même si je change de dossier ou de PC sachant que cette dernière se situe toujours dans le dossier de mon exécutable.

Merci d'avance pour la réponse.

[adelneo]

Il est important de nous préciser le SGBD que tu utilises ainsi que les composants d'accès à la BDD.

[adelcrb]

Il est important de nous préciser le SGBD que tu utilises ainsi que les composants d'accès à la BDD.

la base est en access et TADOconnection comme composant.

[adelneo]

Essayes d'utiliser un chemin absolu pour indiquer l'emplacement de la BDD, Sinon il y a mieux encore en utilisant les alias.

[gaby277]

Bonjour,
Tu peux recupérer le chemin de l'executable avec Application.Exename extraire le chemin avec ExtractFilePath(Application.Exename)

Puis affecter le chemin au composant avec lequel tu accedes à la base de donnée. Ainsi quelque soit le repertoire ça marchera
Bien sur l'affectation doit etre faite avant d'ouvrir la base de donnée (par exemple su l'évenement chargement du formulaire principal).

Ceci étant il me semble que M. Microsoft préconise de mettre les données dans "Documents and Settings\..."
Suivant le systeme d'exploitation et les droits dont tu disposes il peut y avoir des problemes d'écriture dans le répertoire de l'exécutable mais bon ...

[seabs]

Bonjour,

Il faut donner plus de souplesse à ton programme pour éviter les difficultés de ce type.

Pour cela, il est nécessaire de prévoir une fiche qui offre la possibilité de modifier le chemin d'accès à ta base de données.

Au démarrage du programme, tu vérifies l'accès à la base. S'il est inexact, il te met un message et te donne la main pour assurer la modification du chemin d'accès.

A+

[adelcrb]

C'est bon, j'ai réglé le problème... J'ai trouver un bout de code sur internet que j'ai bidouillé et ça m'a donné ça :

déclarations globales :
ExePath, WinPath: string;
I: LongInt;

connection est le nom de mon adoconnection

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure Tajouter.FormCreate(Sender: TObject);
begin
maform.ActivePageIndex:=0;
 Setlength(WinPath, 255);
 I:= GetWindowsDirectory(PChar(WinPath), 255);
 Setlength(WinPath, I);
 if WinPath[Length(WinPath)] <> '\' then WinPath := WinPath + '\';
 ExePath:= ExtractFileDir(ParamStr(0));
 if ExePath[Length(ExePath)] <> '\' then ExePath := ExePath + '\';
 connection.Close;
 connection.ConnectionString := Format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source="%s";' +
  'Persist Security Info=False;Jet OLEDB:Database Password={le mot de passe de ma base de données};', [ExePath + 'ma base de données.mdb']);
 connection.Open;
end;

Voila j'ai mis le code dans le ONCREATE de ma mainform... Je vous remercie pour votre aide une fois de plus.

[adelcrb]

Bonjour,

Il faut donner plus de souplesse à ton programme pour éviter les difficultés de ce type.

Pour cela, il est nécessaire de prévoir une fiche qui offre la possibilité de modifier le chemin d'accès à ta base de données.

Au démarrage du programme, tu vérifies l'accès à la base. S'il est inexact, il te met un message et te donne la main pour assurer la modification du chemin d'accès.

A+

Dans mon cas la base de données doit être codée pour des raisons commerciales donc je ne peux pas leur donner la main ; je cherche même à la rendre invisible ou d'un autre format méconnu comme ça elle n'aura pas l'air d'une base de données. Merci pour la suggestion, c'est sûr que ça va m'aider prochainement.