fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-04-09 UTC+0100 Belgrano Massimo (mbelgrano/at/deltain.it)

Browse Source 
* harbour/contrib/rddado/adordd.prg 
    Instead of overloading FOUND method in ADO RDD it will be
    more efficient to use standard implementation written in C
    by Przemyslaw  suggestion
This commit is contained in:
Massimo Belgrano
2008-04-10 13:32:50 +00:00
parent bf68197ca0
commit 7edea06f20
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-04-09 UTC+0100 Belgrano Massimo (mbelgrano/at/deltain.it)
* harbour/contrib/rddado/adordd.prg
Instead of overloading FOUND method in ADO RDD it will be
more efficient to use standard implementation written in C
by Przemyslaw suggestion
2008-04-09 20:42 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/ChangeLog
* harbour/harbour.spec

14
harbour/contrib/rddado/adordd.prg
View File

@@ -84,9 +84,8 @@
#define WA_SCOPEINFO 13
#define WA_SQLSTRUCT 14
#define WA_FOUND 15
#define WA_SIZE 15
#define WA_SIZE 14
ANNOUNCE ADORDD
@@ -592,12 +591,13 @@ static function ADO_LOCATE( nWA, lContinue )
local oRecordSet := aWAData[ WA_RECORDSET ]
oRecordSet:Find( aWAData[ WA_SCOPEINFO ][ UR_SI_CFOR ], If( lContinue, 1, 0 ) )
aWAData[ WA_FOUND ] = ! oRecordSet:EOF
USRRDD_SETFOUND( nWA, ! oRecordSet:EOF )
aWAData[ WA_EOF ] = oRecordSet:EOF
return SUCCESS
static function ADO_CLEARREL( nWA )
local aWAData := USRRDD_AREADATA( nWA )
@@ -774,7 +774,7 @@ function ADORDD_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID )
aADOFunc[ UR_ORDLSTADD ] := ( @ADO_ORDLSTADD() )
aADOFunc[ UR_ORDLSTCLEAR ] := ( @ADO_ORDLSTCLEAR() )
aAdoFunc[ UR_FOUND ] := ( @ADO_FOUND() )
return USRRDD_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID, cSuperRDD,;
aADOFunc )
@@ -996,11 +996,5 @@ function HB_AdoRddGetRecordSet( nWA )
aWAData = USRRDD_AREADATA( nWA )
return If( aWAData != nil, aWAData[ WA_RECORDSET ], nil )
static function ADO_FOUND( nWA, lFound )
local aWAData := USRRDD_AREADATA( nWA )
lFound = aWAData[ WA_FOUND ]
return SUCCESS