Discussion :

[schwarzy2]

Bonjour à tous,

j'ai un script dans lequel je me connecte à une base de données avec les lignes suivantes:

Code :

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

1
2
 oConn = CreateObject("ADODB.Connection")
            oConn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=db_input.mdb;password=wefri")

ces lignes seules fonctionnent très bien, je n'ai aucun problème de connexion, je me connecte bien à ma base de données db_input.mdb qui se situe dans le répertoire bin de mon appli.

Dans ce même script, j'utilise un OpenFileDialog qui me permet de sélectionner un fichier où je veux. Je fais donc:

Code :

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

1
2
3
If Me.OpenFileDialog1.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
'etc.
End If

Mais quand après l'appel à mon OpenFileDialog je tente de nouveau de me connecter à ma base de données, j'obtiens ce message:
[Microsoft][Pilote ODBC Microsoft Access] Fichier '(Inconnu)' introuvable

Si je mets ma base de données dans le répertoire où j'ai sélectionné le fichier , alors ma connexion fonctionne bien. Mon problème est donc que mon répertoire par défaut est modifié par mon OpenFileDialog. Comment le rétablir sans préciser une adresse absolue?

merci d'avance pour votre aide!

[schwarzy2]

ben j'ai trouvé la solution, je la note, ça peut servir à d'autres:
il faut mettre avant d'utiliser l'OpenFileDialog:

Code :

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

cd = System.IO.Directory.GetCurrentDirectory

et après l'avoir utilisé:

Code :

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

System.IO.Directory.SetCurrentDirectory(cd)