Suppression en utilisant listbox [Résolu]

Signaler
Messages postés
24
Date d'inscription
mercredi 18 avril 2007
Statut
Membre
Dernière intervention
17 mai 2007
-
Messages postés
24
Date d'inscription
mercredi 18 avril 2007
Statut
Membre
Dernière intervention
17 mai 2007
-
Salut tout le monde

Je vous présente aujourd'hui un pb .
il s'agit que lorsque je supprime un element dans la listbox il se voit comme s'ilest supprimé
pourtant je le trouve dans la base qui est connectée avec vb.
J'utilise Vb 6.0
voici le code que j'ai fait.
'---------------------------------------------
If List1.ListIndex >= 0 Then
   If (MsgBox("Etes vous sûr(e)s de vouloir supprimer ce CD ?!!!", vbYesNo +                vbQuestion)vbYes)    Then
       List1.RemoveItem
        List1.ListIndex
   End If
End If
'-------------------------------------
Merci pour votre aide,SVP c'est très important

3 réponses

Messages postés
24
Date d'inscription
mercredi 18 avril 2007
Statut
Membre
Dernière intervention
17 mai 2007

Merci Mortalino
ça était marché,je l'ai fait dans une seule ligne et jai ajouté rs.delete
Vous êtes vraiment serviable. Merci
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

c'est pas en 2 lignes, mais en une :

       List1.RemoveItem
        List1.ListIndex

devient donc
       List1.RemoveItem List1.ListIndex

Pourquoi, car il fait un RemoveItem... de tel Item. Si tu ne lui dis pas, il n'enlève pas celui séléctionné

@++

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
  
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Si tu veux suppprimer (mal lu) un enregistrement d'une BDD, faut procéder par requête sql (avec Delete .. From) style
"DELETE FROM NomDeLaTable WHERE TonChamps = '" & List1.List(List1.ListIndex) & "'"

@++

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~