FiveTech Support Forums

Hi everybody

I have a doubt

I have a Mysql Select with Tdolphin which contains a number of rows. Sometimes as many as 15000 rows, I have to transform it to an array to do some operations on the data.

Rigth now I'm doing this.

Local xArr:={}
Local xDb:=tDolphinQry():New("select f1, f2, f3 from xTable", oSvr)
Local x:=0

For x=1 to xDb:nRecCount
xDb:getRow()
Aadd(xArr,{f1,f2,f3,1,.F.})
xDb:Skip()
Next

How do I change it to FOR...EACH, It's been quite fast for working with arrays, but I can't make it work with Tdolphin's select, I'm adding some values to the array, so I can't use xDb:FillArray()

Thanks in advance.

From Chile
Adolfo

For instance...
If I do this

For EACH x IN xDb
Aadd(xArr,{F1,F2,F3,1,.F.})
xDb:Skip()
Next

I get only 38 records from the total of 6900, No Error of any type, tha's starnge, only works for a piece of the total data

How many fields there are in xDb?

EMG

Probably you are iterating through a default property of xDb, not through records.

EMG

Mr Adolfo

Your case is not fit for using FOR EACH ... This can be used only for Arrays.

Note:
This is only for general information. Not for dolphin
FWH RowSet ( oQuery ) has GetRows method.

aRows := oQry:GetRows()

Thanks.. gonna try another aproach.