[جيولوجي مبتدئ]

(09-05-20, 09:33 PM)aljzazy كتب : هذ كود للحذف مباشرة من الداتا جرد فيو وقاعدة البيانات بدلالة السطر المحدد
يتبقى عليك فقط تعويض اسم الجدول واسم الحقل وباستدعاء الامر وضع اسم الداتا جرد فيو

كود :

Public Sub DeleteRow(ByVal DGV As DataGridView)
       Dim Position As Integer = DGV.CurrentRow.Index
       Dim ID_Position As Integer = DGV.Rows(Position).Cells("FieldName").Value
       Dim Cmd As New SqlCommand
       With Cmd
           .Connection = Con
           .CommandType = CommandType.Text
           .CommandText = "Delete  From tableName Where FieldName = @FieldName"
           .Parameters.Clear()
           .Parameters.AddWithValue("@FieldName", SqlDbType.Int).Value = ID_Position
       End With
       If Con.State = 1 Then Con.Close()
       Con.Open()
       Cmd.ExecuteNonQuery()
       Con.Close()
       MsgBox("تم حذف بيانات السجل بنجاح.", MsgBoxStyle.Information, "حذف")
       Cmd = Nothing
   End Sub

الاستدعاء

كود :

If MessageBox.Show("هل أنت متأكد من انك تريد مواصلة عملية الحذف؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
           Exit Sub
       Else
           DeleteRow(DGVName)
       End If

مشكور اخي العزيز وبارك الله تم المطلوب بمساعدتك الله يجعله في موازين حسناتك