slt
tout d'abord si vous avez donne ta base le champs de l'image de type image voila la solution :
1 ere :
la declaration
-----------------------------------------
Imports System.IO
Imports System.IO.MemoryStream
-----------------------------------------
Dim img_bytes As Byte()
Dim img As Drawing.Bitmap
Dim com As New SqlCommand
Dim dr As SqlDataReader
--------------------------------
l'evenement : pour l'insertion
----------------------------------------------
Dim mystream As FileStream
mystream = File.Open("chemain de votre image", FileMode.Open, FileAccess.Read)
ReDim img_bytes(CInt(mystream.Length) - 1)
mystream.Read(img_bytes, 0, CInt(mystream.Length) - 1) 'lecture des bytes
mystream.Close()
com.Connection = con
Try
con.Open()
com.CommandText = "insert into image(image) values(@parm)"
Dim parm As SqlParameter = New SqlParameter("@parm", SqlDbType.Image)
parm.Value = img_bytes
com.Parameters.Add(parm)
com.ExecuteNonQuery()
con.Close()
Catch ex As Exception
MsgBox( ex.Message)
End Try
--------------------------------
l'evenement : pour la lecture
----------------------------------------------
com.Connection = con
Try
con.Open()
com.CommandText = "select * from image where id='" & id & "'"
dr = com.ExecuteReader
dr.Read()
img_bytes = CType(dr("image"), Byte())
img = New Drawing.Bitmap(New System.IO.MemoryStream(img_bytes))
pour que votre image doit etre visible il faut l'enregistrer dans un tompo d'image :
img.Save("chemain pour l'enregistrement de l'image depuis la BD")
picturebox1.Image= "chemain pour l'enregistrement de l'image depuis la BD"
con.Close()
Catch ex As Exception
MsgBox( ex.Message)
End Try