VFP因它简单易学,可快速建立应用软件而深受广大程序员喜爱,但其数据库系统不安全也令广大用户非常头痛。随着MS SQL Server数据库系统的推广应用,其强大的安全性能普遍受到好评。笔者在长期的编程实践中,发现利用VFP的SQL pass-through(SPT)技术结合MS SQL Server数据库系统,也能像VB、Delphi、PowerBuilder一样轻松开发出优秀的客户/服务器(C/S)应用软件。现通过编写一个简单的通信录例子和广大VFP爱好者共同探讨。
一、服务器端MS SQL Server数据库设计
1. 在MS SQL Server中建立名为“SFXT”的数据库。
2. 在SFXT数据库中建立名为“通信录”的数据表,表结构如下:
列名(字段名) 数据类型 长度
姓名 chr 8
生日 datetime 8
电话 chr 11
email chr 30
并将姓名设置为主键。
3. 在“SFXT”数据库中建立查询出所有记录的存储过程。 SP_SearchAll
CREATE PROCEDURE [SP_SearchAll]
AS
select * from 通信录 order by 姓名
return
4. 在“SFXT”数据库中建立插入新记录的存储过程 SP_InsertData。
CREATE PROCEDURE [SP_InsertData]
@name [char] (10),
@birthday [datetime] ,
@telephone [char] (11),
@email [char] (30)
AS
insert into 通信录(姓名,生日,电话,email) values (@name,@birthday,@telephone,@email)
return
二、客户端VFP的SQL pass-through技术设计
1. 建立如(^15020603b^)的VFP表单界面。
2. 建立名为“SFXT”的ODBC数据源连接MS SQL Server中的SFXT数据库。
可通过执行上面VFP表单的按钮“建立OBDC数据源”来完成;或者通过运行Windows控制面板中的“OBDC数据源”来完成。主要设置包括选择SQL Server驱动程序,通信协议,登录标识与密码等。
“建立OBDC数据源”按钮.CLICK事件:
*函数说明SQLSTRINGCONNECT([cConnectString])
*省略连接字符串cConnectString时显示””SQL数据源””对话框,可选择或新建数据源
sqlstringconnect()
3. 两种连接MS SQL Server数据源的方式。
使用现有数据源名称建立连接,“建立连接方式1”按钮.CLICK事件。
public vodbc,vuser,vpwd,vconn
vodbc=sfxt &&连接SQL SERVER数据库ODBC数据源名称
vuser=sa &&访问SQL SERVER数据库的登录用户名,sa为系统用户
vpwd=5213 &&用户登录密码,为sa系统用户设置的密码
vconn=SQLCONNECT(vodbc, vuser,vpwd)
if vconn>0
messagebox(连接成功!,,ODBC数据源)
else
messagebox(连接失败!,,ODBC数据源)
endif
使用连接字符串建立数据源连接,“建立连接方式2”按钮.CLICK事件。
public vconn
vconn=SQLSTRINGCONNECT(dsn=sfxt:uid=sa:pwd=5213)
if vconn>0
messagebox(连接成功!,,ODBC数据源)
else
messagebox(连接失败!,,ODBC数据源)
endif
4. 数据源连接的主要参数设置,“活动连接属性设置”按钮.CLICK事件。
* 注:用函数sqlgetprop()可返回设置的参数值
sqlsetprop(vconn,””asynchronous””,.f.) &&取假值时为结果集同步返回: 取真值时为异步返回
sqlsetprop(vconn,””ConnectTimeOut””,15) &&连接超时等待秒数设置,可取值0至600
sqlsetprop(vconn,””IdleTimeout””,0) &&空闲超时间隔秒数,取值0为无限期超时等待
sqlsetprop(vconn,””Transactions””,1) &&取值1时为自动处理远程事务:取值2时为手工处理
5. “执行存储过程查询数据”按钮.CLICK事件。
*函数说明SQLEXEC(nConnectionHandle, [cSQLCommand, [CursorName]])
*nConnectionHandle 当前数据源活动连接句柄
*cSQLCommand 执行SQL SERVER存储过程的SQL语句表达式
*CursorName 返回执行结果临时表的名称
sqlexec(vconn,””execute SP_SearchAll””,””我的通信录””)
browse
6. “执行SQL语句查询数据” 按钮.CLICK事件。
*函数说明SQLEXEC(nConnectionHandle, [cSQLCommand, [CursorName]])
*nConnectionHandle 当前数据源活动连接句柄
*cSQLCommand 需发送SQL语句表达式
*CursorName 返回执行结果临时表的名称
SQLEXEC(vconn, SELECT * FROM 通信录, 我的通信录)
browse
7. “向存储过程传替参数插入新记录” 按钮.CLICK事件。
local vname,vbirthday,vtelephone,vemail,vsql
*随机产生新记录举例
vname = 姓名+sys(3) &&姓名
vbirthday = dtoc(date()-int(rand()*10000)) &&生日
vtelephone = sys(3) &&电话
vemail = sys(3)+@hotmail.com &&电子邮箱
*将传递到存储过程的参数转换成字符串,并加引号形成SQL语句。
vsql=””execute SP_InsertData “”+””””+vname+””,””+vbirthday+””,””+vtelephone+””,””+vemail+””””
if sqlexec(vconn,vsql)>0 &&发送SQL语句
messagebox(插入新记录成功!,,信息)
else
messagebox(插入新记录不成功!,,信息)
endi
sqlexec(vconn,””execute SP_SearchAll””,””我的通信录””)
browse
8. “设置当前表的属性修改数据” 按钮.CLICK事件。
* 注:用函数cursorgetprop()可返回设置的参数值
cursorsetprop(BatchUpdateCount,100) &&发送到缓冲表的远程数据源的更新指令的数目
cursorsetprop(Buffering,3) &&设置当前表为开放式行缓冲
cursorsetprop(FetchSize,-1) &&从远程表中提取全部查询记录
cursorsetprop(KeyFieldList,姓名) &&指定远程表的主关键字段
cursorsetprop(SendUpdates,.t.) &&当前缓冲表更改内容时发送SQL语句更新远程表
cursorsetprop(Tables,通信录) &&指定连接的远程表名
*本地缓冲表与远程表字段对应关系
cursorsetprop(UpdateNameList,姓名 通信录.姓名,生日 通信录.生日,电话 通信录.电话,email 通信录.email)
*指定可更新字段列表
cursorsetprop(UpdatableFieldList,姓名,生日,电话,email)
cursorsetprop(UpdateType,1) &&远程表更新方式,替换方式
cursorsetprop(WhereType,3) &&更新SQL语句中where子句包含主关键字与被修改过的字段
browse &&修改缓冲表数据,移动记录指针后,自动发送SQL语句更新远程表
9. “断开指向数据源的连接” 按钮.CLICK事件。
sqldisconnect(vconn)
10.“关闭” 按钮.CLICK事件。
thisform.release
以上我们利用VFP的SQL pass-through技术编写了一个简单的通信录管理程序,实现对SQL Server数据库中数据的插入、查询、修改等基本功能,是一个典型的客户/服务器(C/S)结构的应用程序。希望对读者今后开发软件有所帮助。
vfp中用spt访问sql server数据库_数据库技巧
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » vfp中用spt访问sql server数据库_数据库技巧
相关推荐
-      sql语句中的判断功能的使用方法
-      sql语句中的判断功能的使用方法
-      SQL语言中去掉小数点有效数字后面的所有0
-      ASP连接各种数据库的代码
-      在sql语句中实现md5功能
-      给access数据库减肥
-      asp连接access数据库代码(2)
-      ASP连接access数据库代码