Discussion :

[Blito]

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]

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]

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]

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]

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]

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]

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.

[Blito]

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