Discussion :

[many6801]

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!

[AJemni]

un peut de code...

A+

[smyley]

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

Code vb :

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

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

d'où le problème ...

[many6801]

Voila mon code pour ma connexion à Access :

Code :

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

    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 :

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

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 :

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

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.

[smyley]

Code :

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

    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 ?