[GOOGLE TRANSLATOR]
Good Morning
Some time ago I modified the for postgresql contrib added the ability to
access data as follows
Instead of:
oQuery:getRow(oQuery:recno()):fieldget('codigo')
It can be used like this:
oQuery:codigo
This method has provided much programming, and so come to share with you.
I would like to include the sources in SVN.
Greetings
Buenos Dias
Hace algún tiempo he modificado el contrib para postgresql agregandole la
posibilidad de acceder a los datos de la siguiente manera
En vez de:
oQuery:getrow( oQuery:recno() ):fieldget('codigo')
Se puede usar así:
oQuery:codigo
Este método ha facilitado y mucho la programación, y por esto vengo a
compartir con ustedes.
Me gustaría que se incluyera a los fuentes en el SVN.
Saludos
*****************************
*** Rodrigo Machado ***
*** rodrigo at flaro.net ***
*** 30/08/2008 - 7:26 ***
*****************************
METHOD SetFieldsValues() CLASS TPQquery
Local i
Local aData
if ::nRecno > 0
aData := array( len( ::aStruct ), 2 )
for i := 1 to len(::aStruct)
if ! __objHasData( SELF, ::aStruct[i,1] )
__objAddData( SELF, ::aStruct[i,1] )
endif
aData[ i, HB_OO_DATA_SYMBOL ] := ::aStruct[i,1]
aData[ i, HB_OO_DATA_VALUE ] := ::GetRow():Fieldget( i )
next
__ObjSetValueList( SELF, aData )
endif
RETURN nil
¿Estas buscando algún numero telefónico? www.teleguia.com.py
*:-.,_,.-:*'``'*:-.,_,.-:*:-.,_,.-:*'``'*:-.,_,.-:
:: Rodrigo Machado ::
FlaRo Sistemas
www.flaro.net
Telef: 0673 221 480
*:-.,_,.-:*'``'*:-.,_,.-:*:-.,_,.-:*'``'*:-.,_,.-:
TPostgres.prg
Description: Binary data
_______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
