FiveTech Software tech support forums

HB_METHOD( THDOSTATEMENT_BINDPARAM )
{
    PHDOSTMT stmt = hb_getStmt();

    if( stmt )
    {
        STMT_BINDPARAM( stmt, hb_param( 1, HB_IT_NUMERIC | HB_IT_STRING ),
                        hb_param( 2, HB_IT_BYREF ), hb_parni( 3 ), hb_parni( 4 ) );
    }
}

 

static HB_ERRCODE bindParam( PHDOSTMT stmt, PHB_ITEM pParam, PHB_ITEM pVariable, HB_USHORT uiType, HB_SIZE nLen )
{
    if( pParam && pVariable )
    {
        /* Si no existe la lista de parametros la creamos y la inicializamos */
        if( !stmt->pListParam )
        {
            stmt->pListParam = ( PHDO_LISTBIND ) hb_xalloc( sizeof( HDO_LISTBIND ) );

            if( stmt->pListParam )
            {
                stmt->pListParam->uiCount = 0;
                stmt->pListParam->pListBind = NULL;
            }
            else
            {
                hdo_throwException( stmt->hdo, HDO_NOTMEMPAR, NULL );
                return HB_FAILURE;
            }
        }

        if( stmt->pListParam )
        {
            PHDO_BIND pBind = ( PHDO_BIND ) hb_xalloc( sizeof( HDO_BIND ) );

            if( pBind )
            {
                HB_UINT i = stmt->pListParam->uiCount++;

                stmt->pListParam->pListBind = ( PHDO_BIND * ) hb_xrealloc( stmt->pListParam->pListBind,
                                          sizeof( PHDO_BIND ) * stmt->pListParam->uiCount );
                pBind->pId = hb_itemNew( pParam );
                pBind->pVariable = pVariable;
                pBind->uiType = uiType ? uiType : HB_ITEM_TYPE( pVariable );
                pBind->nMaxLen = nLen;

                *( stmt->pListParam->pListBind + i ) = pBind;

                return HB_SUCCESS;
            }
            else
            {
                hdo_throwException( stmt->hdo, HDO_NOTMEMPAR, NULL );
                return HB_FAILURE;
            }
        }
    }

    hdo_throwException( stmt->hdo, !pVariable ? HDO_NOTREFER : HDO_NOTINTORSTR, NULL );
    return HB_FAILURE;
}
 

#include "item.api"
#include <windows.h>

typedef struct miStructura
{
    HB_USHORT uiCount;
    PHB_ITEM  pVariable;               
} MIESTR, *PMIESTR;

HB_FUNC( MYMSG )
{
   MessageBox( NULL, hb_parc( 1 ), "Atencion",
                         MB_OK | MB_ICONINFORMATION | MB_SYSTEMMODAL );
}


/*
 * Crea una estructura vacia
 */
 
HB_FUNC( CREAST )
{
    PMIESTR lc = ( PMIESTR ) hb_xalloc( sizeof( MIESTR ) );
   
    if( lc )
    {
        lc->uiCount = 0;
       
        hb_retptr( lc );
    }
    else
    {
        hb_ret();
        MessageBox( NULL, "No se ha creado la estructura", "Atencion", MB_OK | MB_ICONINFORMATION | MB_SYSTEMMODAL );
    }
}

HB_FUNC( BINDPARAM )
{
    PMIESTR lc = ( PMIESTR ) hb_parptr( 1 );
   
    if( lc )
    {
        PHB_ITEM  pVariable = hb_param( 2, HB_IT_BYREF );
       
        if( pVariable )
        {
            lc->pVariable = pVariable;
            lc->uiCount++;
        }
        else
        {
            MessageBox( NULL, "Parametro 2 no se paso por referencia", "Atencion", MB_OK | MB_ICONINFORMATION | MB_SYSTEMMODAL );
        }
    }
    else
    {
        MessageBox( NULL, "Parametro 1 incorrecto", "Atencion", MB_OK | MB_ICONINFORMATION | MB_SYSTEMMODAL );
    }
}

HB_FUNC( EXECUTE )
{
    PMIESTR lc = ( PMIESTR ) hb_parptr( 1 );
   
    if( lc )
    {
       char szBuffer[3 ];

        wsprintf( szBuffer, "%d", hb_itemGetNI( lc->pVariable ) );

        MessageBox( NULL, szBuffer, "Atencion", MB_OK | MB_ICONINFORMATION | MB_SYSTEMMODAL );
    }
    else
    {
        MessageBox( NULL, "Parametro 1 incorrecto", "Atencion", MB_OK | MB_ICONINFORMATION | MB_SYSTEMMODAL );
    }
}