24/09/2004, 11:13
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
Código:
cadena = ""
'Llenamos la variable cadena con los valores del rs, separamos cada
'elemento con una ","
While not rs.EOF
cadena = cadena & rs("campo") & ","
rs.MoveNext
Wend
'como al final va a tener una coma, necesitamos quitársela para no poner
'un índice más en blanco al momento de hacer el split:
If cadena <> "" Then
cadena = left(cadena, len(cadena) - 1)
End If
A ver si eso te funciona.
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |