Salut,
Bon je vais supposer que tu as deux tables:
[ table 1 ]
id
a
b
id2 ---| qui fait référence au champ cle de la table 2
|
[ table2 ] |
cle <----
d
e
f
'
' les déclarations des variables sont à faire ...
'
Call ConnexionBase
' Executer la requête n°1
sql1= "SELECT a,b,c FROM table1"
Set rs1 = New ADODB.Recordset
rs1.Open sql1, cnx, adOpenStatic, adLockReadOnly
max1 = rs1.RecordCount
For i = 1 To max1
' construction de ta requete 2 avec les infos de requete 1
sql2 = "SELECT d,e,f FROM table2 WHERE cle=" & rs1("id")
Set rs2 = New ADODB.Recordset
rs2.Open sql2, cnx, adOpenStatic, adLockReadOnly
' Afficher les données de la table 1
Debug.Print rs1("a") & " " & rs1("b") & rs1("c")
max2 = rs2.RecordCount
For j=1 To max2
' Afficher les données associées dans la table 2
Debug.Print " => données associées : " & rs2("d") & " " & rs2("e") & " " & rs2("f")
rs2.MoveNext
Next j
rs2.Close
Set rs2 = Nothing
rs1.MoveNext
Next i
rs1.Close
Set rs1 = Nothing
Call FermerConnexionBase
Voilà se que j'ai compris de ton problème ... tiens moi au courrant,
++
Zlub
|