Xailer forum

Hola estoy incursionando en el uso de las clases T y X, tengo una gran aplicacion programada con tADO para usar con Interbase via ODBC, quiero pasar todo a MySQL y cree las sobrecargas que paso mas abajo. El problema se da al sobrecargar el METHOD Execute( cCommand, cOperation, nOptions, oRS )

CLASS TAdoDataSource FROM XMySQLDatasource
METHOD Execute( cCommand, cOperation, nOptions, oRS )

ya habia sobrecargado el metodo QueryArray y funcionaba a las mil maravillas , pero al sobrecargar el Execute el QueryArray llama al Execute y no funciona bien ya no retorna un array, que estoy haciendo mal









CLASS TSQLQuery FROM XSQLQuery

METHOD Open( lEvalEvent )

ENDCLASS

//------------------------------------------------------------------------------

METHOD Open(lEvalEvent) CLASS TSQLQuery
local lRet

::cSelect:=UpperTablas(::cSelect)
lRet:=::Super:Open(lEvalEvent)

RETURN lRet

//------------------------------------------------------------------------------

CLASS TAdoDataSource FROM XMySQLDatasource

METHOD QueryArray( cCommand, aHeaders )
METHOD QueryValue( cCommand, uDefault )
METHOD Execute( cCommand, cOperation, nOptions, oRS )

ENDCLASS

//------------------------------------------------------------------------------

METHOD QueryArray( cCommand, aHeaders ) CLASS TAdoDataSource
local uRet, cSql

cSql:=UpperTablas(cCommand)
uRet:=::Super:QueryArray(cSql,@aHeaders)

RETURN uRet

//------------------------------------------------------------------------------

METHOD QueryValue( cCommand, uDefault ) CLASS TAdoDataSource
local uRet, cSql

cSql:=UpperTablas(cCommand)
uRet:=::Super:QueryValue(cSql,uDefault)

RETURN uRet

//------------------------------------------------------------------------------

METHOD Execute( cCommand, cOperation, nOptions, oRS ) CLASS TAdoDataSource
local uRet, cSql

cSql:=UpperTablas(cCommand)
uRet:=::Super:Execute( cSql, cOperation, nOptions, oRS )

RETURN uRet