How to copy a row of a rowset

[vilian]

Hi Guys,

I have a rowset oRs that have a lot of rows.
I wanted to copy only one row/record of oRs to a new rowset(oRL). Is It possible ?

[Adolfo]

Simple, use MYSQL

INSERT INTO clientes SELECT * FROM personas WHERE id='42431-01'

Hope it helps
From Chile
Adolfo

[vilian]

Thank you,

But I don't want insert a new record. I want create a new rowset from a line of previous rowset.

[leandro]

Una idea

Code: Select all  Expand view  RUN

//RsToHash( oRs, [nRows], [nStart], [aFields] )
hPrueba := RsToHash( oRsFtr, 1, 1 )
xbrowse( hPrueba )
 

[vilian]

Thanks Leandro,
It's almost what I wanted. But in your code you are creating a hash and I wanted created a new rowset.

[leandro]

Otra idea

Code: Select all  Expand view  RUN

RsGetRows( oRs, [nRows], [nStart], [aFields] )
 

[vilian]

It's also returning an array and I wanted a object

[Marc Venken]

nTotal := oCn:QueryResult( "SELECT SUM(SALARY) FROM CUSTOMER" )



Read field values of a row into an array
CODE: SELECT ALL EXPAND VIEW

cList := "ID,FIRST,LAST,CITY,SALARY"
aRow := oCn:QueryResult( "SELECT " + cList + " FROM CUSTOMER WHERE ID = 100" )


Copy the same values to another row at ID = 150:
CODE: SELECT ALL EXPAND VIEW

// modify/edit any values of the aRow
aRow[ 1 ] := 150 // do not change for saving to same row
oCn:Insert( "customer", cList, aRow, .t. ) // .T. indicates update if primary key exists


Copy present values of a row and append as new record
CODE: SELECT ALL EXPAND VIEW

aRow := oCn:QueryResult( "SELECT * FROM CUSTOMER WHERE ID = 100" )
aRow[ 1 ] := 0
oCn:Insert( "customer", nil, aRow ) // fwh 16.11. aFields can be nil

Maybe this can help : Examples from this link :

viewtopic.php?f=3&t=32737

[vilian]

Thanks,
I already read this topic and did not find what i need.

[leandro]

En ese orden de ideas, ya tienes el objeto, lo único que hay que hacer es ubicarse sobre el registro a leer y llamar la linea completa, así:

Code: Select all  Expand view  RUN

oRow := oRs:Fields
 

[betoncu]

oCurrentRs := oCn:Query( "SELECT * FROM CUSTOMER" )

oNewRow := oCn:Query( "SELECT * FROM CUSTOMER WHERE ID < 0" ) //Get an empty row (There is no customer has a negative id)

FOR nI=1 TO oCurrentRs:FCount()
oNewRow:FieldPut(nI, oCurrentRs:FieldGet(nI))
NEXT

[nageswaragunupudi]

Code: Select all  Expand view  RUN

aRows := oRs:GetRows( 1, oRs:KeyNo )
 

This gives a two-dimensional array with a single row

Code: Select all  Expand view  RUN

{ { col1value, col2value, ... colNvalue } }
 

If you want to insert the data into another existing RowSet with identical structure, you can do it using oRs2:AddNew( aFields, aRows[ 1 ] ) }
But you can not create a new rowset in memory with this data.
A RowSet can be created ONLY by reading data from the MySql database via an sql query.

If you want to create an object, which works similary, holding this data, you can create TArrayData object

Code: Select all  Expand view  RUN

oData := TArrayData():New( aRows, oRs:aStructure )
 

[vilian]

Thank you !

[alvaro533]

Code: Select all  Expand view  RUN

aRows := oRs:GetRows( 1, oRs:KeyNo )
 

This gives a two-dimensional array with a single row

Code: Select all  Expand view  RUN

{ { col1value, col2value, ... colNvalue } }
 

If you want to insert the data into another existing RowSet with identical structure, you can do it using oRs2:AddNew( aFields, aRows[ 1 ] ) }
But you can not create a new rowset in memory with this data.
A RowSet can be created ONLY by reading data from the MySql database via an sql query.

If you want to create an object, which works similary, holding this data, you can create TArrayData object

Code: Select all  Expand view  RUN

oData := TArrayData():New( aRows, oRs:aStructure )
 

Good morning,

In oRs:aStructure the field type for the “primary key” is “+” instead of “N”, so the “primary key” value is not copied properly in TdataArray

The solution is either modify TdataArray and add ‘+” as a field type, like “N”, “D”, “C”, etc. or put this in your code.

Code: Select all  Expand view  RUN

   aRows := oRs:GetRows(  )
   aStru := aclone( oRs:aStructure )
   aeval( aStru, { | aAr , n | iif( aAr[2]=='+' , aAr[2]:='N',nil)  } )
   oData := TArrayData():New( aRows, aStru )
 

Regards

[nageswaragunupudi]

ok thanks