Boucle while imbriquées

Version imprimable

Bonjour,

Quelqu'un pourrait-il me dire pourquoi ma boucle en rouge ne tourne une fois et pas le nombre de fois que ma boucle en verte tourne

Code:

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
 While (dr.Read())
                MsgBox(n)
                Dim min = (dr.Item("DENSMIN"))
                Dim max = (dr.Item("DENSMAX"))
                Dim moy = (dr.Item("DENSMOY"))
                Dim Actif As Boolean
                'converir les valeurs afin qu ils soient comphreensible par les check box
                If (dr.Item("ACTIF") = "Y") Then
                    Actif = True
                Else
                    Actif = False
                End If
                While (dr1.Read)
                    MsgBox("ok")
                    If (dr.Item("CODPRO") = dr1.Item("CODPRO")) Then
                        emulation = "ME"
                        'MsgBox("ok")
                    Else
                        emulation = ""
                    End If
                End While
                Dim rown As String() = {dr.Item("CODPRO"), min, max, moy, Actif, emulation}
                With Distinct.DatagridDensity.Rows
                    .Add(rown)
                End With
                n = n + 1
            End While

04/04/2008, 10h28
boubounne

Quels sont les contenus de DR et DR1 ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        Dim n As Integer = 1
        Dim emulation As String = ""
        '-----------------------------------------------
        cmd.CommandText = requete
        cmd.AddRowid = True
        cmd.CommandType = CommandType.Text
        Dim dr As OracleDataReader = cmd.ExecuteReader()
        '-----------------------------------------------
        cmd1.CommandText = requete1
        cmd1.AddRowid = True
        cmd1.CommandType = CommandType.Text
        Dim dr1 As OracleDataReader = cmd1.ExecuteReader()

merci de ton aide

04/04/2008, 10h32
quentincabo

les requêtes sont les suivantes

Code:

"requete = select * FROM PROCESSTRG.DENSITY"

Code:

"requete1 = select * FROM PROCESSTRG.AJUST_EM_NAOH_VOLMAX"

L'ouverture d'oracles 9 est réalisée mais je ne l'ajoute sauf demande de votre part. Les requêtes sont bonnes et les champs utilisé sont bon eux aussi.8O

C'est pourquoi moi je ne comprends pas
04/04/2008, 10h34
BalBalNet

Peut-être parce requete<>requete1 ...?
04/04/2008, 10h40
quentincabo

Pourquoi?? je ne comprends ce que tu veux dire par là
04/04/2008, 10h48
BalBalNet

si la requete (DR) ne renvoie pas le même nombre d'enregistrements que la requete1 (DR1), il est normal que leur boucle n'est pas non plus le même nombre de passage
04/04/2008, 10h54
boubounne

et tes requêtes retournent bien plusieurs résultats ?? Je sais que ma question est un peu débile, mais on sais jamais...

Sinon, il ne faut pas remettre le dr au debut une fois que t'a fini de le lire ?? du genre dr.close()
04/04/2008, 11h01
quentincabo

Avant tout merci de vos réponses:

Biboune : ma requete possède 23 résultats différents et ma requete1 possède 5 resultats différents

J'ai quand même rajouté close mais cela ne change rien
04/04/2008, 11h08
quentincabo

le but de mes boucles est de tester pour chaque élément de requete(dr) si un élément de requete1(dr1) est identique.

Mais cela le réalise parfaitement pour la premiere valeur de requete(dr) mais pour les 22 autres valeurs la boucle imbriquées ne se remet pas en route.
Et je ne sais pas pourquoi
04/04/2008, 11h10
boubounne

met un dr.close a la sortie du second while, et test..
04/04/2008, 11h10
BalBalNet

ah ok, dès la 2ème passe dans la boucle DR, le DR1 a déjà été lu jusqu'au bout
donc où il faut le relancer, ou travailler avec un dataset
04/04/2008, 11h15
quentincabo

OK merci, je crois que ce que tu dis est bon mais comment on relance une boucle ou on utilise un dataset.

merci d'avance
04/04/2008, 11h25
BalBalNet

Connais-tu la classe ADO ? Sinon comme ça :
http://www.developpez.net/forums/sho...hlight=dataset
04/04/2008, 11h29
quentincabo

Merci pour ton aide et pour le lien. maintenant, je vais chercher un peu par moi-même car je ne voudrai pas abusé.

Mais merci pour tout:king:

J'ai oublie de te répondre oui je connais la classe ADO mais je ne suis loin d'être pro dans ce domaine