How to use AX_GetActivityInfo() of ADS V.9

[dutch]

Dear Reinaldo,

I try this but it cannot use AdsCloseSQLStatement( cAlias ) to close the cursor and I cannot Create another ADSCreateSQLStatement() again.

Code: Select all  Expand view

Function  ...()
cAlias  := "cursor"
cSql        := "EXECUTE PROCEDURE sp_mgGetInstallInfo()"
ADSCreateSQLStatement( cAlias )
AdsExecuteSQLDirect( cSql )
?(cAlias)->Owner, (cAlias)->SerialNumber, (cAlias)->UserOption

AdsCloseSQLStatement( cAlias )
return nil
 

Regards,
Dutch

[reinaldocrespo]

Dutch;

Hi.

Add this wrapper to adsfunc.c and rebuild rdd_ads.lib that you link to your app. I may be making things more complicated for you and it might just be simpler if we change ExecuteAdsSqlScript. If you are able to rebuild the lib, then it just might make sense to add this wrapper. Let me know if it works for you:

Code: Select all  Expand view

//---------------------------------------------------------------------------//
//RCB  11/11/2010 1:48:28 PM
//---------------------------------------------------------------------------//

HB_FUNC( ADSCLOSESQLSTATEMENT )
{
    ADSAREAP pArea = hb_adsGetWorkAreaPointer();

    if( pArea && pArea->hStatement )
    {
        UNSIGNED32 ulRetVal = AdsCloseSQLStatement( pArea->hStatement );

        if( ulRetVal == AE_SUCCESS )
        {

            hb_retl( TRUE );
        }
        else
        {
            HB_TRACE(HB_TR_DEBUG, ("AdsCloseSQLStatement() error") );
            hb_retl( FALSE );
        }
    }
    else
        hb_retl( FALSE );
}

 

Reinaldo.

[dutch]

Dear Reinaldo

I try AdsCloseSQLStatement() but it Links error as below. This function has in RDDADS.LIB (xHarbour 1.2.1) already, I don't know why it has error message.

Code: Select all  Expand view

--------------------Configuration: EZ4AR5 - Release--------------------
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)
Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
EZ4AR.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_ADSCLOSESQLSTATEMENT' referenced from D:\V5\EZAR\RELEASE\EZ4AR.OBJ
EZ4AR5.EXE - 1 error(s), 0 warning(s)
 

Thanks,
Dutch

[reinaldocrespo]

Looks like the function is missing from the rdd_ads.lib? Are you sure you are linking the right .lib? Send me your email and I'll email you an already built rddads.lib for xharbour 1.2.1.


Reinaldo.

[dutch]

my email : dutchez4 @ gmail.com
Thanks in advance,
Dutch