ADO: load recordset into an Array

[MOISES]

Hi,

In my previous Harbour and FWH version, in order to load contents of Recordset in ADO, I did:

Code: Select all  Expand view  RUN

 IF ! ( oRsClientes:Eof .and. oRsClientes:Bof )
     oRsClientes:MoveFirst()
     aArray1 := oRsClientes:GetRows()
  ENDIF

But now, the format of the array is wrong. Is there another way to achieve the result?

Thank you.

[leandro]

Una idea

Code: Select all  Expand view  RUN

hData := RsToHash( oRsClientes)
 

[MOISES]

Now I have problems with XBROWSE COMMAND:

@ 0, 0 XBROWSE oPanel2:oControl OF oDash ;
COLUMNS 1, 2, 3, 4, 5, 6 ;
HEADERS "Nº Cliente", oSayDNI(), "Apellidos", "Nombre", "Localidad", "Teléfono" ;
ARRAY aArray1 ;
PICTURES "9,999,999"

Does not show the hash.

But the recordset is converted into hash with RsToHash()

Thank you,

[nageswaragunupudi]

Hi,

In my previous Harbour and FWH version, in order to load contents of Recordset in ADO, I did:

Code: Select all  Expand view  RUN

 IF ! ( oRsClientes:Eof .and. oRsClientes:Bof )
     oRsClientes:MoveFirst()
     aArray1 := oRsClientes:GetRows()
  ENDIF

But now, the format of the array is wrong. Is there another way to achieve the result?

Thank you.

This is due to a change in the Harbour libraries. Nothing to do with FWH.
We have now provided a function

Code: Select all  Expand view  RUN

aRows := RsGetRows( oRs, [nRows], [nStart], [aFields] )

This function is safe to use with Harbour (both new and old versions) and also xHarbour.
You need to change all

Code: Select all  Expand view  RUN

aData := oRs:GetRows()
 

as

Code: Select all  Expand view  RUN

aData := RsGetRows( oRs )
 

EVERYWHERE in your application. There is no escape from this, because of the change in Harbour libraries.

Depending on your requirements, you can also use

Code: Select all  Expand view  RUN

hData := RsToHash( oRs, ..... )
cJson  := RsToJson( oRs, .... )
 

[MOISES]

Thank you. RsGetRows( oRs ) Works perfect.

Two more related questions please:

1.- Is there any other change to ADO stuff that must be aware of?

2.- Also there is the Hash approach: aArray1 := RsToHash( oRs )

Is this fastest?

[nageswaragunupudi]

2.- Also there is the Hash approach: aArray1 := RsToHash( oRs )

Is this fastest?

RsGetRows() is faster than RsToHash()