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 的记录.

原文地址:https://www.cnblogs.com/hnllhq/p/12311284.html

时间: 2024-10-27 11:31:39

VFP执行 SQL Server 储存过程示例的相关文章

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

本文为原创文章,转载请注明出处!我的博客地址:http://www.cnblogs.com/txwd 由于工作原因,到目前为此已有一年多没有写SQL Server的储存过程了,已有些生疏.日前工作中有个表的数据需要定时更新,翻了一下以前写的储存过程,在此记录一下. 需求是这样的: 有两张表     1.博主表: Blogger ,2.博主对应的文章表: BlogForBlogger 文章表的数据由服务端定时获取,博主表有个字段保存博主文章的总数量,所以这个字段要定时去更新. 实现:创建一个储存过

SQL Server 储存过程的output 参数

要做的参数的回传一方面要做到有储存过程的配合,再一方面也要有调用方法的配合,也就是说错误的调用方法是没有办法把值回传的. 下面是例子 --1.储存过程方面的配合 create procedure dbo.usp_C @i as int output    ---**注意这里要用output 关键字**--- as begine set @i =100; end; -- 2.调用方面的配合 declare @j as int =1; exec dbo.usp_C @j output ;--**注意

SQL SERVER 2008复制数据库时发生执行SQL Server代理作业错误

1. 情况说明 在利用SQL SERVER数据库复制向导,能够很方便的将一个数据库从一台服务器复制到另一台服务器上,具体操作步骤也十分简单. 不过在实际操作过程常发生“执行SQL SERVER代理作业错误”,点击查看详细会提示“作业失败 有关详细信息,请查看目标服务器上的事件日志”. 2. 处理方案 发生这种情况的一般原因是目标服务器的SQL SERVER代理服务的权限过低.更改代理服务权限为LocalSystem账户即可. A. 开始–程序–SQL SERVER 配置管理器 B. 点击左侧“S

sql之储存过程与函数的区别

1.创建函数.查找函数 /*创建带参数的函数,返回单个*/ CREATE FUNCTION [dbo].[GETGrade](@userName nvarchar(10),@subject nvarchar(10)) returns nvarchar(10) as begin declare @grade nvarchar(10) if @userName='张三' set @grade=(select [source] from TestRows2Columns where [email pr

安装SQL Server 2008过程

说实话这个安装的过程真的是前前后后经历了大概一个月的时间,一直拖拖拉拉地到昨天晚上才正式安装完成.本来是四月份的时候就计划安装SQL Server 2008,但是由于系统的某些原因一直没有安装成功,也是从网上找突破口和询问我哥,一起在网上聊关于SQL Server 2008的安装环境,说了很多,也在网上找了大量的资料,还是没有找到解决的方法安装就搁置了,后来在Winform的学习过程中又有些接触SQL Server 200,然后就又开始安装,依旧还是老毛病,找不出什么解决的方法. 谈到重装系统我

python 连接sql server数据库的示例代码

首先,到http://pymssql.sourceforge.net/下载pymssql模块,必须安装这个模块才可以用python连接mysql 以下是sql server的操作代码,需要注意字符集 # -*- coding:utf-8 -*- import pymssql #创建一个数据库连接,host是服务器的ip地址,如果是本机可以用".",user是访问用户名,password是密码,database是数据库名 conn=pymssql.connect(host=".

SQL Server 恢复过程

在恢复过程中.只会分析那些自最后一个检查点之后发生的更改,以确定是否需要重做还是撤销. 在最后一个检查点之前完成的操作都会精确的反应到数据文件中,恢复过程不需要做其它的事. 第一阶段: 分析. 这个阶段构造脏页表.也会构造包涵未提交的活动事务表. 第二阶段: 重做. 从最早打开的活动事务开始.这样可以获得必要的锁. 第三阶段: 回滚. 在sql server 停止时任何没有提交的事务都会被撤销. --------------------------------------------------

安装SQL Server 2012过程中出现“启用windows功能NetFx3时出错”(错误原因、详细分析及解决方法)以及在Windows Server2012上安装.NET Framework 3.5的详细分析及安装过程

       问题:在服务器(操作系统为Windows server 2012)上安装SQL Server 2012的过程中,安装停留在下图所示的界面上,显示”正在启用操作系统功能NetFx3”随后出现提示框,告知启用windows功能NetFx3时出错. 分析:NetFx3指的是.NET Framework 3.5,SQL Server 2012数据库系统的运行需要依靠.NET Framework 3.5,但是Windows Server2012默认情况下是并没有安装.NET Framewor

Microsoft Dynamics CRM 2015 之安装SQL Server 2012过程中出现“启用windows功能NetFx3时出错

错误详细信息: § 安装 Microsoft .NET Framework 3.5 时出错 启用 Windows 功能 NetFx3 时出错,错误代码: -2146498298.请尝试从 Windows 管理工具启用 Windows 功能 NetFx3,然后重新运行安装程序.有关如何启用 Windows 功能的详细信息,请参阅 http://go.microsoft.com/fwlink/?linkid=227143 错误代码: 0x85940001 访问 http://go.microsoft