[VB6]: Impossibile trovare oggetto in RecordSet

[ciucciatiilcalzino]

ciao a tutti in un form
dopo un clil su un tasto lancio questo ciclo



SQL = "SELECT prodotti.prod_cat, ProdottiOrdinati.ord_qta, ProdottiOrdinati.ord_prod_prz, ProdottiOrdinati.ord_prod_tsp FROM ProdottiOrdinati INNER JOIN videogames ON ProdottiOrdinati.ord_prod_id = videogames.prod_id where ProdottiOrdinati.ID = " & idOrdine

adoProdOrd.Recordset.Open SQL
adoProdOrd.Refresh
Do Until adoProdOrd.Recordset.EOF
prezzoProdTot=adoProdOrd.Recordset("ord_qta")*adoP rodOrd.Recordset("ord_prod_prz")
totaleOrdine = totaleOrdine + prezzoProdTot

prod_cat = adoProdOrd.Recordset("prod_cat")

adoProdOrd.Recordset.MoveNext
Loop


purtroppo mi continua a dare un errore su questa riga
prod_cat = adoProdOrd.Recordset("prod_cat")

ho verificato la query in sql server ed è corretta

l'errore che mi restituisce è :
impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto

onestamente sto provando da un pò e non trovo proprio la soluzione

cosa sto sbagliando?

[alka]

VB6? :rollo:

[ciucciatiilcalzino]

si

[EngLab]

Originariamente inviato da ciucciatiilcalzino
ciao a tutti in un form
dopo un clil su un tasto lancio questo ciclo



SQL = "SELECT prodotti.prod_cat, ProdottiOrdinati.ord_qta, ProdottiOrdinati.ord_prod_prz, ProdottiOrdinati.ord_prod_tsp FROM ProdottiOrdinati INNER JOIN videogames ON ProdottiOrdinati.ord_prod_id = videogames.prod_id where ProdottiOrdinati.ID = " & idOrdine

adoProdOrd.Recordset.Open SQL
adoProdOrd.Refresh
Do Until adoProdOrd.Recordset.EOF
prezzoProdTot=adoProdOrd.Recordset("ord_qta")*adoP rodOrd.Recordset("ord_prod_prz")
totaleOrdine = totaleOrdine + prezzoProdTot

prod_cat = adoProdOrd.Recordset("prod_cat")

adoProdOrd.Recordset.MoveNext
Loop


purtroppo mi continua a dare un errore su questa riga
prod_cat = adoProdOrd.Recordset("prod_cat")

ho verificato la query in sql server ed è corretta

l'errore che mi restituisce è :
impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto

onestamente sto provando da un pò e non trovo proprio la soluzione

cosa sto sbagliando?

Su quale riga ti ferma l'esecuzione e te la evidenzia di giallo?

[ciucciatiilcalzino]

prod_cat = adoProdOrd.Recordset("prod_cat")
questa è la riga che mi da l'errore

la cosa strana e che se commento adoProdOrd.Refresh
funziona