De Record Set a Array ? SOLUCIONADO con oRsGetRows()

[Armando]

Saludo a todo el foro:

Tengo el siguiente escenario:

En una tabla con MySql, tengo registros que al principio tienen 10 campos alfanuméricos y
al final del mismo registro hay doce campos (uno por mes) de tipo decimal con 0 decimales y
finalmente hay 12 campos (uno por mes) de tipo decimal pero con 2 decimales.

La pregunta: Existe alguna función que mueva los 24 campos a dos arrarys, uno para los primeros
12 campos y otro array para los siguientes 12 campos.?

Ahora lo hago a pie, pero no me agrada el código

AADD(anPzs,oRsSal:Fields("PZSENE"):Value)
AADD(anPzs,oRsSal:Fields("PZSFEB"):Value)
AADD(anPzs,oRsSal:Fields("PZSMZO"):Value)
etc
etc

Para después por un for/next obtener la suma
FOR nVez 1 To MONTH(DATE())
nSaldo += anPzs[nVez]
NEXT

La primera parte de este código es lo que no me agrada, son 24 AADD(), bua.

Alguna hebra?

Saludos

[JoseAlvarez]

Armando,

No estoy seguro de haber entendido bien tu pregunta, pero segun creo, esto te podría servir, yo lo uso con tDolphin:

Code: Select all  Expand view  RUN

aMyArray  := oQuery:FillArray()

Eso crea aMyArray con la consulta completa.

Espero te sirva.

[Armando]

José:

Te agradezco tu decidido apoyo.

El detalle es que yo no quiero pasar al array todos los campos del record set, solo unos cuantos
y uso ADO puro y duro.

Pero igual, se agradece

Saludos