09-05-20, 09:33 PM
هذ كود للحذف مباشرة من الداتا جرد فيو وقاعدة البيانات بدلالة السطر المحدد
يتبقى عليك فقط تعويض اسم الجدول واسم الحقل وباستدعاء الامر وضع اسم الداتا جرد فيو
الاستدعاء
يتبقى عليك فقط تعويض اسم الجدول واسم الحقل وباستدعاء الامر وضع اسم الداتا جرد فيو
كود :
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
