محتاج كود عندما احذف كل ما يظهر في الداتا جريدفيو وفي حالة الضغط مرة أخرى على زر الحذف تطلع رسالة تنبيه على أن الداتا جريدفيو فارغة
وشكرا لكم
vb.net+vs 2010
PHP كود :
Private Sub SimpleButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bdelet.Click
Dim position = DataGridView1.CurrentRow.Cells(1).Value.ToString
Dim del As DialogResult = MessageBox.Show("هل تريد حذف " & position, "رسالة الحذف", MessageBoxButtons.YesNo, MessageBoxIcon.Hand)
If del = DialogResult.No Then
Return
' لا تحذف البيانات
ElseIf del = DialogResult.Yes Then
' إحذف البيانات
End If
Try
Dim sql As String = " DELETE FROM info 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)
MessageBox.Show("تمت بنجاح", "عملية الحذف", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
updating()
Else
MessageBox.Show("لم تحدد الإختيار", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End If
Catch ex As Exception
MessageBox.Show("لم تحدد الإختيار", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Try
End Sub
