慢、繁琐。我以为,“远程视图”是组件化的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