[سعود]

(24-10-20, 02:15 AM)sofiane-phy كتب : ممكن تصحيح الكود 

كود :

'************************كود فك تشفير الصورة****************************
           If IsDBNull(DR!ItemPicture) = False Then
               Dim imgByteArray() As Byte
               imgByteArray = CType(DR!ItemPicture, Byte())
               Dim Stream As New MemoryStream(imgByteArray)
               Dim bmp As New Bitmap(Stream)
               ItemPicture.Image = Image.FromStream(Stream)
               Stream.Close()
           End If
           Else
           If OpenFileDialog1.FileName <> "" Then
               Dim imgBYteArray() As Byte
               Dim Stream As New MemoryStream
               ItemPicture.Image.Save(Stream, ImageFormat.Jpeg)
               imgBYteArray = Stream.ToArray()
               Stream.Close()
               DR!ItemPicture = imgBYteArray
           End If
           '*************************************

اخي الكريم 
ان لم اخطيء فان الاجرائين اللذين كتبتهما تلو بعض  غير مناسبة!
الاول يعين صورة مخزنة في القاعدة في مربع صورة والاخر  يقوم بعملية عكسية اي يحفظ الصورة من مربع الصورة للجدول.
كونهم تلو بعض هذه هي المشكلة.
أم ان المطلوب شيء آخر.