Problème sur un recordset

Bonjour,

Je souhaite récupérer des données par l'intermédiaire d'un recordset. Pour cela, j'ai codé :

Code:

---

1 2 3 4 5 6 7 8

rsRecords_achat.Open "select b.reference, b.designation, b.id_besoin, (b.qte_total_besoin - nvl(tmp.total,0) - nvl(b.qte_tot_reserve,0)) as tot_besoin from toperp.t_besoin b " _ & " inner join t_article a on b.id_article = a.id_article inner join topmes.wo_material wm on wm.id_wo_material = b.id_besoin_org inner join topmes.wo w " _ & " on wm.id_wo = w.id_wo left outer join (select bi.id_besoin, sum(bi.qte_tot_reserve) As total from toperp.t_besoin_stock_in bi group by bi.id_besoin) tmp on b.id_besoin = tmp.id_besoin " _ & " where b.id_besoin_org = " & rsRecord_res.Fields("id_wo_instruction").Value, conn, adOpenForwardOnly, adLockReadOnly   If conn.State = adStateOpen Then   If Not rsRecords_achat.EOF Then

---

Ma requête ne restitue rien en vba. En collant la requête sous SQLDEVELOPPER, j'obtiens un résultat. Je ne vois pas d'où peut venir mon problème dans le curseur.

Bonjour,
hormis que tu test la connexion après l’exécution de ta requête, je ne voie pas de problème en soit.

as tu testé ta requête sans la close where!

quand et comment est généré rsRecord_res.Fields("id_wo_instruction").Value?

pour la valeur de rsRecord_res.Fields("id_wo_instruction").Value que dit SQLDEVELOPPER?

tu fais des lien droit (inner join) ta clé se trouve bien dan toutes tes table? (Left Join)?

Code:

---

1 2 3 4

while rsRecords_achat.EOF=false ActiveCell=rsRecords_achat(0).value rsRecords_achat.movenext wend

---

SQLDEVELOPPER restitue des données pour la valeur de wo_instruction que le curseur précédent a restitué.

J'ai l'impression que mon curseur est mal codé. Ne manque t-il pas des guillemets à la fin ?

Bonjour,
envois ton script dans la fenetre d execution debug.print sql et colle le resultat dans sqldeveloppeur