Probleme de liste deroulante

Bonjour,

Depuis plusieurs jours je suis confronté à un problème bien embêtant ! Je développe actuellement un petit logiciel pour une entreprise en stage et j’ai un sérieux souci avec les listes déroulantes en VB !
En effet, lorsque j’essaye d’insérer des données dans ma BDD via une liste déroulante, tout fonctionne sauf la dernière ligne ! Impossible de voir ou est le problème…
J’ai fait plusieurs Screenshot pour que vous compreniez mieux.

Voici tout d’abord la liste déroulante, lorsque je choisis "Almacen" ou "Compras", il n’y a aucun problème, par contre j’ai un message d’erreur lorsque je choisis "Informatica" !

http://images.imagehotel.net/vx0g19zu84.png

Le programme s'arrête et affiche cette erreur:
http://images.imagehotel.net/6qsmli6rv5.png

Comme vous pouvez le voir, un message d’erreur m’indique qu’il n’y a pas de ligne 17 pourtant dans ma base de données j’ai bien 17 lignes (d’ailleurs « informatica » correspond à la 18eme ligne…)

http://images.imagehotel.net/6kgte5qao2.png
Je ne sais donc pas comment résoudre ce problème et une aide de votre part me serait précieuse.
Merci d’avance

Bonsoir,

Peux tu nous donner le code que tu utilise pour faire l'insertion ? Parce que dans tes imprime écrans, Le code n'apparait pas correctement.

Hello,
quand je compte les éléments de la liste, j'en compte 17, donc l'index maximum est de 16... Il manque dans la liste l'élément n°15 qui ferait, s'il existait, 18 éléments... ;)

P.S. : Moi ce que j'aimerais voir c'est le code de remplissage du comboBox...
Utilise les balises CODE représentée par la # dans l'éditeur, c'est plus lisible :P

Salut,

C'est vrai que je n'avais même pas remarqué que la ligne 15 manquait à l'appel.
Et donc l'index maxi est 16 au lieu de 17. Il serait intéressant d'avoir le code où apparait l'erreur.

Merci pour vos reponses ! Je n'avais pas internet hier soir je ne pouvais donc pas vous repondre.

Alors voici le code por la requête et l'insertion dans la combo box:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'LA REQUETE POUR LES SERVICES   req3 = "Select NoService, NomService from Service ;"   CmdServ = New OleDbDataAdapter(req3, Cnx) CmdServ.Fill(JddServ) ' et remplissage de la liste déroulante Me.LstService.Items.Add("Todos los servicios") For Each UnServ In JddServ.Rows Me.LstService.Items.Add(UnServ.Item("NomService"))   Next UnServ Me.LstService.SelectedIndex = 0

---

Voici par contre l'insertion dans la BDD

Code:

---

1 2 3 4 5 6 7

If ContrôleDonnées() = True Then If ActionEnCours = "ajout" Then ' préparation d'une requête Insert : req = "Insert into Salaries (NomSalaries, PrénomSalaries, Email, " req &= "Telephone, NoService)" req &= " values ('" & RemplacePrenom(TxtNom.Text) & "', '" & RemplacePrenom(TxtPrenom.Text) & "', '" & TxtEmail.Text req &= "', '" & TxtTelephone.Text & "', " & NoService & " )"

---

et dans la fonction controle données, je donne une valeur à NoService(C'est la ou ça plante)

Code:

---

NoService = Me.JddServ.Rows((Me.LstService.SelectedIndex)).Item("NoService")

---

Ps: En effet, l'element nº15 est manquant car j'offre la possibilité à l'utilisateur de supprimer un ou plusieurs services s'il le souhaite. Donc si l'utilisateur supprime un service, tout se decale au niveau des Rows...

Salut,

que souhaite tu faire avec cette ligne ?

Code:

---

NoService = Me.JddServ.Rows((Me.LstService.SelectedIndex)).Item("NoService")

---

C'est pour juste comprendre le code.

Je souhaite récuperer le numero de la ligne de la liste déroulante.
Je pensais que le numero de cette ligne correspondant au "Numero Service" présent dans ma table mais dès que je supprime une donnée dans ma table tout se décale.

Exemple, ma liste déroulante contient 15 lignes. Je pensais que la 15eme ligne de la liste deroulante correspondrait à la 15 eme ligne de ma table ACCESS.

J'ai besoin de memoriser le "numero Service" pour pouvoir ensuite l'inserer dans ma table via un insert into.

J'ai l'impression que tu mélanges un index dans la liste Item, qui commence à 0 et n'as jamais de trou, avec un champ integer sur ta table de donnée, qui commence à 1 et qui à des trous.

Risque pas de fonctionner sur le long terme des trucs du style...

moi ce que je comprends c'est que sont JddServ et LstService, le mieux étant de préfixer les controles par leur type genre DGV et CMB

Oui c'est dont je me suis rendu compte, il faut donc que je trouve un autre moyen pour recuperer le "NumeroService" de ma liste deroulante.

Edit: Probleme Resolu, après avoir fait des recherches de mon coté.

La solution: il faut donc soustraire de 1 pour obtenir la ligne désiré et donc le numeroservice

Code:

---

NoService = Me.JddServ.Rows(Me.LstService.SelectedIndex - 1).Item("NoService")

---

Il y a beau avoir plusieurs "trous" dans ma table (j'ai testé), "NumeroService" prend bien en compte la valeur que je souhaite lui assigner.

Merci pour votre aide qui m'a permis de voir ou était le problème !

sur le combobox au lieu de mettre des string on peut mettre des classes (donc par exemple une avec l'id as integer et le nom as string)
ensuite tu peux dire au combobox d'afficher le nom (displaymember) et lire l'id (valuemember)
comme ca selectedvalue te retournera l'id alors que selecteditem te retournera l'instance de la classe avec les 2 propriétés

J'ai editer mon message précedent après que tu ais posté. L'idée des classes est une bonne idée aussi mais comme enoncé precedemment le code que je viens de modifié marche. Je n'ai plus d'erreur "IndexOutOfRange". J'ai supprimé plusieurs champs dans ma base et l'insert se passe bien ;)

Merci tout de même !

N'oublie pas de bien géré le cas du "Todos los servicios" qui est à l'index 0 dans la comboBox...

Ouep, les utilisateurs auront le droit à un message d'erreur ;)