cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 20099 1 sept. 2004 à 18:09
Petit Exemple en D.A.O
Set Db = OpenDatabase(AdresseBase)
Set Req = Db.OpenRecordset("SELECT Nom, Prenom FROM Personnes ")
If Req.recordcount<>0 then
Do Until Req.EOF
Set Ajout = Db.OpenRecordset("SELECT NomBase2, PrenomBase2 FROM PersonnesBase2 ")
Ajout.AddNEw
Ajout("NomBase2") = Req("Nom")
Ajout("PrenomBase2") = Req("Prenom")
Ajout.Update
Req.movenext
Loop
end if
Set Req=Nothing
Set Db=Nothing