inserire risutati query in un array

[bluego78]

Sarà anche semplice ma io non riesco a risolverlo...

Ho una tabella prodotti e devo prendere tutti i prodotti che hanno il campo VETRINA impostato a TRUE, contarli e creare un array che contenga in ogni suo indice il campo ID_PRODOTTO dei prodotti estratti dalla query...

Io l'ho fatto ma continua a darmi problemi con l'array dicendomi "Subscript out of range"


Chi può aiutarmi??

SELECT id_prodotto FROM prodotti WHERE vetrina=true

Ora come faccio a ciclare e mettere tutti questi id_prodotto in un array???

[santino83_11_04]

rs.open "SELECT id_prodotto FROM prodotti WHERE vetrina=true",conn,1,1

dim arrProdotti(0)

start=0
while not rs.eof
redim preserve arrProdotti(start)
arrProdotti(start)=rs("id_prodotto")
start=start+1
rs.movenext
wend

oppure:

rs.open "SELECT count(id_prodotto) as tot, id_prodotto FROM prodotti WHERE vetrina=true group by id_prodotto",conn,1,1

dim arrProdotti
if not rs.eof then

i=0
redim arrProdotti(rs("tot"))
while not rs.eof
arrProdotti(i)=rs("id_prodotto")
i=i+1
rs.movenext
wend

errore piu, errore meno

[Roby_72]

Perché complicarsi la vita?

rs.open "SELECT count(id_prodotto) as tot, id_prodotto FROM prodotti WHERE vetrina=true group by id_prodotto",conn,1,1

dim arrProdotti
if not rs.eof then
arr_prodotti = rs.GetRows()
else
arr_prodotti = null
end if
rs.close
set rs =nothing

Roby

[bluego78]

Siete GRANDI ENTRAMBI!!

[santino83_11_04]

Originariamente inviato da Roby_72
Perché complicarsi la vita?

rs.open "SELECT count(id_prodotto) as tot, id_prodotto FROM prodotti WHERE vetrina=true group by id_prodotto",conn,1,1

dim arrProdotti
if not rs.eof then
arr_prodotti = rs.GetRows()
else
arr_prodotti = null
end if
rs.close
set rs =nothing

Roby

c'era anche il terzo metodo..anche se non mi piace questo metodo, mi da fastidio lavorare col doppio indice