>Unrecoverable error 9000:
Luis, try this function, here works for me:
---cut---
HB_FUNC( ADSISEMPTY )
{
UNSIGNED32 ulRetVal;
UNSIGNED16 pbEmpty;
ADSAREAP pArea;
UNSIGNED8* pucFldName;
pArea = hb_rddGetADSWorkAreaPointer();
if( !ISCHAR( 1 ) && !ISNUM( 1 ) )
{
hb_errRT_DBCMD( EG_ARG, 1014, NULL, "ADSISEMPTY" );
}
else if( pArea )
{
pucFldName = (UNSIGNED8 *) ( ISCHAR( 1 ) ? hb_parcx( 1 ) :
ADSFIELD( hb_parni( 1 ) ) );
ulRetVal = AdsIsEmpty( pArea->hTable, pucFldName, &pbEmpty );
}
if ( !pArea || !( ulRetVal == AE_SUCCESS ) )
{
hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, "ADSISEMPTY" );
}
hb_retl( pbEmpty );
}
---cut---
Regards,
Toninho.
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Register now and save $200. Hurry, offer ends at 11:59 p.m.,
Monday, April 7! Use priority code J8TLD2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
