14-07-19, 01:50 AM
كود :
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حين أقوم باعادة حفظ بيانات أخرى أجد أن رقم المعرف id في الداتا جريد يبدأ من الرقم الاخير الذي حذف
اي أن رقم id للسطر كان 1 و 2 و 3 , فقمت بحذف جميع الأسطر أجد بعد حفظ بيانات جديدة أنها لم تبدأ الحفظ من السطر 1 بل بدأت من السطر 4 .
كما أنني تفحصت القاعدة في access ووجدت أنها فارغة
