Unable to delete Listview item

Question

I have a Listview and a button like this

enter image description here

Below is the code I have used for deletion of Data from Listview

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
    If lvNotesList.SelectedItems.Count > 0 Then
        Dim Result = MsgBox("Are sure you want to Delete the Selected Item ?", MessageBoxButtons.YesNo + vbQuestion)
        If Result = DialogResult.Yes Then
            Dim ID As String = lvNotesList.SelectedItems(0).SubItems(0).Text

            Try
                Dim sqlConnection As New SQLite.SQLiteConnection()
                Dim sqlCommand As New SQLiteCommand("", sqlConnection)
                Dim sqlPath As String = "Data Source=" & Application.StartupPath & "\Database\SimpleDB.db3"
                Dim sqlQuery As String = "DELETE FROM Notes WHERE NoteID = " & ID
                sqlConnection.ConnectionString = sqlPath
                sqlConnection.Open()
                sqlCommand.CommandText = sqlQuery
                sqlCommand.ExecuteNonQuery()
                sqlConnection.Close()
                MsgBox("Operation Successfull", vbInformation)
            Catch ex As Exception
                MsgBox("Error: Operation Unsuccessfull." & Chr(13) & "Sumamry:" & ex.Message, vbExclamation)
            End Try

        Else
            Exit Sub
        End If
    Else
        MsgBox("Select an Item First", vbExclamation)
    End If
End Sub

For some Reason it produces an Error like this

enter image description here

How can I fix this ?

Bala R · Accepted Answer · 2011-04-28 22:16:51Z

2

The MsgBox causes the ListView to lose focus which in turn clears the selection. You'll have to set HideSelection property of your ListView to false.

EDIT:

Try this

If lvNotesList.SelectedItems.Count > 0 Then
        Dim ID As String = lvNotesList.SelectedItems(0).SubItems(0).Text
        Dim Result = MsgBox("Are sure you want to Delete the Selected Item ?", MessageBoxButtons.YesNo + vbQuestion)
        If Result = DialogResult.Yes Then

edited Apr 28, 2011 at 22:16

answered Apr 28, 2011 at 22:06

Bala R

109k23 gold badges203 silver badges212 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Failed_Noob Over a year ago

Yes it works perfect when I remove the msgbox. But then how can I warn the user ?

Bala R Over a year ago

set HideSelection to false for your listview from the designer.

Collectives™ on Stack Overflow

Unable to delete Listview item

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related