Tengo la necesidad de utilizar el RDD SIX, para preguntar por unos datos mientras por otro lado trabajo con MYSQL y ADO.
Utilizaba xHarbour y no tenia problemas, pero frente a la necesidad de acceder a esos datos antiguos con SIX, migre un sistema a HARBOUR.. todo bien..pero tengo un error que no logro descrifrar.
Es mismo codigo funciona en xHarbour pero no en HARBOUR.. adjunto codigo y error.
- Code: Select all Expand view
Local oErrorAdo
TRY
oDatos:oRcs:Skip()
CATCH
FOR EACH oErrorAdo IN oDatos:oCon:Errors
ShowError(oErrorAdo)
NEXT
END
El Error es
- Application
===========
Path and name: C:\SQL\TELE\TELE.Exe (32 bits)
Size: 3,573,760 bytes
Time from start: 0 hours 0 mins 10 secs
Error occurred at: 22/12/2009, 18:41:24
Error description: Error BASE/3012 Argument error: __OLEENUMCREATE
Args:
[ 1] = P
[ 2] = L .F.
Stack Calls
===========
Called from: => __OLEENUMCREATE(0)
Called from: ../../../oleauto.prg => WIN_OLEAUTO:__ENUMSTART(0)
Called from: adobase.prg => TADOBASE:SAVE(1199)
Called from: CLIENTE.prg => ACTCTACLI(607)
Called from: VENTAS.prg => VALIDACLIENTE(249)
La linea causante (1199 ) es esta
FOR EACH oErrorAdo IN oDatos:oCon:Errors
Cualquier ayuda sera bienvenida..
Utilizo Harbour 2.0 Beta 3 y FWH907
Desde Chile
Adolfo