Comment supprimer une ligne dans listview avec delete

Réponse acceptée !




Il te suffit de faire une requête en récupérant un élément distinct de ton listview du record que tu veux effacer.
Voici un exemple avec un listview ListV1, dans cet exemple la première colonne "Article" est un élément distinct et non redondant de ma liste, je le récupère par l'événement ItemClick puis je fabrique une nouvelle requête avec cet élément de façon à ce qu'elle ne me retourne que cet élément, ensuite je l'éfface 

Dim MonItem as string


Private Sub ListV1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    MonItem = Item.text
End Sub

Private Sub CmdEfface_Click()

Dim SqlStr as String

SqlStr = "SELECT * FROM matable WHERE matable.Article like '" & MonItem & "'"
   With Adodc1
      .ConnectionString = sConnection
      .RecordSource = Sqlstr
   End With
   
Adodc1.refresh

'maintenant que mon recordset pointe sur l'unique record sélectionné dans ma listview
'il ne me reste plus qu'à l'éffacer

Adodc1.recordset.delete

End Sub

Puis il faut raffraichir la listview pour que l'élément supprimé n'apparaise plus, et là j'ai l'impression qu'il faut entièrement la la remplire ?


Pascal Laurençon