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

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

كود :

Dim pos As Integer
       pos = DataGridView1.CurrentRow.Index
       Dim EemployeID = DataGridView1.Rows(pos).Cells(1).Value
       Dim EemployeName = DataGridView1.Rows(pos).Cells(2).Value

       If MsgBox("هل تريد تعديل البيانات للموظف: " & EemployeName & EemployeID, MsgBoxStyle.Question + vbYesNo, Title:="Warning") = vbYes Then
           Dim cmd As New SqlCommand
           With cmd
               .Connection = con
               .CommandType = CommandType.Text
               .CommandText = "Update TB_Eemploye Set EemployeID=@EemployeID, EemployeName=@EemployeName, PicEemploye=@PicEemploye, EemployePosition=@EemployePosition, EemployeStatus=@EemployeStatus, Nationalty=@Nationalty, Mobilenumber=@Mobilenumber, GR=@GR, BasicSalary=@BasicSalary, DOA=@DOA, DirectorinthesystemSap=@DirectorinthesystemSap where EemployeID=@EemployeID"
               .Parameters.Clear()
               .Parameters.AddWithValue("@EemployeID", SqlDbType.NVarChar).Value = txt_prn.Text
               .Parameters.AddWithValue("@EemployeName", SqlDbType.NVarChar).Value = txt_Name.Text
               .Parameters.AddWithValue("@EemployePosition", SqlDbType.NVarChar).Value = ComboBoxPosition.Text
               .Parameters.AddWithValue("@Nationalty", SqlDbType.NVarChar).Value = ComboBoxNationalty.Text
               .Parameters.AddWithValue("@Mobilenumber", SqlDbType.NVarChar).Value = txt_Mobilenumber.Text
               .Parameters.AddWithValue("@GR", SqlDbType.NVarChar).Value = txt_Grade.Text
               .Parameters.AddWithValue("@BasicSalary", SqlDbType.NVarChar).Value = txt_Basic_Salary.Text
               .Parameters.AddWithValue("@DOA", SqlDbType.NVarChar).Value = ComboBoxDate_Of_Employment.Text
               .Parameters.AddWithValue("@DirectorinthesystemSap", SqlDbType.NVarChar).Value = txt_Director_in_the_system_Sap.Text
               .Parameters.AddWithValue("@EemployeStatus", SqlDbType.NVarChar).Value = ComboBoxStatus.Text

               Dim ms As New IO.MemoryStream
               Dim bmpimage As New Bitmap(pbox.Image)
               bmpimage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
               Dim data As Byte() = ms.GetBuffer()
               Dim p As New SqlParameter("@PicEemploye", SqlDbType.Image)
               p.Value = data
               .Parameters.Add(p)

           End With
           If con.State = 1 Then con.Close()
           con.Open()
           cmd.ExecuteNonQuery()
           con.Close()
           TextValueClere()
           dt.Clear()
           DgvLoad()
           MsgBox("تم إعتماد تعديل البيانات للموظف: " & EemployeName & EemployeID, MsgBoxStyle.Information)
           Me.txt_prn.ReadOnly = False
           Me.butt_new.Enabled = True
           Me.butt_Save.Enabled = True
           txt_Serch.Focus()
           txt_Serch.Update()

       Else
           Return
       End If