Problème effacement base données

Salut à tous

J'ai une base de données sans contrôle DATA reliée avec une liste box.
Je souhaite selectionner un élément de la listbox et l'effacer de celle-ci et aussi de la base de données.

Le problème est que je selectionne l'élément dans la listbox mais l'élément supprimé dans la base de données, est le premier (1ère ligne).

Voici mon code:

Private Sub Command4_Click()
Set rs = Db.OpenRecordset("contact", dbOpenTable)
rs.Delete
rs.MoveNext
List1.RemoveItem List1.ListIndex
End If
End Sub

Merci de bien vouloir m'éclairer....

C'est tout simple en fait quand tu fait
ton delete tu supprime l'enregistrement courant
si celui ci est le premier alors le premier enregistrement
est supprimé !

pour choisir ton enregistrement fait comme ci-dessous :

rs.movefirst
rs.move list1.listindex
rs.delete

@+

E.B.

slt,

Tout d abord merci de m avoir repondu...mais il y a tjrs un probleme...
Maintenant il efface un coup celui que je veux(ca c bien), un coup ca efface ds ma liste mais est tjrs present dans ma base, ou encore ya des fois il ne veut pas effacer le 1er et me met une erreur.

En revenche si j eteind le programme et que je le relance la il est a jour ds ma list mais vu qu il n efface pas tt le tps la meme chose dans ma liste ou ds la base et ben parfois ca bug...

Je suis incapable de trouver ce qu il y a puisque je n ai pas trouve de logique dans l effacement des donnees de la base...on dirait que c aleatoire

Mon code est :

Private Sub Command4_Click()
Set rs = Db.OpenRecordset("contact", dbOpenTable)
rs.MoveFirst
rs.Move List1.ListIndex
rs.Delete
List1.RemoveItem List1.ListIndex
End Sub

Donc dc si qqun pouvait encore m aider...

ben moi, pour faire ca, j'utiliserais une méthode légèrement plus compliqué, mais que je trouve plus fiable.

je remplirai ma liste avec une boucle do-until, et je stockerais les information de la manière suivante, dans un tableau à deux dimensions, j'enregistrerais l'index de la liste correspondant à chaque enregistrement, couplé avec l'identifiant de l'enregistrement correspondant, de manière à ce que je puisse retrouver dans ce tableau l'identifiant d'un enregistrement, fonction de l'index de la sélection de la liste.

Donc, quand je sélectionnerai un élément de la liste, avec une petite recherche dans le tableau, je retrouverai l'identifiant correspondant.

si je veux supprimer celui-ci de la base, il me suffis d'executer une requete "delete from matable where identifiant=" l'identifiant retrouvé.

et la, il n'y a normalement pas de surprise.

(au fait, quand tu veux supprimer le premier élément de la liste, et que tu as une erreur, cela viens surement de ce que l'index du premier élément est 0 et qu'il veux sélectionner le précédent à un id inexistant, et que vb à du mal à gérer, il faut gérer toi même le repositionnement dans la liste de la sélection pour n'avoir aucun problème)

Bon courage

LINKWANG

slt

moi aussi j utilise une 3ème colonne que j ai appellé identifiant...mail ce numero apparait ds une list invisible. Mes 2 listes sont relie et marchent tres bien grace à une requete qui les classe automatiquement dans l ordre alphabetique.
donc en fait cliquer directement sur le nom ou l identifiant revient au meme....

En revenche je veux bien essayer d utiliser ton code:"delete from matable where identifiant=" l'identifiant retrouvé.

mais je ne comprend pas le code qu il fo mettre a la place de "identifiant touve"

Merci de ton aide

ben imagine que tu as une liste de clients. parmis eux, il y a le client DUPOND Georges avec l'Identifiant 05 (qui serais un numéro automatique comme on utilise beaucoup avec access par exemple) que tu veux supprimer, dans ton cas tu le sélectionne dans la liste et tu doit pouvoir retrouver donc au moins deux informations. Le nom du client et son ID qui dans ce cas serait 05. Pour le supprimer de la base tu ferais un bon "delete from clients where nocli=05".

si ton identifiant est du texte, fait gaffe de bien mettre tes quotes.

si tu utilises ado ta ligne pourrais ressembler a ca:

cnx.execute("delete from clients where noocli=" & "05" )

voila,

si t'as d'autre question, n'hesite pas..

bon courage

LINKWANG

slt linkwang,

merci de t occuper de moi...
je tiens d abord a te preciser que je debute(je pense que tu as vu ).
ensuite, j ai bien compris ce que tu voulais dire et c comme ca que fonctionne mon projet ms je ne vois pas ce que je dois mettre a la place du 05 ds ta formule: "delete from clients where nocli=05".

car je ve que ca supprime celui que je selectionne ds ma list...

Dc ou alors je suis vraiment nul et pas fais pr ca ou alors je sais pas

dans ta base de données, la structure du fichier d'où tu tires tes informations, elle est comment exactement, ca m'aiderai, mais si tu veux, écrit moi sans passer par le forum, ca ira plus vite
LINKWANG

je t ai repondu sur ta messagerie...