Ejecutar un procedimiento almacenado de SQL Server desde Fox 2.6
Visual Fox Pro, Trucos Agregar ComentariosYa les comente de la librería fpsql.fll, ahora veamos como trabaja. En este caso ejecutaremos un procedimiento almacenado de SQL Server.
Set Library To Sys(2004)+"fpsql.fll"
Public errval, errmsg, handle
errval=0
errmsg=" "
SourceName= "test"
User=
"sa"
passwd=""
* Conexión
handle=DBConnect(SourceName,User,passwd)
If handle > 0
Wait Window
"Conectado" Nowait
Else
Err=DBError(0,@errmsg,@errval)
Wait Window Str(errval)+" "+errmsg
Endif
=DBSetOpt(handle,"Asynchronous",0)
=DBSetOpt(handle,"BatchMode",1)
=DBSetOpt(handle,"ConnTimeout",0)
=DBSetOpt(handle,"Transact",1)
=DBSetOpt(handle,"UseTable",0)
err=DBExec(handle,"use pubs")
If Err < 0
=MessageBox("Error")
Return .F.
EndIf
SqlCmd= "Execute ConsultarOrden '25'"
err=DBExec(handle,SqlCmd)
If err > 0
Browse
Else
=MessageBox("Error")
Return .F.
Endif
*Desconexión
err=DBDisconn(handle)
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
