nAffectedRows de AdoDatasource: no siempre es num

[jose.luis]

Ignacio,
Ado a veces no devuelve nAffectedRows en el Execute del objeto connection.
Para que nAffectedRows sea siempre numérico (tal como indica la ayuda)
propondría este cambio:
METHOD Execute( cCommand, cOperation, nOptions, oRS ) CLASS XAdoDataSource
LOCAL oError
LOCAL lSuccess
LOCAL nAffectedRows
IF Empty( cCommand )
RETURN .F.
ENDIF
IF !::CheckConnection()
RETURN .F.
ENDIF
DEFAULT cOperation TO cCommand
DEFAULT nOptions TO adExecuteNoRecords
TRY
oRS := ::oConnection:Execute( cCommand, @nAffectedRows, nOptions )
DEFAULT nAffectedRows TO 0
::nAffectedRows := nAffectedRows
lSuccess := .T.
CATCH oError
lSuccess := .F.
::NewADOError( "ADODB:Execute( '" + cOperation+ "' )" )
END
RETURN lSuccess
Saludos,
José Luis Capel

[ignacio]

José Luis,
Ok. Hecho para Xailer 2. Gracias.
Un saludo,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"José Luis Capel - Aicom" <jose.luis@iaicom.com> escribió en el mensaje
news:4ac49988$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ignacio,
>
> Ado a veces no devuelve nAffectedRows en el Execute del objeto connection.
>
> Para que nAffectedRows sea siempre numérico (tal como indica la ayuda)
> propondría este cambio:
>
>
> METHOD Execute( cCommand, cOperation, nOptions, oRS ) CLASS XAdoDataSource
>
> LOCAL oError
> LOCAL lSuccess
> LOCAL nAffectedRows
>
> IF Empty( cCommand )
> RETURN .F.
> ENDIF
>
> IF !::CheckConnection()
> RETURN .F.
> ENDIF
>
> DEFAULT cOperation TO cCommand
> DEFAULT nOptions TO adExecuteNoRecords
>
> TRY
> oRS := ::oConnection:Execute( cCommand, @nAffectedRows, nOptions )
> DEFAULT nAffectedRows TO 0
> ::nAffectedRows := nAffectedRows
> lSuccess := .T.
> CATCH oError
> lSuccess := .F.
> ::NewADOError( "ADODB:Execute( '" + cOperation+ "' )" )
> END
>
> RETURN lSuccess
>
> Saludos,
> José Luis Capel
>
>