Antonio - WORKAREA con data de usuario

[carlos vargas]

Antonio, tu que tienes mas conocimiento de la api de harbour y los rdd,
existe alguna data en la estructura de las Workarea que pueda ser usado por el usuario?

algo asi como los tag de las clases de fivewin, es mas que todo para asociar una cadena de una consulta sql asociada a la tabla (sqlmix)
algo asi como:

Code: Select all  Expand view  RUN

cQuery := "SELECT * FROM country"

? dbUseArea( .T., , cQuery, "country" )

?MYALIAS->( dbinfo( RDD_USR_TAG, cQuery ) ) //retorne ""SELECT * FROM country""
 

[carlos vargas]

ups, post en foro equivocado, era en el de español

sorry

[Antonio Linares]

Carlos,

No me suena que haya nada. Acabo de revisar la estructura de la workarea en hbapirdd.h y solo he encontrado esto:

void * lpFieldExtents; /* Void ptr for additional field properties */

no lo he buscado en los fuentes para ver si se usa y cómo.

Pero mientras hacia eso he caido en la cuenta de que podrias usar un simple campo memo para ir almacenando los queries, no ?

[Carlos Mora]

Tocayo,

En el RDD SQLBase, y por lo tanto en el SQLMIX, tienes un elemento de la estructura donde se almacena la cadena de la query:

Code: Select all  Expand view  RUN

typedef struct _SQLBASEAREA
{
   AREA area;

   /*
    *  SQLBASE additions to the workarea structure
    */

   LPDBRELINFO lpdbPendingRel;

   HB_ULONG ulConnection;
   struct _SQLDDCONNECTION * pConnection;
   struct _SDDNODE *         pSDD;

   char * szQuery;                           /* SQL query */    <------------------ ESTO CREO QUE ES LO QUE QUIERES

   HB_ULONG ulRecNo;                         /* Current record number */
   HB_ULONG ulRecCount;                      /* Total records */
   HB_ULONG ulRecMax;                        /* Size of pRow, pRowFlags buffer */

   void **   pRow;                           /* array of native pointers or cached PHB_ITEM */
   HB_BYTE * pRowFlags;

   void *  pRecord;                          /* current record */
   HB_BYTE bRecordFlags;

   HB_BOOL fFetched;
   HB_BOOL fPositioned;
   HB_BOOL fAppend;
   HB_BOOL fRecordChanged;

   void * pSDDData;                          /* SDD specific data */
} SQLBASEAREA, * SQLBASEAREAP;
 

Y para obtener la cadena se podría consultar con dbinfo

Code: Select all  Expand view  RUN

static HB_ERRCODE sqlbaseInfo( SQLBASEAREAP pArea, HB_USHORT uiIndex, PHB_ITEM pItem )
{
   switch( uiIndex )
   {
      case DBI_QUERY:
         hb_itemPutC( pItem, pArea->szQuery );
         break;

      default:
         return SUPER_INFO( &pArea->area, uiIndex, pItem );
   }

   return HB_SUCCESS;
}
 

en hbrddsql.ch esta definida la constante

Code: Select all  Expand view  RUN

#define DBI_QUERY             1001

? dBInfo( DBI_QUERY ) -> cQuery
 

Ojo, no lo he probado, solo recordaba haberlo leído cuando estaba mirando lo de los RDDs con SQL. Creo que es lo que estas buscando o esta cerca, revisa el codigo fuente de las contribs.

[carlos vargas]

Carlos lo pruebo hoy y les comento,


salu2
carlos vargas