Discussion :

[momolasd]

Bonsoir,

Je m'explique : j'ai besoin, pour remplir un fichier texte, d'informations venant de deux tables.
J'effectue donc une première requête qui remplis mon premier jeu de donnée que je parcours et pendant le parcours j'effectue une recherche avec la fonction find sur mon second recorset.

Or je ne sais pas comment utiliser le résultat renvoyé par cette méthode. Quelqu'un a t-il une idée ?

[loufab]

Bonjour,

Une fois positionné sur l'enregistrement grâce au find(first?) il te suffit de mettre les données d'un champ vers l'autre comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
rstDestination.edit
rstDestination.fields(nom) = rstSource.fields(nom)
rstDestination.update

Il existe un tuto sur DAO et un sur ADO.

Cordialement,

NB: tu ne peux pas faire tout avec la même requête ?

[momolasd]

Re-Bonjour et merci de votre réponse.

NB: tu ne peux pas faire tout avec la même requête ?

Non car je vais chercher mes info sur deux BDD différentes et à moins de me tromper cela ne peux pas s'effectuer en une seule requête.

Bonjour,

Une fois positionné sur l'enregistrement grâce au find(first?) il te suffit de mettre les données d'un champ vers l'autre comme ceci :

rstDestination.edit
rstDestination.fields(nom) = rstSource.fields(nom)
rstDestination.update
Il existe un tuto sur DAO et un sur ADO.

Cordialement,

En fait je parcours mon premier recordset et pendant le parcours j'effectue une recherche findfirst sur mon second recordset pour trouver l'enregistrement correspondant et obtenir les infos qu'il me manque.

Cependant je ne sais pas comment pointer sur ce résultat pour en extraire la valeurs des champs qui m'interessent..

Voici un extrait de mon code :

Selection = "******"


rs.Open Selection, oCnHeliosNatif, adOpenStatic, adLockReadOnly
rs.MoveFirst

selection2 = "********"
Set rs2 = CurrentDb.OpenRecordset(selection2)
rs2.MoveFirst

Do While Not (rs.EOF)

enr = "#" & rs!NO_RESA & "#;"
enr = enr & "#" & rs!COUT_HEBERG_TTC & "#;"
enr = enr & "#" & rs!COUT_FDD_TTC & "#;"
enr = enr & "#" & rs!COUT_ASSUR_TTC & "#;"
enr = enr & "#" & rs!CAUTION_HEBERG & "#;"
enr = enr & "#" & rs!ETAT_RESA & "#;"

rs2.FindFirst ("NO_RESA =' & rs!NO_RESA & '")

c'est ici que j'aimerais pouvoir extraire les donnée pour les écrire dans mon fichier txt


rs.MoveNext
a.WriteLine (enr)
Loop

En espérant avoir été le plus clair possible,
Bon appétit !

[momolasd]

Re,

Je me suis diriger vers le tchat et grâce à l'idée de @jimbolion j'ai réussi à me débrouiller autrement c'est a dire, oublier la méthode find first, et exécuter une requête a chaque boucle dans mon parcours du premier recordset qui pointe sur le bon enregistrement et je peux ainsi extraire mes données.

Quoi qu'il en soit merci de ta réponse & bon week-end !