Tengo una aplicación algo "viejita", y la programe con ADO, el cliente me busco para hacer algunas adecuaciones y agregarle algunos modulos.
Aquí me surgío una duda.
Esta aplicación la trabajo generando un oRs con
- Code: Select all Expand view
- ::oRs := TOleAuto():New( "ADODB.Recordset" )
::oRs:CursorLocation := adUseClient
::oRs:CursorType := adOpenDynamic
::oRs:LockType := adLockOptimistic
::oRs:ActiveConnection := ::cStrConn
::oRs:Source := "select * from usuario2;"
::oRs:Open()
Como puedo "recuperar" el resultado de un STORED PROCEDURE a ese oRs ??
Algo así como ::oRS := TraeElResultadoDelSToreProcedure("nombre del store procedure")
- Code: Select all Expand view
- oCmd := TOleAuto():New( "ADODB.Command" )
oCmd:ActiveConnection := ::oConn
oCmd:CommandType := adCmdStoredProc
oCmd:CommandText := "buscar_ALGO" // Strored Procedure Name
oCmd:Prepared := .T.
oParam := oCmd:CreateParameter( "letras", adVarChar, adParamInput, 50 )
oCmd:PARAMETERS:Append( oParam )
oCmd:PARAMETERS( "letras" ):Value := AllTrim(cLetras)
Alguien puede orientarme.
Para aprovechar el que le voy a volver a "meter mano" a esta aplicación después de algunos años.
Muchas gracias
![Very Happy :D](./images/smilies/icon_biggrin.gif)