[جميل5]

هذا تعديل لعله يفيد

PHP كود :

Public Sub DeleteRowFrom_Location(ByVal gv As GridView)

    If gv.RowCount = Nothing Then Return

    Dim Position As Integer = gv.FocusedRowHandle
    Dim ID_Position As Integer = gv.GetDataRow(Position).Item("STUDENT_Id")
    Dim Name_Position As String = gv.GetDataRow(Position).Item("STUDENT_Name")

    If MsgBox("Delete (" & Name_Position & ")?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo) <> MsgBoxResult.Yes Then Return

    Me.Cursor = Cursors.WaitCursor

    Try
        Dim sql = "DELETE FROM TBL_STUDENT WHERE STUDENT_Id=@STUDENT_Id"
        Using cmd As New OleDbCommand(sql, Conne_2019)
            cmd.Parameters.AddWithValue("@STUDENT_Id", OleDbType.Integer).Value = ID_Position
            If Conne_2019.State <> ConnectionState.Open Then Conne_2019.Open()
            cmd.ExecuteNonQuery()
            Conne_2019.Close()
        End Using
        ReloadDatabase()
    Catch ex As Exception
        MsgBox(Err.Description, MsgBoxStyle.Information)
    Finally
        Conne_2019.Close()
    End Try

    Me.Cursor = Cursors.Default
End Sub 


إذا كنت قد ربطت GridControl ب BindingSource فتستطيع التعامل مع BindingSource نفسه