用SPT来访问SQL Server数据库在OVFP中

数据库 SQL Server
以下的文章主要是介绍在OVFP中用SPT来SQL Server数据库进行访问的实际操作流程,下面就是文章的主要内容的描述。

我们今天是要和大家一起讨论的是在OVFP中用SPT来SQL Server数据库进行访问的实际操作流程,我们大家都知道VFP主要是因它简单易学,而且可快速建立应用软件而深受广大程序员喜爱,但其数据库系统不安全也令广大用户非常头痛。

随着MS SQL Server数据库系统的推广应用,其强大的安全性能普遍受到好评。笔者在长期的编程实践中,发现利用VFP的SQL pass-through(SPT)技术结合MS SQL Server数据库系统,也能像VB、Delphi、PowerBuilder一样轻松开发出优秀的客户/服务器(C/S)应用软件。现通过编写一个简单的通信录例子和广大VFP爱好者共同探讨。

一、服务器端MS SQL Server数据库设计

 

1. 在 访问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','通信录') &&指定连接的远程表名

 

上述的相关内容就是对VFP中用SPT访问SQL Server数据库的描述,希望会给你带来一些帮助在此方面。

【编辑推荐】

  1. SQL Server数据库中优化索引的妙招
  2. 实现SQL Server内嵌视图和临时表的代码
  3. 升级SQL Server系统的简洁方案
  4. SQL Server存储过程之经验与优化
  5. SQL Server2005数据库连接中易出现的错误列举
责任编辑:佚名 来源: 搜狐IT
相关推荐

2011-08-30 16:52:22

IP访问SQL Ser

2011-03-23 10:08:09

2010-07-15 17:28:50

SQL Server

2011-08-01 16:07:53

文件服务器

2011-03-28 12:33:09

SQL Server数据库链接

2010-07-01 11:20:38

SQL Server

2011-03-22 10:44:20

SQL Server数拆分字符串函数

2011-08-10 09:12:44

SQL Server插入图像存储过程

2011-09-01 12:42:09

SQL Server创建加密视图控制视图页面的访问权限

2011-07-13 16:19:54

存储过程SQL Server数

2023-08-01 09:30:12

SQL Server数据库

2011-03-29 09:15:20

原始分区SQL Server数

2010-07-08 11:05:14

SQL Server数

2009-06-03 10:51:59

连接SQL数据库Adobe Dream

2011-07-28 11:44:46

SQL Server数合并表格数据

2010-07-08 15:55:25

SQL Server

2021-05-17 06:57:34

SQLServer数据库

2010-05-20 14:52:42

MySQL数据库

2009-09-15 10:02:44

Linq to SQL

2011-07-27 18:09:18

点赞
收藏

51CTO技术栈公众号