Buenas noches
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
Como puedo "recuperar" el resultado de un STORED PROCEDURE a ese oRs ??
Algo as铆 como ::oRS := TraeElResultadoDelSToreProcedure("nombre del store procedure")
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
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
::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")
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
