[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي عمورة جرب الكود هكذا

كود :

 Dim ByteImage() As Byte
       Dim Ms_Photo As New MemoryStream()
       PictureBox2.Image.Save(Ms_Photo, PictureBox2.Image.RawFormat)
       ByteImage = Ms_Photo.GetBuffer

       Dim Cmd As New SqlCommand()
       Cmd.Connection = RX
       Cmd.CommandType = CommandType.Text
       Cmd.CommandText = "UPDATE agsat_s3 SET Photo2=@Photo2 Where idz=@idz"
       Cmd.Parameters.Clear()
       Cmd.Parameters.Add(New SqlParameter("@Photo2", SqlDbType.Image)).Value = ByteImage
       Cmd.Parameters.Add(New SqlParameter("@idz", SqlDbType.Int)).Value = Convert.ToInt32(TextBox9.Text)

       Try
           If Conn.State = ConnectionState.Open Then Conn.Close()
           Conn.Open()
           Cmd.ExecuteNonQuery()
           Conn.Close()

           MessageBox.Show("تمت بنجاح عملية حفظ الصورة و تعديل البيانات", "تعديل البيانات", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       Finally
           Conn.Close()
       End Try