VFP执行 SQL Server 储存过程示例

Posted 老瓷叙谈

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VFP执行 SQL Server 储存过程示例相关的知识,希望对你有一定的参考价值。

PUBLIC errval
PUBLIC errmsg
PUBLIC handle
errval=0
errmsg=‘ ‘

*Sql Server 连接参数
sourcename= ‘test‘
user= ‘sa‘
passwd=‘‘

******** 连接
* 为连接打开错误显示
=SQLSetProp(0,"DispWarning",.t.)
handle=SQLConnect(sourcename,user,passwd)
IF handle > 0
WAIT WINDOW ‘连接成功‘ NOWAIT
ENDIF

******** 设置一些默认值
=SQLSetProp(handle,‘Asynchronous‘,.f.)
=SQLSetProp(handle,‘BatchMode‘,.t.)
=SQLSetProp(handle,‘ConnectTimeOut‘,0)
=SQLSetProp(handle,‘Transactions‘,1)

err=SQLExec(handle,‘use pubs‘)
DO errhand WITH err,‘USE PUBS‘

********** 该程序演示如何实现 SQL 的 SQLExec() 函数
sqlcomm= "execute showsales ‘7066‘"
err=SQLExec(handle,sqlcomm)
DO errhand WITH err,"SQLExec(handle,"+sqlcomm+")"
IF err > 0
BROWSE
ENDIF

********** 断开
err=SQLDisconnect(handle)
DO errhand WITH err,"SQLDisconnect()"
CLOSE ALL

********** 错误处理程序
PROCEDURE errhand
PARAMETERS err,command
IF err > 0
  WAIT WINDOW ALLTRIM(UPPER(command))+"完全成功" NOWAIT
ELSE
  WAIT WINDOW UPPER(command)+"没有完全成功"
ENDIF
RETURN 
注意程序返回两个 stor_id 为 7066 的记录. 

以上是关于VFP执行 SQL Server 储存过程示例的主要内容,如果未能解决你的问题,请参考以下文章

sqlserver 如何修改储存过程的名字

SQL Server:执行存储过程问题

[SQL Server]储存过程中使用临时表循环操作数据

vfp9.0连接sql数据库

SQL Server 为代码减负之存储过程

C#编写dll进行sql server数据库扩展储存过程