27/12/2004, 05:47
|
| | | Fecha de Ingreso: octubre-2004 Ubicación: Andorra!! Andorra!!!
Mensajes: 39
Antigüedad: 20 años, 6 meses 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 |