27/12/2004, 05:47
|
| | | Fecha de Ingreso: octubre-2004 Ubicación: Andorra!! Andorra!!!
Mensajes: 39
Antigüedad: 21 años, 1 mes Puntos: 0 | |
| Mmmm 2 cosillas.
1) la negación creo que era
while Not objRS.EOF
2) Sobretodo, acuerdate de hacer el objrs.movenext antes de acabar el bucle, sino te hará un bucle infinito
El codigo te quedaría asi
dim album()
cont=0
while not objRS.EOF
cont=cont+1
id=objRS("Id_book")
texto=objRS("descripcion")
ancho=objRS("ancho")
alto=objRS("alto")
album(cont)=id&".jpg_"&texto&"_"&ancho&"_"&alto&"_ "
objRS.movenext
wend |