1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub a_1()
Dim rs As New ADODB.Recordset
Dim str As String
Dim rs1 As New ADODB.Recordset
Dim str1 As String
str = "SELECT distinctrow ARTICLE_DETAILLE.AR_ARTICLE From ARTICLE_DETAILLE"
rs.Open str, cnx, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
str1 = "SELECT distinctrow ARTICLE.AR_NUM_ORDRE, ARTICLE.AR_CODE_ARTICLE FROM ARTICLE"
rs1.Open str1, cnx
Do While Not rs1.EOF
If rs!AR_ARTICLE = rs1!AR_CODE_ARTICLE Then
rs!AR_ARTICLE = rs1!AR_NUM_ORDRE
End If
rs1.MoveNext
Loop
rs1.Close
rs.MoveNext
Loop
rs.Close
End Sub |
Partager