vfp远程视图与spt应用详解 下载本文

慢、繁琐。我以为,“远程视图”是组件化的SPT,是微软公司对SPT部分功能的图像化封装,所以它显得更有生产效率,同时由于系统作得多了,功能也就弱了,“远程视图”能做得就是那些事情——从数据源读取一个结果集,在客户端对它维护,并自动将变动结果更新到数据源。然而作为系统开发,我们会在实践中遇到林林总总、奇奇怪怪的需求,只有“远程视图”独立担当显然是不行的,所以SPT的出现有它的必然性。在其他的远程数据处理组件中也有类似的概念,例如ADO中的RecordSet相当于Visual FoxPro的远程视图,Command相当于Visual FoxPro的SPT。

13个SPT函数

Visual FoxPro 中内置了13个以SQL开头的函数,我们把它们称为SPT函数。就是这13个函数完成了Visual FoxPro的所有的SQL Pass Though功能。从功能上看,我们可以把它们分成五个部分:

连接函数

连接建立函数:SqlConnect(),SqlStringConnect()

连接的断开函数:SqlDisconnect()

核心的执行函数

SQL语句传输及执行函数:SqlExec(),SqlPrapare()

批次模式下更多数据集的取得函数:SqlMoreResults()

异步模式下撤销正在执行的SPT的函数:SqlCancel()

事务处理函数

SqlCommit(),SqlRollBack()

连接通道属性函数

SqlGetProp(),SqlSetProp()

数据源的信息截取函数

SqlTables(),SqlColumns()

连接到SQL Server

连接

SqlConnect()的两种用法

一般来说SqlConnect有两种用法:直接调用操作系统里的用户型或系统型DNS;使用当前数据库DBC的连接对象。

如果已经在操作系统中制作了一个名为LocalServer的系统型DNS,在命令窗口中我们就可以直接键入:

SQLCONNECT(\,\

如果当前数据库中存在连接对象,我们就可以这样调用它:

SQLCONNECT(\

SqlStringConnect()函数的用法

在用了SqlConnect以后,大家也许会发现不太自由,能不能及时动态建立连接呢?可以的,用SqlStringConnect()就可以了:

SQLSTRINGCONNECT(\

Server;Server=See-you;Uid=sa;pwd=;database=northwind\

我们解释一下参数字符串的意义,driver指明了使用哪一个ODBC驱动程序,这里是SQL Server;Server是指SQL Server的服务器名称,我的服务器叫:See-You;UID是在SQL Server的用户名称,这里使用SA;PWD是用户口令,这里为空值;最后我们指定了要连接的数据库的名字,这次我们仍然使用NorthWind数据库。所有这些条件组成了一个字符串,各条件用分号分割,我的实验表明对这大小写的要求不高,当然不包括用户口令和用户名。

关于连接的两大问题

连接建立起来很简单,但尚有问题要解决:怎么判断连接是否成功?怎么屏蔽SQL Server的登陆对话框?

第一个问题很好解决,只要SqlConnect()或是SqlStringConnect()返回正整数(>0的数)就表示连接成功,得到的正整数很重要——就是连接句柄!

STORE SQLCONNECT('LocalServer', 'sa','错误密码') TO gnConnHandle IF gnConnHandle <= 0

= MESSAGEBOX('连接错误', 16, '连接到SQL Server') ELSE

= MESSAGEBOX('连接成功', 48, '连接到SQL Server')

ENDIF

在有些时候,连接发生错误会弹出以下两个提示框(有时出现前一个、有时出现后一个,有

时连续出现):

连接错误提示

SQL Server的登录提示

这是一个让人迷惑的的问题,我以为:第一个“连接错误提示”是限于Visual FoxPro或ODBC的层次,也就是说与SQL Server无关,这种错误的出现往往是找不到SQL Server服务器之类的问题,如以下的语句:

SQLSTRINGCONNECT(\

Server;Server=See-y1ou;Uid=sa;pwd=;database=northwind\

这是为了让用户更正连接信息的,但是在实际开发中没有哪个程序员希望此对话框暴露在用户面前。如果我们使用的连接是DBC的连接对象,问题就比较好解决,因为在建立连接时我们可以设定连接对话框的出现规律:

同样的我们可以通过命令来控制“显示 ODBC 登录提示”:

DBSETPROP(\发生连接错误时弹出 DBSETPROP(\任何时候总是误时弹出 DBSETPROP(\发任何时候都不弹出

但是当我们使用连接字符串、直接使用操作系统的DNS时,它们都不是Visual FoxPro的DBC中的连接对象,就不能用以上的方法控制,我们可以设定Visual FoxPro的环境:

SQLSETPROP(0,\

注意我对第一个参数赋值为0,表明设定的是对Visual FoxPro的系统环境进行设定。值得注意的是,系统环境设定只是与这种即时产生连接有效,对存放在DBC中的连接对象并不起作用,根据连接对象建立的连接的有关属性还是要通过DBSETPROP()来设定。

断开连接

建立的连接就应该再不用时及时断开,断开连接请使用SqlDisConnect()函数。

Local hConn

hconn=SQLCONNECT(\ ?SQLDISCONNECT(hconn) //返回1表示连接断开成功

这里有三个问题提请大家注意。第一,如果hconn是一个有效的连接句柄,对它执行SqlDisConn()函数会有这样的结果,成功返回1,其他表示断开操作失败;第二:如果hconn不是一个有效的连接句柄,Visual FoxPro将触发一个错误,错误代号为1466,怎样判断某个连接句柄是不是有效的方法,我们在后文介绍;第三,如果想一下子断开所有的连接,您可以使用这样的方法:

SQLDISCONNECT(0)

从后端得到数据集

得到一个数据集

SQLEXEC(nConnectionHandle, [cSQLCommand, [cCursorName]])

先来解释一下SQLEXEC()函数:参数nConnectionHandle表示连接句柄;参数cSQLCommand表示要传送的语句,注意此语句一定是数据源认得的语句,而不是Visual FoxPro的语句。这一点从SQL Pass Though这个名字上就能看得出了,顾名思义:Visual FoxPro只不过是是将别人的语言传送给别人,这一点在SQLEXEC()函数体现的特别突出;参数cCursorName表示得到的结果集的名字,如果省略,返回的结果集将以Sqlresult命名。

如果返回1表示,执行成功;如果返回0表示正在执行;如果返回负数表示执行失败。

如果我们希望得到NorthWind数据库中的Employees表的数据,就可以执行以下命令:

SQLEXEC(hconn,\Browse

判断连接有效性

这是一个非常实际的问题,我们建立了一条连接以后,怎样知道Visual FoxPro与SQL Server的通信是正常的,机连接是确实有效的,只有一种方法——应用这条连接,可以这样:

?SQLEXEC(hconn,\

&&一个空的命令发送,返回1的话证明连接可用!

大型语句的传递技巧

如果想得到一个更为复杂的结果集合,我们可以传送依据大型的SQL-Select描述。这里有一些经验送给大家:

如果传送的语句太大(大约是超过256个字符,其实没有必要去计数只要你觉得语句很大时就应该考虑我的建议,不然您就没有办法传送大型的语句),您直接把要传送的语句放入SQLEXEC()中,Visual FoxPro就会报错,说无法认得此语句,于是大家就又多了诽谤Visual