These changes are required in adordd.prg in order to have Found() working after a LOCATE command:
... #define WA_FOUND 15 #define WA_SIZE 15 ... static function ADO_LOCATE( nWA, lContinue ) local aWAData := USRRDD_AREADATA( nWA ) local oRecordSet := aWAData[ WA_RECORDSET ] oRecordSet:Find( aWAData[ WA_SCOPEINFO ][ UR_SI_CFOR ], If( lContinue, 1, 0 ) ) aWAData[ WA_FOUND ] = ! oRecordSet:EOF aWAData[ WA_EOF ] = oRecordSet:EOF return SUCCESS ... static function ADO_FOUND( nWA, lFound ) local aWAData := USRRDD_AREADATA( nWA ) lFound = aWAData[ WA_FOUND ] return SUCCESS ... aAdoFunc[ UR_FOUND ] := ( @ADO_FOUND() ) I appreciate if someone upload it to the svn. Thanks, _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
