Discussion :

[beegees]

Bonjour le forum,

J'ai un big problem.

J'ai créé une application VB.NET qui permet de copier / coller une db d'un serveur vers mon disque dur.

ça fonctionne très bien.

L'éxécutable de mon programme se trouve dans

M:\Mes Documents\Visual Studio Projects\WindowsApplication1\WindowsApplication1\bin

Quand je copie / colle l'éxécutable sur le bureau, il arrive toujours à prendre la base de données distante sur le serveur mais quand je veux utiliser la base de données qui est en local (après copie / collage du serveur vers le disque dur locale) il me donne ce message d'erreur :



Le problème doit venir d'ici mais comment le résoudre pour que l'application (l'exe) fonctionne sur n'importe quel PC

Code :

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

1
2
3
 'ouverture de la connection(à partir du répertoire de l'application)sur la même ligne
        cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\delibes.mdb;"
        cnn = New OleDbConnection

C'est quand même le but de Visual Basic, créer et mettre des programmes à la disposition des utilisateurs.

Merci d'avance pour votre aide.

bgs

[Angath]

Code :

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

1
2
3
 'ouverture de la connection(à partir du répertoire de l'application)sur la même ligne
        cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\delibes.mdb;"
        cnn = New OleDbConnection

bgs

Avec cette chaine de connexion ton exe ira toujours chercher le fichier *.mdb dans le repertoire où se trouve ton exe (application.startuppath).

Donc si le fichier est pas la normal que ca plante

Soit tu met ta bdd au meme endroit que l'exe, soit tu met ton fichier à un endroit bien définit et tu met le chemin dans la chaine de connexion.

[abelman]

Le fichier 'XXXX' est introuvable.
Cela me semble on ne peut plus clair comme message pour trouver pourquoi cela ne fonctionne pas

[beegees]

Bonjour,

Merci pour vos réponses.

J'ai changé le chemin de destination de la base de données :

Code :

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

1
2
3
 
 
File.Copy("\\164.15.112.38\db\delibes.mdb", "%programfiles%\delibes\delibes.mdb", True)

Le problème est que le programme ne trouve pas l'emplacement et me donne ce message d'erreur :

Une exception non gérée du type 'System.IO.DirectoryNotFoundException' s'est produite dans mscorlib.dll

Informations supplémentaires : Impossible de trouver une partie du chemin d'accès "%programfiles%\delibes\delibes.mdb".

Le plus bizare de tout c'est que quand je fais Windows+R (éxécuter) et que je tape

%programfiles%\delibes\delibes.mdb

Il lance la base de données sans problème.

Est-ce que vous comprenez le problème ?

Merci d'avance.

bgs

[guitoux1]

Ca n'est pas parceque %program files% fonctionne avec Windows que ça fonctionne avec DotNet.
Avec DotNet, pour récupérer le dossier Program Files, il faut faire :

Code :

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

Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)

Donc pour toi, ça donnes :

Code :

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

File.Copy("\\164.15.112.38\db\delibes.mdb", Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) + "\delibes\delibes.mdb", True)

[beegees]

Bonjour guitoux1,

Merci beaucoup pour ton aide, sans toi, je n'y serais jamais arrivé !

Maintenant, la base de données se copie dans c:\programme files (si c: est le disque système bien sûr).

J'ai dû changer la data source qui était :

Code :

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

1
2
3
4
 
 
 
cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\delibes.mdb;"

par :

Code :

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

1
2
3
 
 
cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = " Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) + "\delibes\delibes.mdb;"

Mais à chaque fois il me dit :

"Fin d'instruction attendue"

vois-tu où est l'erreur ?

Merci encore car c'est vraiment du bon boulot.

bgs