求代码：VFP操作SQL Server的自定义函数

[thinclient]

求代码：VFP操作SQL Server的自定义函数
如连接，断开，发送命令执行查询、存储过程、返回结果集等
我一直也能做到，但是觉得自己的代码很不规范，也没形成可直接调用的模块，每次都是从上次的程序中扒出，很乱的
想学学规范的写法

[十豆三]

*-- 连接，gnConnHandle 通常是全局变量，因为整个程序都要用到这个连接句柄
gnConnHandle=Sqlstringconnect('DRIVER=Sql Server;SERVER=计算机名或IP地址;UID=用户名;PWD=密码;DATABASE=home')
If gnConnHandle<=0
	Messagebox('连接数据库失败！',48,'信息提示')
	Quit
Endif

*-- 断开连接
SQLDisconnect(0)	&& 断开所有连接
SQLDisconnect(gnConnHandle)	&& 断开指定连接


*-- 发送命令执行查询
lnRetVal=SQLExec(gnConnHandle,'SELECT * FROM 表名','临时表名')
Select 临时表名
Browse


*-- 调用 用户定义函数 或 存储过程
参数1='ABC'
参数2=100
lnRetVal=SQLExec(gnConnHandle,"{CALL 用户定义函数或存储过程名称(?参数1,?参数2)}")
或
lnRetVal=SQLExec(gnConnHandle,"EXECUTE 用户定义函数或存储过程名称 ?参数1,?参数2")


这些其实你可以参考 vfp 和 Sql Server 的帮助文件。