FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour De Record Set a Array ? SOLUCIONADO con oRsGetRows()
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
De Record Set a Array ? SOLUCIONADO con oRsGetRows()
Posted: Sat Feb 17, 2024 01:12 AM
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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: De Record Set a Array ? SOLUCIONADO con oRsGetRows()
Posted: Sat Feb 17, 2024 07:24 PM
Armando,

No estoy seguro de haber entendido bien tu pregunta, pero segun creo, esto te podr铆a servir, yo lo uso con tDolphin:
Code (fw): Select all Collapse
aMyArray 聽:= oQuery:FillArray()
Eso crea aMyArray con la consulta completa.

Espero te sirva.
"Los errores en programaci贸n, siempre est谩n entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: De Record Set a Array ? SOLUCIONADO con oRsGetRows()
Posted: Sat Feb 17, 2024 07:46 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion