tu peux creer un requete puis extraire les donnes
exemple:
dim r,t,i r=0 t=0 i=0 set rs=objCon.Execute("SELECT NPERE.NomPere, EspecesAli.NomEsp, PERETAXON.SomGenes," & _ " PERETAXON.SomEsp,PERETAXON.Rang,EspecesAli.NumEsp," & _ " PERETAXON.ReferencePeres FROM EspecesAli INNER JOIN " & _ " (NPERE INNER JOIN PERETAXON ON NPERE.NumPere = PERETAXON.ReferencePeres) " & _ " ON EspecesAli.NumEsp = PERETAXON.RefEsp ;") do t=rs("NumEsp") r=rs("Rang") aListePere(t,r)=rs("NomPere") & chr(10) & rs("SomGenes") & chr(10) & rs("SomEsp") TabRefPere(t,r)=rs("ReferencePeres") i=i+1 rs.MoveNext loop until rs.EOF rs.close set rs=nothing
ok?
laure
|