Probleme de liste deroulante

**Blito** · 07/02/2011, 13h35

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" !

Le programme s'arrête et affiche cette erreur:

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…)

Je ne sais donc pas comment résoudre ce problème et une aide de votre part me serait précieuse.
Merci d’avance

**peregna2007** · 07/02/2011, 23h06

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.

**Sankasssss** · 07/02/2011, 23h50

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

**peregna2007** · 08/02/2011, 10h19

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.

**Blito** · 08/02/2011, 10h32

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

**peregna2007** · 08/02/2011, 11h51

Salut,

que souhaite tu faire avec cette ligne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

C'est pour juste comprendre le code.

**Blito** · 08/02/2011, 12h05

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.

**sinople** · 08/02/2011, 12h46

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...

**Pol63** · 08/02/2011, 12h48

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

**Blito** · 08/02/2011, 12h58

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

**Pol63** · 08/02/2011, 13h17

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

**Blito** · 08/02/2011, 13h31

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 !