Bonjour à tous,
j'ai un script dans lequel je me connecte à une base de données avec les lignes suivantes:
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.
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")
Dans ce même script, j'utilise un OpenFileDialog qui me permet de sélectionner un fichier où je veux. Je fais donc:
Mais quand après l'appel à mon OpenFileDialog je tente de nouveau de me connecter à ma base de données, j'obtiens ce message:
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
[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!
Partager