Devolver valor desde un SP sql en VFP

Sql Server:

Create procedure MiProc @MiParam as int As
Begin
Declare @Resultado as int
set @resultado = (Miparam*MiParam)*2
/*
esta Ultima linea con el select es la importante por que
es la que regresa un cursor a vfp con el valor de @Resultado
como un campo llamado "Operacion", es importante retornarlo con "As" y
un nombre de campo, puesto que al llegar a vfp, podria aparecer como
Expr_1, o campo1,etc
*/
select @resultado as Operacion
endproc

VFP
local nCon, MiVar
MiVar 
nCon = Sqlconnect([MiOdbc]) &&tambien puedes conectarte con
sqlStringConnect
=SqlExeC(nCon,[exec miProc ?MiVar],[qResultado])
if used([qResultado]) and reccount([qResultado])<>0
?qResultado.Operacion
endif



On Wed, 16 Mar 2005 06:27:29 -0600, Carlos Rodriguez
wrote:

Como puedo devolver un valor desde un store procedure de sql server,
llamandolo desde fox ?

Una manera más simple sin un cursor intermedio es usando la cláusula OUTPUT
que funciona como variables por referencia:

1)Crear el sp por t-sql en sql server:

Create procedure MiProc (@MiParam int, @Operacion int OUTPUT)
As select @Operacion=(@Miparam*@MiParam)*2


2) llamarlo en VFP:

Mivar
ResultadoSP=0 &&variable por referencia

=SqlExeC(nCon,[exec miProc ?MiVar,?@ResultadoSP])

?ResultadoSP



Ricardo Passians

Muchas gracias. Funciona bien.

"Ricardo Passians" wrote in message
news:%

Una manera más simple sin un cursor intermedio es usando la cláusula

OUTPUT

que funciona como variables por referencia:

1)Crear el sp por t-sql en sql server:

Create procedure MiProc (@MiParam int, @Operacion int OUTPUT)
As select @Operacion=(@Miparam*@MiParam)*2


2) llamarlo en VFP:

Mivar
ResultadoSP=0 &&variable por referencia

=SqlExeC(nCon,[exec miProc ?MiVar,?@ResultadoSP])

?ResultadoSP



Ricardo Passians