Visual Basic

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteSelected.Click
    Dim strSQL As String = ""
    Dim nIndex As Integer = 0
    Dim nCount As Integer = 0

    If lstHistory.SelectedIndex < 0 Then
        MsgBox("You must first select the record you wish to delete.", MsgBoxStyle.Critical, "Selection Required")
    Else
        nIndex = lstHistory.SelectedIndex
        lstHistory.ClearSelected()
        strSQL = "DELETE FROM tblEvents WHERE ID = " + nIndex.ToString()

        Try
            oleCommand = New OleDbCommand()

            With oleCommand
                .Connection = New OleDbConnection(strConn)
                .Connection.Open()
                .CommandText = strSQL
            End With

            oleDataAdapter = New OleDb.OleDbDataAdapter(oleCommand)
            oleCommand.ExecuteNonQuery()
            oleCommand.Connection.Close()

            PopulateHistory()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Try
            oleCommand = New OleDbCommand()
            oleCommand.Connection = New OleDbConnection(strConn)
            oleCommand.Connection.Open()

            For nCount = 0 To nRecords
                oleCommand.CommandText = "UPDATE tblEvents (ID) VALUES (" + nCount + ")"
                oleDataAdapter = New OleDbDataAdapter(oleCommand)
            Next

            oleCommand.Connection.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End If
End Sub

Girish481 wrote:

self learning and understanding may increase your knowledge-base

Indunil_Bk wrote:

this is urgent