Xailer & OZ Software

Hola,
Por si interesa ponerlo en el estándar.
METHOD Query( cCommand, cProcess, nLockType, nCursorLocation, nCursorType )
CLASS XAdoDataSource
LOCAL oDataSet
DEFAULT cProcess TO ::cProcess
DEFAULT nLockType TO adLockOptimistic
DEFAULT nCursorLocation TO adUseClient
DEFAULT nCursorType TO adOpenStatic
IF ! ::CheckConnection()
RETURN .F.
ENDIF
// WITH OBJECT oDataSet := TSQLQuery():Create( ::oParent, Self, cCommand,
Upper( cProcess ) )
// :nCursorLocation := adUseClient
// :nCursorType := adOpenStatic
// :nLockType := adLockOptimistic
// END WITH
WITH OBJECT oDataSet := TSQLQuery():New( )
:nCursorLocation := nCursorLocation
:nCursorType := nCursorType
:nLockType := nLockType
:Create( ::oParent, Self, cCommand, Upper( cProcess ) )
END WITH
RETURN oDataSet
Saludos,
José Luis Capel