[محمد العامر]

السلام عليكم ورحمة الله وبركاته
أتمنى أن تكونوا جميعا في أتم صحه وعافيه 

عندي مشكلة في كود إضافة الصورة مرفق لكم الكود 
أتمنى ايجاد حل حيث تتم العملية ولكن لا يتم إضافة صورة في قاعدة البيانات sql مرفق لكم صورة لمعلومات الجدول

كود :

Dim Cmd As New SqlClient.SqlCommand
       With Cmd
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = "Insert Into Staff (PRN,Name)values(@PRN,@Name)"
           .Parameters.Clear()
           .Parameters.AddWithValue("@PRN", SqlDbType.Int).Value = txt_prn.Text
           .Parameters.AddWithValue("@Name", SqlDbType.NVarChar).Value = txt_Name.Text
           Dim ms As New MemoryStream
           Dim bmpImage As New Bitmap(Pic_Staff.Image)
           bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
           Dim data As Byte() = ms.GetBuffer
           Dim p As New SqlParameter("@Pic_Staff", SqlDbType.Image)
           p.Value = data
           .Parameters.Add(p)
       End With
       If con.State = 1 Then con.Close()

       con.Open()
       Cmd.ExecuteNonQuery()
       con.Close()
       MsgBox("Done")
       Cmd = Nothing
       txt_prn.Text = Nothing
       txt_Name.Text = Nothing
       Pic_Staff.Image = Nothing
       DgvLoad()

كود فتح نافذة لجلب الصورة 

كود :

  Try
           Dim ofd As New OpenFileDialog
           With ofd
               .Filter = ("images |*.png; *.bmp; *.jpg; *.jpeg; *.gif;")
               .FilterIndex = 4
           End With
           ofd.FileName = ""
           If ofd.ShowDialog() = DialogResult.OK Then
               Pic_Staff.Image = Image.FromFile(ofd.FileName)
           End If
       Catch ex As Exception
           MsgBox(ex.ToString())
       End Try