Problème OpenFile Dialog

Bonjour, je rencontre actuellement un gros problème. Je vais essayer de vous expliquer.

L'utilisateur doit chercher une image à travers une OpenFileDialog, jusque là tout va bien, je l'insère dans mon Windows Form mais lorsque j'appuie sur mon bouton enregistrer afin d'enregistrer le chemin de cette image dans ma base, je lance une requête avec une connexion à ma base de données Access et là mon chemin de connexion à cette base se modifie tout seul : il va chercher ma base de données là où j'ai sélectionné mon image.

Je suis un peu paumée si quelqu'un pouvait m'aider ce serai génial!

8O
un peut de code...

A+

Je pense que tu dois utiliser des chemins relatifs genre Bidule("MonFichier.mdb") et pas des chemins absolus avec un truc genre

Code:

---

Bidule(Path.GetDirectoryName(Application.ExecutablePath) & Path.DirectorySeparatorChar & "MonFichier.mdb")

---

d'où le problème ...

Voila mon code pour ma connexion à Access :

Code:

---

Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Suivi.mdb")

---

Ensuite mon code pour l'OpenFileDialog qui me permet de choisir une image

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub btnParcourir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnParcourir.Click OpenFileDialog1.ShowDialog() With OpenFileDialog1 .Title = "Logo" .Filter = "Fichiers Image (*.jpg)|*.jpg|Fichiers Image (*.gif)|*.gif" .Multiselect = False End With If Windows.Forms.DialogResult.OK Then fichier = OpenFileDialog1.FileName imgLogo.ImageLocation = fichier btnEnr.Visible = True End If End Sub

---

Et enfin, je souhaite rentrer les différentes informations dans ma base, dont le chemin de fichier image que j'ai sélectionné à l'aide de l'OpenFileDialog, alors je réutilise la même connexion que j'ai déclaré plus tôt :

Code:

---

1 2 3 4 5 6

cn.Open() Dim cmdInserer As OleDb.OleDbCommand cmdInserer = New OleDb.OleDbCommand("INSERT INTO UTILISATEUR VALUES('" + txtNom.Text + "','" + fichier + "'", cn) cmdInserer.ExecuteNonQuery() MsgBox("Enregistrement effectué") cn.Close()

---

Et là, il me met l'erreur suivante :
Fichier 'C:\Documents and Settings\All Users\Documents\Mes images\Échantillons d'images\Suivi.mdb' introuvable.

Voila, j'espère que vous pourrez m'aider parce que je ne vois pas d'où vient l'erreur.

Citation:

---

Envoyé par many6801

Code:

---

Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Suivi.mdb")

---

---

"...Data Source=Suivi.mdb)"
C'est pas ce que je viens de dire ?