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

2009-12-01 13:52 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* examples/rddado/adordd.prg
  * examples/rddado/adordd.ch
    * Formatting.
This commit is contained in:
Viktor Szakats
2009-12-01 12:53:03 +00:00
parent 88636b3e11
commit 450d7efe29
3 changed files with 195 additions and 191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -17,6 +17,11 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-12-01 13:52 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* examples/rddado/adordd.prg
* examples/rddado/adordd.ch
* Formatting.
2009-12-01 12:21 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* config/global.mk
% "De-xmastree"-d two more if/else structures.

236
harbour/examples/rddado/adordd.ch
View File

@@ -55,137 +55,137 @@
#define _ADORDD_CH
// Cursor Type
#define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3
#define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3
// Lock Types
#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4
#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4
// Field Types
#define adEmpty 0
#define adTinyInt 16
#define adSmallInt 2
#define adInteger 3
#define adBigInt 20
#define adUnsignedTinyInt 17
#define adUnsignedSmallInt 18
#define adUnsignedInt 19
#define adUnsignedBigInt 21
#define adSingle 4
#define adDouble 5
#define adCurrency 6
#define adDecimal 14
#define adNumeric 131
#define adBoolean 11
#define adError 10
#define adUserDefined 132
#define adVariant 12
#define adIDispatch 9
#define adIUnknown 13
#define adGUID 72
#define adDate 7
#define adDBDate 133
#define adDBTime 134
#define adDBTimeStamp 135
#define adBSTR 8
#define adChar 129
#define adVarChar 200
#define adLongVarChar 201
#define adWChar 130
#define adVarWChar 202
#define adLongVarWChar 203
#define adBinary 128
#define adVarBinary 204
#define adLongVarBinary 205
#define adChapter 136
#define adFileTime 64
#define adPropVariant 138
#define adVarNumeric 139
#define adArray // &H2000
#define adEmpty 0
#define adTinyInt 16
#define adSmallInt 2
#define adInteger 3
#define adBigInt 20
#define adUnsignedTinyInt 17
#define adUnsignedSmallInt 18
#define adUnsignedInt 19
#define adUnsignedBigInt 21
#define adSingle 4
#define adDouble 5
#define adCurrency 6
#define adDecimal 14
#define adNumeric 131
#define adBoolean 11
#define adError 10
#define adUserDefined 132
#define adVariant 12
#define adIDispatch 9
#define adIUnknown 13
#define adGUID 72
#define adDate 7
#define adDBDate 133
#define adDBTime 134
#define adDBTimeStamp 135
#define adBSTR 8
#define adChar 129
#define adVarChar 200
#define adLongVarChar 201
#define adWChar 130
#define adVarWChar 202
#define adLongVarWChar 203
#define adBinary 128
#define adVarBinary 204
#define adLongVarBinary 205
#define adChapter 136
#define adFileTime 64
#define adPropVariant 138
#define adVarNumeric 139
#define adArray // &H2000
#define adRecDeleted 4
#define adRecDeleted 4
#define adUseNone 1
#define adUseServer 2
#define adUseClient 3
#define adUseClientBatch 3
#define adUseNone 1
#define adUseServer 2
#define adUseClient 3
#define adUseClientBatch 3
#define adKeyForeign 2
#define adKeyForeign 2
// Constant Group: ObjectStateEnum
#define adStateClosed 0
#define adStateOpen 1
#define adStateConnecting 2
#define adStateExecuting 4
#define adStateFetching 8
#define adStateClosed 0
#define adStateOpen 1
#define adStateConnecting 2
#define adStateExecuting 4
#define adStateFetching 8
// Constant Group: SchemaEnum
#define adSchemaProviderSpecific -1
#define adSchemaAsserts 0
#define adSchemaCatalogs 1
#define adSchemaCharacterSets 2
#define adSchemaCollations 3
#define adSchemaColumns 4
#define adSchemaCheckConstraints 5
#define adSchemaConstraintColumnUsage 6
#define adSchemaConstraintTableUsage 7
#define adSchemaKeyColumnUsage 8
#define adSchemaReferentialContraints 9
#define adSchemaReferentialConstraints 9
#define adSchemaTableConstraints 10
#define adSchemaColumnsDomainUsage 11
#define adSchemaIndexes 12
#define adSchemaColumnPrivileges 13
#define adSchemaTablePrivileges 14
#define adSchemaUsagePrivileges 15
#define adSchemaProcedures 16
#define adSchemaSchemata 17
#define adSchemaSQLLanguages 18
#define adSchemaStatistics 19
#define adSchemaTables 20
#define adSchemaTranslations 21
#define adSchemaProviderTypes 22
#define adSchemaViews 23
#define adSchemaViewColumnUsage 24
#define adSchemaViewTableUsage 25
#define adSchemaProcedureParameters 26
#define adSchemaForeignKeys 27
#define adSchemaPrimaryKeys 28
#define adSchemaProcedureColumns 29
#define adSchemaDBInfoKeywords 30
#define adSchemaDBInfoLiterals 31
#define adSchemaCubes 32
#define adSchemaDimensions 33
#define adSchemaHierarchies 34
#define adSchemaLevels 35
#define adSchemaMeasures 36
#define adSchemaProperties 37
#define adSchemaMembers 38
#define adSchemaTrustees 39
#define adSchemaFunctions 40
#define adSchemaActions 41
#define adSchemaCommands 42
#define adSchemaSets 43
#define adSchemaProviderSpecific ( -1 )
#define adSchemaAsserts 0
#define adSchemaCatalogs 1
#define adSchemaCharacterSets 2
#define adSchemaCollations 3
#define adSchemaColumns 4
#define adSchemaCheckConstraints 5
#define adSchemaConstraintColumnUsage 6
#define adSchemaConstraintTableUsage 7
#define adSchemaKeyColumnUsage 8
#define adSchemaReferentialContraints 9
#define adSchemaReferentialConstraints 9
#define adSchemaTableConstraints 10
#define adSchemaColumnsDomainUsage 11
#define adSchemaIndexes 12
#define adSchemaColumnPrivileges 13
#define adSchemaTablePrivileges 14
#define adSchemaUsagePrivileges 15
#define adSchemaProcedures 16
#define adSchemaSchemata 17
#define adSchemaSQLLanguages 18
#define adSchemaStatistics 19
#define adSchemaTables 20
#define adSchemaTranslations 21
#define adSchemaProviderTypes 22
#define adSchemaViews 23
#define adSchemaViewColumnUsage 24
#define adSchemaViewTableUsage 25
#define adSchemaProcedureParameters 26
#define adSchemaForeignKeys 27
#define adSchemaPrimaryKeys 28
#define adSchemaProcedureColumns 29
#define adSchemaDBInfoKeywords 30
#define adSchemaDBInfoLiterals 31
#define adSchemaCubes 32
#define adSchemaDimensions 33
#define adSchemaHierarchies 34
#define adSchemaLevels 35
#define adSchemaMeasures 36
#define adSchemaProperties 37
#define adSchemaMembers 38
#define adSchemaTrustees 39
#define adSchemaFunctions 40
#define adSchemaActions 41
#define adSchemaCommands 42
#define adSchemaSets 43
// Constant Group: Supports
#define adAddNew 0x1000400 // Supports the AddNew method to add new records.
#define adApproxPosition 0x4000 // Supports the AbsolutePosition and AbsolutePage properties.
#define adBookmark 0x2000 // Supports the Bookmark property to gain access to specific records.
#define adDelete 0x1000800 // Supports the Delete method to delete records.
#define adFind 0x80000 // Supports the Find method to locate a row in a Recordset.
#define adHoldRecords 0x100 // Retrieves more records or changes the next position without committing all pending changes.
#define adIndex 0x100000 // Supports the Index property to name an index.
#define adMovePrevious 0x200 // Supports the MoveFirst and MovePrevious methods, and Move or GetRows methods to move the current record position backward without requiring bookmarks.
#define adNotify 0x40000 // Indicates that the underlying data provider supports notifications (which determines whether Recordset events are supported).
#define adResync 0x20000 // Supports the Resync method to update the cursor with the data that is visible in the underlying database.
#define adSeek 0x200000 // Supports the Seek method to locate a row in a Recordset.
#define adUpdate 0x1008000 // Supports the Update method to modify existing data.
#define adUpdateBatch 0x10000
#define adAddNew 0x1000400 // Supports the AddNew method to add new records.
#define adApproxPosition 0x0004000 // Supports the AbsolutePosition and AbsolutePage properties.
#define adBookmark 0x0002000 // Supports the Bookmark property to gain access to specific records.
#define adDelete 0x1000800 // Supports the Delete method to delete records.
#define adFind 0x0080000 // Supports the Find method to locate a row in a Recordset.
#define adHoldRecords 0x0000100 // Retrieves more records or changes the next position without committing all pending changes.
#define adIndex 0x0100000 // Supports the Index property to name an index.
#define adMovePrevious 0x0000200 // Supports the MoveFirst and MovePrevious methods, and Move or GetRows methods to move the current record position backward without requiring bookmarks.
#define adNotify 0x0040000 // Indicates that the underlying data provider supports notifications (which determines whether Recordset events are supported).
#define adResync 0x0020000 // Supports the Resync method to update the cursor with the data that is visible in the underlying database.
#define adSeek 0x0200000 // Supports the Seek method to locate a row in a Recordset.
#define adUpdate 0x1008000 // Supports the Update method to modify existing data.
#define adUpdateBatch 0x0010000
#command USE <(db)> [VIA <rdd>] [ALIAS <a>] [<nw: NEW>] ;
[<ex: EXCLUSIVE>] [<sh: SHARED>] [<ro: READONLY>] ;

