Discussion :

[thierry007]

Bonjour

Je ai un petit souci: je souhaite sauver une image dans la DB SQL, mais j'ai un message d'erreur assez générique. Quelqu'un aurait-il une idée sur la question

le message d'erreur :

Une erreur générique s'est produite dans GDI+.

voici le code de la sauvegarde

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
 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim ms As MemoryStream
 
            ms = New MemoryStream
            PbDocument.Image.Save(ms, PbDocument.Image.RawFormat)
 
            Dim arrImage() As Byte = ms.GetBuffer
 
            ' Close the stream object to release the resource.
            ms.Close()
 
            Dim strSQL As String = _
                              "INSERT INTO Picture (Filename, Picture)" & _
                              "VALUES ('" & "test" & "'," & arrImage(0) & ")"
 
 
 
      End Sub

[Sankasssss]

Bonjour,

d'après cette discussion ca viendrait du fait que tu essayes de sauvegarder sur une image qui existe déjà et qui est verrouillée (ouverte)...

[thierry007]

En fait j'ai chargé une image dans le PbDocument( picturBox): cette image même que je souhaite sauvegarder dans la DB.

ou alors

Quelle serait alors la syntaxe pour enregistrer un fichier image dans la Db

exemple le fichier "c:\monimage.jpg"

[Sankasssss]

Il faudrait savoir où ça plante exactement...

J'ai l'impression que ce qui pose problème, c'est principalement cette ligne :

Code :

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

            PbDocument.Image.Save(ms, PbDocument.Image.RawFormat)

essaye une fois avec, pour une image JPEG :

Code :

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

            PbDocument.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

[thierry007]

Hai

Le problème est le même

Je pense que pour avoir plus facile, peut être enregistrer l'image dans la db directement a partir d'un fichier, sans l'ouvrir dans le Pb avent de vouloir le sauver...

mais alors quel en est la syntaxe

[Sankasssss]

Non, vous vous y prenez de la bonne manière, il faut juste comprendre pourquoi ca ne fonctionne pas...
Essayer de mettre un bloc try / catch avec un ex.toString pour voir s'il n'y a pas plus de détail sur l'exception.

[thierry007]

Oui, je comprend ( savoir le pourquoi )

Mais je me posais juste la question

Est-il interessant de charger l'image dans le pbox et puis de l'enregistrer dans la DB, au lieu d'enregistrer directement le fichier ( image ) dans la db avec un filedlg a ce moment

Genre:

Code :

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

 Dim image As Byte() = System.IO.File.ReadAllBytes("c:\image.jpg")

[Sankasssss]

Si vous ne la visualisez pas, il vaux mieux ne pas passer par un picturebox en effet... (désolé je n'avais pas compris)

[thierry007]

Bien disons que si j'utilise une fileDlg elle peut être affichées dans l'explorer de windows....

poins de vue !!

mais alors je coince sur la syntage de la commande INSERT de l'image

Code :

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

 Dim image As Byte() = System.IO.File.ReadAllBytes("c:\image.jpg")

[Pol63]

il faut utiliser un dbparameter, on ne peut pas (enfin si on peut mais il faut vraiment éviter) mettre l'image dans la concaténation de la requête
il vaut alors mieux mettre une variable dans la requete et passer un paramètre typé (tableau d'octet ou image selon la colonne de ta db) qui contient la valeur

[thierry007]

BOnjour pol63

tu parles de cette façon de faire j'imagine?

Dim strSQL As String = _
"INSERT INTO Picture (Filename, Picture)" & _
"VALUES ('" & "test" & "'," & arrImage(0) & ")"

[meziantou]

Code :

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

1
2
3
4
5
 
string qry = "insert into Picture (Filename, Picture) values(@Filename, @Picture)";
SqlCommand SqlCom = new SqlCommand(qry, connection);
SqlCom.Parameters.Add(new SqlParameter("@Filename", "test"));
SqlCom.Parameters.Add(new SqlParameter("@Picture", (object)imageData));

[thierry007]

Ceci semble t'il correcte alors.

Ceci-dit il reste la relecture et affichage dans le pb box a faire, heu...

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
25
26
 If OpenFile.ShowDialog = System.Windows.Forms.DialogResult.OK Then
 
                  Try
 
                        Dim image As Byte() = System.IO.File.ReadAllBytes(OpenFile.FileName)
 
                        SqlConn.Open()
 
                        StrSql = "UPDATE Documents SET ImageName=@Filename, ImageDocument=@Picture WHERE IdDocument=" & CInt(DgDocuments.CurrentRow.Cells("IdDocument").Value)
 
                        SqlComm = New SqlCommand(StrSql, SqlConn)
 
                        SqlComm.Parameters.Add(New SqlParameter("@Filename", DgDocuments.CurrentRow.Cells("NumeroCOB").Value.ToString & DgDocuments.CurrentRow.Cells("NumeroExtensionCOB").Value.ToString))
                        SqlComm.Parameters.Add(New SqlParameter("@Picture", image))
                        SqlComm.ExecuteNonQuery()
 
                        SqlConn.Close()
                        MsgBox("Image enregistrée")
 
                  Catch ex As Exception
 
                        MsgBox("Un problème est survenu lors du traitement. - " & ex.Message, MsgBoxStyle.Critical)
 
                  End Try
 
            End If

[thierry007]

J'ai posté un peut vite : voici

Code :

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

1
2
3
4
5
 LblNomFichierImage.Text = DgDocuments.CurrentRow.Cells("ImageName").Value.ToString
 
                  Dim Picturebyte() As Byte = DgDocuments.CurrentRow.Cells("ImageDocument").Value
                  Dim StreamPicture As New MemoryStream(Picturebyte)
                  PbDocument.Image = Image.FromStream(streamPicture)

Commentaire ou idée toujours les biens venus