28/10/2004, 12:12
|
 | Colaborador | | Fecha de Ingreso: enero-2002 Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses Puntos: 146 | |
| A ver, el problema principal es pasar tu rutina de arriba a una arreglo en lugar de trabajar con el objeto Fields, ¿verdad?
Bueno, sería algo así:
...
vector=rs.GetRows
NumCampo = 0 ' La posición del campo que corresponda con "nombre_cliente"
For contador=0 to Ubound(vector,2)
nomcli = vector(NumCampo, contador)
if len(""&nomcli&"")>13 then
nomcli = mid(""&nomcli&"",1,13)&".."
end if
Next
Saludos |