145
harbour/examples/rddado/adordd.prg
View File

@@ -443,7 +443,7 @@ STATIC FUNCTION ADO_GETVALUE( nWA, nField, xValue )
WITH OBJECT USRRDD_AREADATA( nWA )[ WA_RECORDSET ]
IF aWAData[ WA_EOF ] .OR. :EOF .OR. :BOF
xValue := nil
xValue := NIL
IF ADO_GETFIELDTYPE( :Fields( nField - 1 ):Type ) == HB_FT_STRING
xValue := Space( :Fields( nField - 1 ):DefinedSize )
ENDIF
@@ -459,20 +459,20 @@ STATIC FUNCTION ADO_GETVALUE( nWA, nField, xValue )
ELSEIF ADO_GETFIELDTYPE( :Fields( nField - 1 ):Type ) == HB_FT_DATE
// Null values
IF ValType( xValue ) == "U"
xValue := cToD( "" )
xValue := hb_SToD()
ENDIF
#ifdef HB_FT_DATETIME
ELSEIF ADO_GETFIELDTYPE( :Fields( nField - 1 ):Type ) == HB_FT_DATETIME
// Null values
IF ValType( xValue ) == "U"
xValue := cToD( "" )
xValue := hb_SToD()
ENDIF
#endif
#ifdef HB_FT_TIMESTAMP
ELSEIF ADO_GETFIELDTYPE( :Fields( nField - 1 ):Type ) == HB_FT_TIMESTAMP
// Null values
IF ValType( xValue ) == "U"
xValue := cToD( "" )
xValue := hb_SToD()
ENDIF
#endif
ENDIF
@@ -555,7 +555,7 @@ STATIC FUNCTION ADO_SKIPRAW( nWA, nToSkip )
++nToSkip
ENDIF
BEGIN SEQUENCE WITH {| oErr | Break( oErr ) }
IF aWAData[WA_CONNECTION]:State != adStateClosed
IF aWAData[ WA_CONNECTION ]:State != adStateClosed
IF nToSkip < 0 .AND. oRecordSet:AbsolutePosition <= -nToSkip
oRecordSet:MoveFirst()
aWAData[ WA_BOF ] := .T.
@@ -590,7 +590,7 @@ STATIC FUNCTION ADO_EOF( nWA, lEof )
LOCAL nResult := HB_SUCCESS
BEGIN SEQUENCE WITH {| oErr | Break( oErr ) }
IF USRRDD_AREADATA( nWA )[WA_CONNECTION]:State != adStateClosed
IF USRRDD_AREADATA( nWA )[ WA_CONNECTION ]:State != adStateClosed
lEof := ( oRecordSet:AbsolutePosition == -3 )
ENDIF
RECOVER
@@ -631,9 +631,8 @@ STATIC FUNCTION ADO_RECNO( nWA, nRecNo )
LOCAL nResult := HB_SUCCESS
BEGIN SEQUENCE WITH {| oErr | Break( oErr ) }
IF USRRDD_AREADATA( nWA )[WA_CONNECTION]:State != adStateClosed
IF USRRDD_AREADATA( nWA )[ WA_CONNECTION ]:State != adStateClosed
nRecno := iif( oRecordSet:AbsolutePosition == -3, oRecordSet:RecordCount() + 1, oRecordSet:AbsolutePosition )
ELSE
nRecno := 0
nResult := HB_FAILURE
@@ -941,7 +940,7 @@ STATIC FUNCTION ADO_LOCK( nWA, aLockInfo )
HB_SYMBOL_UNUSED( nWA )
aLockInfo[ UR_LI_METHOD ] := DBLM_MULTIPLE
aLockInfo[ UR_LI_RECORD ] := RECNO()
aLockInfo[ UR_LI_RECORD ] := RecNo()
aLockInfo[ UR_LI_RESULT ] := .T.
RETURN HB_SUCCESS
@@ -980,7 +979,7 @@ STATIC FUNCTION ADO_ZAP( nWA )
LOCAL aWAData := USRRDD_AREADATA( nWA )
LOCAL oRecordSet := aWAData[ WA_RECORDSET ]
IF aWAData[ WA_CONNECTION ] != NIL .and. aWAData[ WA_TABLENAME ] != nil
IF aWAData[ WA_CONNECTION ] != NIL .and. aWAData[ WA_TABLENAME ] != NIL
BEGIN SEQUENCE WITH {| oErr | Break( oErr ) }
aWAData[ WA_CONNECTION ]:Execute( "TRUNCATE TABLE " + aWAData[ WA_TABLENAME ] )
RECOVER
@@ -1082,7 +1081,7 @@ STATIC FUNCTION ADO_FORCEREL( nWA )
IF ! Empty( aWAData[ WA_PENDINGREL ] )
aPendingRel := aWAData[ WA_PENDINGREL ]
aWAData[ WA_PENDINGREL ] := Nil
aWAData[ WA_PENDINGREL ] := NIL
RETURN ADO_RELEVAL( nWA, aPendingRel )
ENDIF
@@ -1092,7 +1091,7 @@ STATIC FUNCTION ADO_FORCEREL( nWA )
STATIC FUNCTION ADO_RELEVAL( nWA, aRelInfo )
LOCAL aInfo, nReturn, nOrder, uResult
nReturn := ADO_EVALBLOCK( aRelInfo[UR_RI_PARENT], aRelInfo[UR_RI_BEXPR], @uResult )
nReturn := ADO_EVALBLOCK( aRelInfo[ UR_RI_PARENT ], aRelInfo[ UR_RI_BEXPR ], @uResult )
IF nReturn == HB_SUCCESS
/*
@@ -1102,10 +1101,10 @@ STATIC FUNCTION ADO_RELEVAL( nWA, aRelInfo )
nReturn := ADO_ORDINFO( nWA, DBOI_NUMBER, @aInfo )
IF nReturn == HB_SUCCESS
nOrder := aInfo[UR_ORI_RESULT]
nOrder := aInfo[ UR_ORI_RESULT ]
IF nOrder != 0
IF aRelInfo[UR_RI_SCOPED]
aInfo[UR_ORI_NEWVAL] := uResult
IF aRelInfo[ UR_RI_SCOPED ]
aInfo[ UR_ORI_NEWVAL ] := uResult
nReturn := ADO_ORDINFO( nWA, DBOI_SCOPETOP, @aInfo )
IF nReturn == HB_SUCCESS
nReturn := ADO_ORDINFO( nWA, DBOI_SCOPEBOTTOM, @aInfo )
@@ -1149,7 +1148,7 @@ STATIC FUNCTION ADO_ORDCREATE( nWA, aOrderCreateInfo )
LOCAL aWAData := USRRDD_AREADATA( nWA )
LOCAL oIndex, oError, n, lFound := .F.
if aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes != nil
if aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes != NIL
for n := 1 to aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes:Count
oIndex := aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes( n - 1 )
if oIndex:Name == iif( ! Empty( aOrderCreateInfo[ UR_ORCR_TAGNAME ] ), aOrderCreateInfo[ UR_ORCR_TAGNAME ], aOrderCreateInfo[ UR_ORCR_CKEY ] )
@@ -1160,7 +1159,7 @@ STATIC FUNCTION ADO_ORDCREATE( nWA, aOrderCreateInfo )
endif
BEGIN SEQUENCE WITH {| oErr | Break( oErr ) }
IF aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes == nil .OR. ! lFound
IF aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes == NIL .OR. ! lFound
oIndex := win_OleCreateObject( "ADOX.Index" )
oIndex:Name := iif( ! Empty( aOrderCreateInfo[ UR_ORCR_TAGNAME ] ), aOrderCreateInfo[ UR_ORCR_TAGNAME ], aOrderCreateInfo[ UR_ORCR_CKEY ] )
oIndex:PrimaryKey := .F.
@@ -1185,7 +1184,7 @@ STATIC FUNCTION ADO_ORDDESTROY( nWA, aOrderInfo )
LOCAL aWAData := USRRDD_AREADATA( nWA ), n, oIndex
IF aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes != nil
IF aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes != NIL
FOR n := 1 to aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes:Count
oIndex := aWAData[ WA_CATALOG ]:Tables( aWAData[ WA_TABLENAME ] ):Indexes( n - 1 )
IF oIndex:Name == aOrderInfo[ UR_ORI_TAG ]
@@ -1355,57 +1354,57 @@ FUNCTION ADORDD_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID )
LOCAL aADOFunc[ UR_METHODCOUNT ]
aADOFunc[ UR_INIT ] := ( @ADO_INIT() )
aADOFunc[ UR_NEW ] := ( @ADO_NEW() )
aADOFunc[ UR_CREATE ] := ( @ADO_CREATE() )
aADOFunc[ UR_CREATEFIELDS ] := ( @ADO_CREATEFIELDS() )
aADOFunc[ UR_OPEN ] := ( @ADO_OPEN() )
aADOFunc[ UR_CLOSE ] := ( @ADO_CLOSE() )
aADOFunc[ UR_BOF ] := ( @ADO_BOF() )
aADOFunc[ UR_EOF ] := ( @ADO_EOF() )
aADOFunc[ UR_DELETED ] := ( @ADO_DELETED() )
aADOFunc[ UR_SKIPRAW ] := ( @ADO_SKIPRAW() )
aADOFunc[ UR_GOTO ] := ( @ADO_GOTO() )
aADOFunc[ UR_GOTOID ] := ( @ADO_GOTOID() )
aADOFunc[ UR_GOTOP ] := ( @ADO_GOTOP() )
aADOFunc[ UR_GOBOTTOM ] := ( @ADO_GOBOTTOM() )
aADOFunc[ UR_RECNO ] := ( @ADO_RECNO() )
aADOFunc[ UR_RECID ] := ( @ADO_RECID() )
aADOFunc[ UR_RECCOUNT ] := ( @ADO_RECCOUNT() )
aADOFunc[ UR_GETVALUE ] := ( @ADO_GETVALUE() )
aADOFunc[ UR_PUTVALUE ] := ( @ADO_PUTVALUE() )
aADOFunc[ UR_DELETE ] := ( @ADO_DELETE() )
aADOFunc[ UR_APPEND ] := ( @ADO_APPEND() )
aADOFunc[ UR_FLUSH ] := ( @ADO_FLUSH() )
aADOFunc[ UR_ORDINFO ] := ( @ADO_ORDINFO() )
aADOFunc[ UR_RECINFO ] := ( @ADO_RECINFO() )
aADOFunc[ UR_FIELDINFO ] := ( @ADO_FIELDINFO() )
aADOFunc[ UR_FIELDNAME ] := ( @ADO_FIELDNAME() )
aADOFunc[ UR_ORDLSTFOCUS ] := ( @ADO_ORDLSTFOCUS() )
aADOFunc[ UR_PACK ] := ( @ADO_PACK() )
aADOFunc[ UR_RAWLOCK ] := ( @ADO_RAWLOCK() )
aADOFunc[ UR_LOCK ] := ( @ADO_LOCK() )
aADOFunc[ UR_UNLOCK ] := ( @ADO_UNLOCK() )
aADOFunc[ UR_SETFILTER ] := ( @ADO_SETFILTER() )
aADOFunc[ UR_CLEARFILTER ] := ( @ADO_CLEARFILTER() )
aADOFunc[ UR_ZAP ] := ( @ADO_ZAP() )
aADOFunc[ UR_SETLOCATE ] := ( @ADO_SETLOCATE() )
aADOFunc[ UR_LOCATE ] := ( @ADO_LOCATE() )
aAdoFunc[ UR_FOUND ] := ( @ADO_FOUND() )
aADOFunc[ UR_FORCEREL ] := ( @ADO_FORCEREL() )
aADOFunc[ UR_RELEVAL ] := ( @ADO_RELEVAL() )
aADOFunc[ UR_CLEARREL ] := ( @ADO_CLEARREL() )
aADOFunc[ UR_RELAREA ] := ( @ADO_RELAREA() )
aADOFunc[ UR_RELTEXT ] := ( @ADO_RELTEXT() )
aADOFunc[ UR_SETREL ] := ( @ADO_SETREL() )
aADOFunc[ UR_ORDCREATE ] := ( @ADO_ORDCREATE() )
aADOFunc[ UR_ORDDESTROY ] := ( @ADO_ORDDESTROY() )
aADOFunc[ UR_ORDLSTADD ] := ( @ADO_ORDLSTADD() )
aADOFunc[ UR_ORDLSTCLEAR ] := ( @ADO_ORDLSTCLEAR() )
aADOFunc[ UR_EVALBLOCK ] := ( @ADO_EVALBLOCK() )
aADOFunc[ UR_SEEK ] := ( @ADO_SEEK() )
aADOFunc[ UR_EXISTS ] := ( @ADO_EXISTS() )
aADOFunc[ UR_DROP ] := ( @ADO_DROP() )
aADOFunc[ UR_INIT ] := @ADO_INIT()
aADOFunc[ UR_NEW ] := @ADO_NEW()
aADOFunc[ UR_CREATE ] := @ADO_CREATE()
aADOFunc[ UR_CREATEFIELDS ] := @ADO_CREATEFIELDS()
aADOFunc[ UR_OPEN ] := @ADO_OPEN()
aADOFunc[ UR_CLOSE ] := @ADO_CLOSE()
aADOFunc[ UR_BOF ] := @ADO_BOF()
aADOFunc[ UR_EOF ] := @ADO_EOF()
aADOFunc[ UR_DELETED ] := @ADO_DELETED()
aADOFunc[ UR_SKIPRAW ] := @ADO_SKIPRAW()
aADOFunc[ UR_GOTO ] := @ADO_GOTO()
aADOFunc[ UR_GOTOID ] := @ADO_GOTOID()
aADOFunc[ UR_GOTOP ] := @ADO_GOTOP()
aADOFunc[ UR_GOBOTTOM ] := @ADO_GOBOTTOM()
aADOFunc[ UR_RECNO ] := @ADO_RECNO()
aADOFunc[ UR_RECID ] := @ADO_RECID()
aADOFunc[ UR_RECCOUNT ] := @ADO_RECCOUNT()
aADOFunc[ UR_GETVALUE ] := @ADO_GETVALUE()
aADOFunc[ UR_PUTVALUE ] := @ADO_PUTVALUE()
aADOFunc[ UR_DELETE ] := @ADO_DELETE()
aADOFunc[ UR_APPEND ] := @ADO_APPEND()
aADOFunc[ UR_FLUSH ] := @ADO_FLUSH()
aADOFunc[ UR_ORDINFO ] := @ADO_ORDINFO()
aADOFunc[ UR_RECINFO ] := @ADO_RECINFO()
aADOFunc[ UR_FIELDINFO ] := @ADO_FIELDINFO()
aADOFunc[ UR_FIELDNAME ] := @ADO_FIELDNAME()
aADOFunc[ UR_ORDLSTFOCUS ] := @ADO_ORDLSTFOCUS()
aADOFunc[ UR_PACK ] := @ADO_PACK()
aADOFunc[ UR_RAWLOCK ] := @ADO_RAWLOCK()
aADOFunc[ UR_LOCK ] := @ADO_LOCK()
aADOFunc[ UR_UNLOCK ] := @ADO_UNLOCK()
aADOFunc[ UR_SETFILTER ] := @ADO_SETFILTER()
aADOFunc[ UR_CLEARFILTER ] := @ADO_CLEARFILTER()
aADOFunc[ UR_ZAP ] := @ADO_ZAP()
aADOFunc[ UR_SETLOCATE ] := @ADO_SETLOCATE()
aADOFunc[ UR_LOCATE ] := @ADO_LOCATE()
aAdoFunc[ UR_FOUND ] := @ADO_FOUND()
aADOFunc[ UR_FORCEREL ] := @ADO_FORCEREL()
aADOFunc[ UR_RELEVAL ] := @ADO_RELEVAL()
aADOFunc[ UR_CLEARREL ] := @ADO_CLEARREL()
aADOFunc[ UR_RELAREA ] := @ADO_RELAREA()
aADOFunc[ UR_RELTEXT ] := @ADO_RELTEXT()
aADOFunc[ UR_SETREL ] := @ADO_SETREL()
aADOFunc[ UR_ORDCREATE ] := @ADO_ORDCREATE()
aADOFunc[ UR_ORDDESTROY ] := @ADO_ORDDESTROY()
aADOFunc[ UR_ORDLSTADD ] := @ADO_ORDLSTADD()
aADOFunc[ UR_ORDLSTCLEAR ] := @ADO_ORDLSTCLEAR()
aADOFunc[ UR_EVALBLOCK ] := @ADO_EVALBLOCK()
aADOFunc[ UR_SEEK ] := @ADO_SEEK()
aADOFunc[ UR_EXISTS ] := @ADO_EXISTS()
aADOFunc[ UR_DROP ] := @ADO_DROP()
RETURN USRRDD_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID, ;
/* NO SUPER RDD */, aADOFunc )
@@ -1486,7 +1485,7 @@ STATIC FUNCTION ADO_GETFIELDTYPE( nADOFieldType )
CASE nADOFieldType == adSingle
CASE nADOFieldType == adDouble
nDBFFieldType := HB_FT_DOUBLE
nDBFFieldType := HB_FT_DOUBLE
CASE nADOFieldType == adCurrency
nDBFFieldType := HB_FT_INTEGER
@@ -1501,14 +1500,14 @@ STATIC FUNCTION ADO_GETFIELDTYPE( nADOFieldType )
CASE nADOFieldType == adError
CASE nADOFieldType == adUserDefined
CASE nADOFieldType == adVariant
nDBFFieldType := HB_FT_ANY
nDBFFieldType := HB_FT_ANY
CASE nADOFieldType == adIDispatch
CASE nADOFieldType == adIUnknown
CASE nADOFieldType == adGUID
nDBFFieldType := HB_FT_STRING
nDBFFieldType := HB_FT_STRING
CASE nADOFieldType == adDate
#ifdef HB_FT_DATETIME
@@ -1666,4 +1665,4 @@ FUNCTION HB_AdoRddGetRecordSet( nWA )
aWAData := USRRDD_AREADATA( nWA )
RETURN iif( aWAData != nil, aWAData[ WA_RECORDSET ], nil )
RETURN iif( aWAData != NIL, aWAData[ WA_RECORDSET ], NIL )