[vbnet]

.....

مسألة الحذف من قاعدة البيانات لابد من دلالة ID الخاص بالسطر (السجل) المراد حذفة (إذا استخدمت طريقة أخرى قد تتسبب في مشاكل)

لحذف سطر من جدول في قاعدة البيانات ومن ثم إذا نجحت يتم حذف السطر الحالي في DataGridView على أساس أن ID موجود في الخلية رقم صفر

كود :

Try
    Dim sql As String = " DELETE FROM [table1] WHERE [id]=" & Int(Me.DataGridView1.CurrentRow.Cells(0).Value)
    '                                                                                         ^^^^^^^^^^^^^^
    '                                                                                            ID رقم
    Dim comm As New OleDb.OleDbCommand(sql, conn)

    conn.Open()
    Dim result As Integer = comm.ExecuteNonQuery
    conn.Close()

    If result > 0 Then
        Me.DataGridView1.Rows.Remove(Me.DataGridView1.CurrentRow)
        MsgBox("لقد تم حذف السجل بنجاح")
    Else
        MsgBox("لم أجد السجل المراد حذفه")
    End If

Catch ex As Exception
    MsgBox("فشلت عملية الحذف")
End Try

.....