Deux boucles while

Version imprimable

Deux boucles while

Bonjour à tous
je suis entrain de récupérer des enregistrement d'un recordset et comparer chaque enregistrement avec l'enregistrement suivant j'ai fait pour cela deux boucles while voilà une partie du code

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
29
30
31
TxtSQLGlobal = "select * " & _
"from  soldeTest where (DateFacture between '" & Date1 & "' and  '" & Date2 & "') and (CodeArticle between  '" & Article1 & "'and '" & Article2 & "')order by NDossier,DateFacture"
   TxtSQLGlobal2 = "select * " & _
"from  soldeTest where (DateFacture between '" & Date1 & "' and  '" & Date2 & "') and (CodeArticle between  '" & Article1 & "'and '" & Article2 & "')order by NDossier,DateFacture"
 
   Set li = New ADODB.Recordset
   Set li2 = New ADODB.Recordset
   li.Open TxtSQLGlobal, ConnectionGlobal, adOpenStatic, adLockOptimistic
 
   li2.Open TxtSQLGlobal2, ConnectionGlobal, adOpenStatic, adLockOptimistic 
li.MoveFirst
'li2.MoveFirst
While li.EOF = False
li2.MoveFirst
While li2.EOF = False
li2.MoveNext
'Array1 = li2.GetRows(j + 1)
'typ = Array1(19, j + 1)
'MsgBox (typ)
 
If li.Fields("DateFacture") = li2.Fields("DateFacture") And li.Fields("NDossier") = li2.Fields("NDossier") And li.Fields("TypeFacture") = "Livraison Client" And li2.Fields("TypeFacture") = "Livraison Client" Then
MsgBox ("oui")
If (li.Fields("total02") <> 0) Then
 
li.Fields("total03") = li.Fields("total03") - li.Fields("total02")
End If
End If
Wend
  li.MoveNext
 
Wend

mais il m'affiche une erreur

BOf ou EOF est égal à true ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel

merciii pour vos aides

Salut

Code:

1
2
3
4
TxtSQLGlobal = "select * " & _
"from  soldeTest where (DateFacture between '" & Date1 & "' and  '" & Date2 & "') and (CodeArticle between  '" & Article1 & "'and '" & Article2 & "')order by NDossier,DateFacture"
TxtSQLGlobal2 = "select * " & _
"from  soldeTest where (DateFacture between '" & Date1 & "' and  '" & Date2 & "') and (CodeArticle between  '" & Article1 & "'and '" & Article2 & "')order by NDossier,DateFacture"

:nono:

:ccool:

Code:

1
2
3
4
TxtSQLGlobal = "select * " & _
"from  soldeTest where (DateFacture between #" & Date1 & "# and #" & Date2 & "#) and (CodeArticle between '" & Article1 & "'and '" & Article2 & "')order by NDossier,DateFacture"
TxtSQLGlobal2 = "select * " & _
"from  soldeTest where (DateFacture between #" & Date1 & "# and #" & Date2 & "#) and (CodeArticle between  '" & Article1 & "'and '" & Article2 & "')order by NDossier,DateFacture"

De plus, il n'est pas vraiment utile d'avoir 2 variables requêtes puisque quelles sont identiques.

Code:

1
2
3
4
 
   li.Open TxtSQLGlobal, ConnectionGlobal, adOpenStatic, adLockOptimistic
 
   li2.Open TxtSQLGlobal, ConnectionGlobal, adOpenStatic, adLockOptimistic

Que contient Article1 et Article2, car l'utilisation de between est délicat sur les types littéraux.

18/06/2013, 18h00
SISGI

il m'affiche une erreur syntaxe incorrecte vers #

je pense pas qu’il y a un problème dans la requete par ce que j'ai fait un test sur le nombre d'enregistrement et il retourne 23 enregistrements

J'ai réglé le problème, merci à tous, voilà une partie du code pour ceux qui ont le même problème

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
29
If (li.RecordCount > 0) Then
 
    For i = 0 To li.RecordCount - 2
        D1 = li.Fields("DateFacture")
 
        If Not IsNull(li.Fields("NDossier")) Then
            typ = li.Fields("NDossier")
        End If
        li2.MoveFirst
 
        For j = 1 To li2.RecordCount - 1
            D2 = li2.Fields("DateFacture")
            li2.MoveNext
            If (li.Fields("TypeFacture") = "Livraison Client" And li2.Fields("TypeFacture") = "Livraison Client") Then
                If Not IsNull(li2.Fields("NDossier")) Then
                    Typ2 = li2.Fields("NDossier")
                End If
                If typ = Typ2 Then
                    If D1 = D2 Then
                        li.Fields("total03") = li.Fields("total03") - li.Fields("total02")
                        MsgBox (li.Fields("total03") + 1)
                    End If
                End If
            End If
        Next
 
        li.MoveNext
    Next
End If

Bonne journée