20/01/2004, 11:33
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
| No te funciona igual un arreglo?
Dim arrIndices()
For i = 0 to rs.RecordCount - 1
If i = 0 Then
Redim arrIndices(i)
Else
Redim Preserve arrIndices(i)
End If
arrIndices(i) = rs("id")
rs.MoveNext
Next
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |