FiveTech Support Forums

Este es un ejemplo de Procedimiento Almacenado que retorna un valor numérico:

create PROCEDURE [dbo].ProductQuantity

As

Begin

If Exists (Select * From [tabla] Where [clave]=@Dato)

   Set @Result=1

Else

   Set @Result=0;

End

Hola jacgsoft,
Muchas gracias por la info y las pruebas!!!... creo estoy mas cerca de conseguir el resultado buscado, por lo que analice el problema esta con el return code.. porque si hago cualquier SELECT sobre la base hasta me devuelve el recordset correctamente.

Funciona correctamente,
oRs := FW_OpenRecordSet(Cnx,"SELECT PurchaseQuantity FROM Products WHERE ProductId = 5962")
xbrowse(oRs)

SI Utilizo la siguiente forma, no funciona porque return no es un parametro, sino que es lo que devuelve el stored procedure...

oCmd:=TOleAuto():New("ADODB.Command")
oCmd:ActiveConnection:=Cnx
oCmd:CommandType:=4 //** Stored Procedure
oCmd:CommandText:="[dbo].[ProductQuantity]"

oPar:=oCmd:CreateParameter("@Barcode",129,1,24, "N'6666666666666'")
oCmd:Parameters:Append(oPar)
oPar:=oCmd:CreateParameter("@UserId",3,1,2,72)
oCmd:Parameters:Append(oPar)

oPar:=oCmd:CreateParameter("RETURNS",3,2)
oCmd:Parameters:Append(oPar)

oRs:=oCmd:Execute()

La poca defincion que tengo del stored procedure hasta ahora es..
PARAMETERS
(@BarCode(nvarchar(max),Input
@UserId(int,Input,No Default))

@Returns integer

No pude resolver el problema de recibir el return code que devuelve el execute... si no es un recordset no recibo la respuesta de la ejecucion de un stored procedure,

Saludos cordiales , me di por vencido por lo que voy a seguir haciendo pruebas con otra forma de conexion, utilizando TCP/IP.

Si me pasa el código de tu procedimiento almacenado y me dices que quieres que retorne, te puedo ayudar.

HOla Jacgsoft !! Tu ejemplo funciona a la perfeccion con resultados de tipo recordset y me ha servido para entender y aprender bastante por lo que te agradezco mucho toda la informacion compartida.
Por desgracia el stored procedure es de un tercero y no puedo saber la definicion ni realizarle modificaciones... de todas formas estoy en cotacto con sus desarrolladores para ver si puedo solicitar que le agregue un parametro de tipo OUTPUT para poder de ahi leer el rerturn code...
Haciendo el oCmd:Execute() no se como recibir el valor del EXEC... si en cambio lo que retorna es un recordset no hay problema.. lo puedo leer de forma transparente. por ejemplo:

FUNCIONA
oRs := FW_OpenRecordSet(Cnx,"SELECT PurchaseQuantity FROM Products WHERE ProductId = 5962")
xbrowse(oRs)

NO FUNCIONA
oCmd:CommandText:="[dbo].[ProductQuantity]"
oPar:=oCmd:CreateParameter("@Barcode",129,1,24, "N'5400000000007'")
oCmd:Parameters:Append(oPar)
oPar:=oCmd:CreateParameter("@UserId",3,1,2,72)
oCmd:Parameters:Append(oPar)
oRs:=oCmd:Execute() - no funcona devuelve un integer pero no como parametro de OUT.

PARAMETERS DEL STORED PROCEDURE:

@BarCode(nvarchar(max),Input
@UserId(int,Input,No Default)

este es el return del stored , no es un parametro que envie..
@Returns integer

De todas formas muchas gracias por el apoyo y sigo siempre a su disposicion.
Saludos Mariano

Estimados buenas tardes, aqui para darle solucion a este post implemente todo utilizando sockets y funciona correctamente. En el post WWKS2 TCP/IP consulta deje el ejemplo completo.

Muchas gracias por la ayuda siempre, saludos Mariano.