[VB.NET] ممكن كود الحدف؟ - نسخة قابلة للطباعة

PHP كود :
Private Sub ButtonDelete_Click(sender As Object, e As EventArgs) Handles ButtonDelete.Click
    If DataGridView1.SelectedRows.Count > 0 Then ' التأكد من تحديد الصف
        Dim index As Integer = DataGridView1.SelectedRows(0).Index ' الحصول على مؤشر الصف المحدد
        Dim selectedID As Integer = Convert.ToInt32(DataGridView1.Rows(index).Cells("IDColumn").Value) ' استرجاع قيمة العمود المميز للصف المحدد

        ' إزالة الصف من DataGridView
        DataGridView1.Rows.RemoveAt(index)

        ' حذف الصف من قاعدة البيانات
        Dim connectionString As String = "YourConnectionStringHere" ' استبدل هذا بسلسلة الاتصال الخاصة بك

        Using connection As New OleDbConnection(connectionString)
            Using command As New OleDbCommand()
                command.Connection = connection
                command.CommandText = "DELETE FROM YourTableName WHERE IDColumn = @ID"
                command.Parameters.AddWithValue("@ID", selectedID)

                connection.Open()
                command.ExecuteNonQuery()
            End Using
        End Using

        MessageBox.Show("تم حذف العنصر المحدد بنجاح!", "حذف")
    Else
        MessageBox.Show("الرجاء تحديد الصف المراد حذفه!", "تنبيه")
    End If
End Sub