Discussion :

[bestcasaoui]

Bonjour,
Je veux modifier une image d'un enregistrement dans une base de donnée de type access.

Le type du champs image est =>Objet OLE

Voici donc le morceau de code que j'ai mis:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

 If cn.State = ConnectionState.Open Then
            cn.Close()
            cn.Open()
        Else
            cn.Open()
        End If

        com.Connection = cn
        com.CommandText = "Update [personne] set image= @img where id_personne=" & Me.txt_id.Text & "'"
        im = PictureBox1.BackgroundImage
        Dim ms As New System.IO.MemoryStream
        Dim arrPicture() As Byte
        im.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
        arrPicture = ms.GetBuffer()

        Dim parr As New OleDbParameter
     
        parr = New OleDbParameter("@img", OleDbType.VarBinary, ParameterDirection.Input)
        parr.Value = arrPicture
        com.Parameters.Add(parr)

        com.ExecuteNonQuery()

L'erreur que je l'ai c'est dans la ligne en rouge et le lessage est=>

Erreur de syntaxe dans l'instruction UPDATE.

Merci de me corriger ce morceau de code ou de me proposer un code qui marche.

[anonymousse]

bonsoir,

essaies de remplacer :

Code :

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

1
2
3
4
5
6
7
 
Dim parr As New OleDbParameter
 
parr = New OleDbParameter("@img", OleDbType.VarBinary, ParameterDirection.Input)
parr.Value = arrPicture
com.Parameters.Add(parr)
com.ExecuteNonQuery()

par :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If Not arrPicture Is Nothing Then
   Dim parr As New OleDb.OleDbParameter
   parr.ParameterName = "@img"
   parr.OleDbType = OleDb.OleDbType.VarBinary
   parr.Direction = ParameterDirection.Input
   parr.Value = arrPicture
   com.Parameters.Add(parr)
End If
com.ExecuteNonQuery()

Est-ce que tu as toujours la même erreur?