Discussion :

[zeusensa]

Bonsoir tout le monde

je vous pries de bien vouloir m'aider : je suis en train de développer une application et je rencontre un sérieux problème avec une boucle qui marche pas! juste après la première itération je sors de la boucle ! voici mon code

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
For k = 0 To nbrref - 1
 
            requete2 = "select count(distinct kanban) from BOM where PN='" & ListBox2.Items.Item(k) & "' and process='Joint';"
 
            requete3 = "select distinct kanban from BOM where PN='" & ListBox2.Items.Item(k) & "' and process='Joint';"
 
            Dim mycommand2 As New MySqlClient.MySqlCommand(requete2, oConn)
            Dim mycommand3 As New MySqlClient.MySqlCommand(requete3, oConn)
            mycommand2.ExecuteNonQuery()
            mycommand3.ExecuteNonQuery()
            Dim dr3 As MySqlClient.MySqlDataReader
 
 
            'retourner le nombre de joints vérifiant la condition 
            compteur = mycommand2.ExecuteScalar
 
            dr3 = mycommand3.ExecuteReader()
 
            'déclaration d'un tableau pour contenir les codes kanban des joints
            Dim tab(compteur - 1) As String
 
            'remplissage du tableau 
 
            While (dr3.Read())
                ListBox10.Items.Add(dr3.GetValue(l))
            End While
            dr3.Close()
 
            For i = 0 To compteur - 1
                tab(i) = ListBox10.Items.Item(i)
            Next
 
            'comparaison de la liste des joints totale avec les joints relatifs uniquement à la réference en cours
            For m = 0 To nbrj
                For n = 0 To compteur - 1
                    If ListBox3.Items.Item(m) = tab(n) Then
 
                        matrice(m, k) = 1
                    Else
                        matrice(m, k) = 0
 
 
                    End If
                Next
 
            Next
        Next

j'ai fermé les trois boucles imbriquées avec les trois NEXT mais ça ne marche toujours pas ! Merci à vous tous

[marcallag]

Bonjour,
intéresse toi à la valeur de 'nbrref ', elle doit étre égale à 1 pour ne passer qu'une fois dans la boucle.

Cela dit, attention à ton code :
- Attention à l'injection SQL, il faut paramétrer tes requêtes SQL, même si dans ton cas tu prends des items de List, c'est une bonne pratique.
- A quoi servent mycommand2.ExecuteNonQuery()
et mycommand3.ExecuteNonQuery() ?
- A quoi sert ta requete2 puisque c'est en fait le nombre de ligne de requete3 ?