爱华网VisualFoxPro6.0与大型数据库的无"数据源"连接
Fox系列数据库产品作为一种开发信息管理系统的微机常用工具,而深受开发人员以及广大用户的喜爱，但由于微电子技术的飞速发展，CPU处理速度的快速提升，硬盘的容量、速度及其它性能的显著提高，使得原来运行于小、中型机等高档次计算机上的SQLServer、Oracle、Sybase等大型数据库得以在微机上推广应用，使得较为流行的Fox系列微机数据库暗然失色，但随着VisualFoxPro3.0以及5.0、6.0版本的推出，引入了许多新的特性，因其融入可视化编程,面向对象程序设计以及ODBC技术，它们的发布给其带来新的生机。
一．VisualFoxPro6.0作为客户端开发工具的技术特点：
VisualFoxPro6.0提供了支持客户机/服务器所需要的各种特征，包括SQL传递技术、事务处理、远程视图、数据字典、NULL类型、数据库升迁、及对ODBC资源的仪程；通过ODBC，可以访问几乎任何类型的数据库，如Oracle、SQLServer、Sybase等主流数据库，不失为客户机/服务器结构应用系统的客户端优秀开发工具，具有如下的特点：
1．开发应用系统快捷、方便，可以减轻开发人员的劳动强度，节省大量的开发时间：面向对象特性，如对象、类及其继承性、封闭性、多态性属性等，作为XBASE语言的扩展集而实现，提供了对面向对象程序设计的全面支持，使开发者更多把精力放在系统前期分析和程序设计上，而不是编码上。遵循所见即所得的原则，提供了向导、代码范围分析器、项目管理器、设计器和生成器等图形化风格的交互开发工具，使设计工作在富有情趣的环境中进行。多姿多彩的工具栏，给用户带来诸多的便利。
２．方便实现数据共享、转换：VisualFoxpro与其他Windows应用程序紧密结合，支持所有Windows的数据共享机制，包括动态连接库（DLL，DynamicLinkLibrary）、动态数据交换（DDE，DynamicDataExchange）及对象连接和嵌入（OLE，ObjectLinkingandEmbedding）等，可以与Microsoft其他应用软件，如Word、Excel等，共享数据资源，快转换成各种格式文档资料；可以利用OLE自动化命令调用其他软件中的数据。
３．丰富多媒体数据处理功能：VisualFoxpro6.0不但能进行文本格式文件、数据库文件的处理，还提供对GIF（GraphicsInterchangeFormat）和JPEG（JointPhotographicElectronicGroup）图形文件的支持，它提供了一个多媒体控制接口。通过多媒体控制接口（MCI，MultimediaControlInterface），无须介入实际设备的复杂编程就可以操纵所有的多媒体设备，例如，对MMControl控件的简单编程就可以实现视频文件、音频文件的播放等操作。
４．方便的应用编程接口（API，ApplicationProgrammingInterface）调用：VisualFoxpro6.0提供了应用编程接口（API），把其与VisualStudio套件中的其他开发工具融为一体，紧密结合，可以满足较复杂的应用系统编程需求。
５．开发应用系统体积小、运行速度快：VisualFoxpro大量应用动态连接库（DLL，DynamicLinkLibrary）机制，DLL具有一次调入内存可被多各程序、线程调用，大大减小了内存空间占用，缩小所编译程序的长度。
二．数据库连接及操作函数:
VisualFoxPrp6.0数据库与其它数据库的连接有两种方法:一种使用控件连接;另一种使用函数连接。
１．用控件连接数据库方法：在表单中加入ADO控件，具体实现过程如下：
①．建表单VisualFoxPro→“新建”→“表单”→“新建文件”；
②．选择控件“工具”→“选择”→“控件”→选中“控件”→选择“MicrosoftADODataControl,Version6.0(OLEDB)”控件→“确定”；
③．添加控件“查看类”→选择“ActiveX控件”→在显示控件中选择“MicrosoftADODataControl,Version6.0(OLEDB)”控件→在表单中加入“ADO”控件；
④．设置ADO对象属性，如ConnectionString、UserName、PassWord、CommandType、RecordSource等。
２．用函数连接数据库方法：这是本文重介绍的方法。下面让我们来认识下列一组函数,它们是SQLCONNECT()、SQLSTRINGCONNECT()、SQLDISCONNECT()、SQLGETPROP()、SQLSETPROP()、SQLPREPARE()、SQLEXEC()、SQLCANCEL()、SQLMORERESULTS()、SQLCOLUMNS()、SQLTABLES()、SQLCOMMIT()和SQLROLLBACK()，它们可以全面完成数据库的连接、处理与提交处理，见下表。
类别函数名称运行方式函数功能
连接处理SQLCONNECT([DataSourceName,cUserID,cPassword|cConnectionName])异步建立与数据源的连接。
SQLSTRINGCONNECT([cConnectString])异步通过连接字符串建立与数据源的连接。
SQLDISCONNECT(nConnectHandle)异步断开数据源连接。
连接设置处理SQLGETPROP(nConnectionHandle,cSetting)异步返回活动连接的当前设置或缺省设置参数值。
SQLSETPROP(nConnectionHandle,cSetting[,eExpression])异步设置活动连接的属性参数值。
SQL语句执行处理SQLPREPARE(nConnectionHandle,cSQLCommand[,CursorName])异步准备SQLEXEC()远程执行的SQL语句。
SQLEXEC(nConnectionHandle[,cSQLCommand[,CursorName]])同步,异步将SQL语句发送到数据源进行处理。
SQLCANCEL(nConnectionHandle)异步请求取消正在执行的SQL语句。
数据处理SQLMORERESULTS(nConnectHandle)同步,异步如果有多个结果集，将另一个结果集复制到游标中。
SQLCOLUMNS(nConnectionHandl,Tablename[,"FOXPRO"|"NATIVE"][,CursorName])同步,异步将数据源指定表的列信息存放到VisualFoxPro游标中。
SQLTABLES(nConnectionHandle[,cTableTypes][,cCursorName])同步,异步将数据源中表的信息存放到VisualFoxPro游标中。
事务处理SQLCOMMIT(nConnectionHandle)异步提交一项事务。
SQLROLLBACK(nConnectionHandle)异步取消当前事务处理过程中所做全部处理。
函数名称参数注释数值类型函数功能
SQLCONNECT([DataSourceName,cUserID,cPassword|cConnectionName])DataSourceName指定ODBC.ini文件中定义的数据源的名称;cUserID注册到数据源的用户名称;cPassword数据源用户口令;cConnectionName由CREATECONNECTION创建的命名连接.数值型正整数执行成功;-1出现连接层错误;-2出现环境层错误.
SQLSTRINGCONNECT([cConnectString])cConnectStringODBC驱动器所要求的数据源连接串，VisualFoxPro将连接串传递给ODBC驱动器.数值型正整数执行成功;-1出现连接层错误;-2出现环境层错误.
SQLDISCONNECT(nConnectHandle)nConnectionHandle连接句柄.数值型1执行成功;-1出现连接层错误;-2出现环境层错误.
SQLGETPROP(nConnectionHandle,cSetting)nConnectionHandle连接句柄;cSetting连接属性名称.数值型1执行成功;-1出现连接层错误;-2出现环境层错误.
SQLSETPROP(nConnectionHandle,cSetting[,eExpression])nConnectionHandle连接句柄；cSetting连接属性名称;eExpression连接属性参数值.数值型1执行成功;-1出现连接层错误;-2出现环境层错误.
SQLPREPARE(nConnectionHandle,cSQLCommand[,CursorName])nConnectionHandle连接句柄;cSQLCommand传递到数据源的SQL语句;CursorName存放结果集的游标名称,缺省游标名SQLRESULT.数值型1执行成功;-1出现连接层错误;-2出现环境层错误.
SQLEXEC(nConnectionHandle[,cSQLCommand[,CursorName]])nConnectionHandle连接句柄;cSQLCommand传递到数据源的SQL语句;CursorName存放结果集的游标名称,缺省游标名SQLRESULT.数值型1执行成功;-1出现连接层错误;-2出现环境层错误.
SQLCANCEL(nConnectionHandle)nConnectionHandle连接句柄.数值型1执行成功;-1出现连接层错误;-2出现环境层错误.
SQLMORERESULTS(nConnectionHandle)nConnectionHandle连接句柄.数值型2已经没有数据;1执行成功;-1出现连接层错误;-2出现环境层错误.
SQLCOLUMNS(nConnectionHandl,Tablename[,"FOXPRO"|"NATIVE"][,CursorName])nConnectionHandle连接句柄;TableName返回其列名的表的名称;FOXPRO|NATIVE列信息的格式;CursorName存放结果集的游标名称,缺省游标名SQLRESULT.数值型1执行成功;-1出现连接层错误;-2出现环境层错误.
SQLTABLES(nConnectionHandle[,cTableTypes][,cCursorName])nConnectionHandle连接句柄;cTableTypes指定一个或几个表类型,类型有'TABLE'，'VIEW'，'SYSTEMTABLE'或者数据源特定的合法的表类型标识符,必须大写,若多个类型，各类型间以逗号分隔;CursorName存放结果集的游标名称,缺省游标名SQLRESULT.数值型1执行成功;-1出现连接层错误;-2出现环境层错误.
SQLCOMMIT(nConnectionHandle)nConnectionHandle连接句柄.数值型1执行成功;-1出现连接层错误;-2出现环境层错误.
SQLROLLBACK(nConnectionHandle)nConnectionHandle连接句柄.数值型1执行成功;-1出现连接层错误;-2出现环境层错误.
下面让我们来认识一下连接属性及连接属性参数值：
属性名称数值类型缺省值注释
Asynchronous逻辑型可读写.F..F.同步返回结果集;.T.同步返回结果集.
BatchMode逻辑型可读写.T..F.由SQLMORERESULTS()逐个返回结果集;.T.由SQLEXEC()一次返回所有结果集.
ConnectBusy逻辑型只读不定.F.共享连接不忙;.T.共享连接繁忙.
ConnectString字符型只读不定注册连接串.
ConnectTimeOut数值型可读写15设置返回连接超时错误之前等待的时间（秒）;0无限期等待,并且不返回连接超时错误;可以是0～600.
DataSource字符型可读写不定ODBC.INI文件中定义的数据源名称.
DispLogin数值型可读写11或DB_PROMPTCOMPLETE（源于FOXPRO.H）,仅当缺少必要信息时才显示ODBC注册对话框;2或DB_PROMPTALWAYS（源于FOXPRO.H）,总显示ODBC注册对话框,允许在连接前更改设置;3或DB_PROMPTNEVER（源于FOXPRO.H）,从不显示ODBC注册对话框,如果缺少必要信息,会产生错误.
DispWarnings逻辑型可读写.F..F.不显示错误信息;.T.显示错误信息.
IdleTimeOut数值型可读写0空闲超时间隔（秒）,时间问隔过后,废止活动连接;0无限期等待.
ODBChdbc数值型只读不定外部库文件（FLL文件）调用ODBC可使用的内部ODBC连接句柄.
ODBChstmt数值型只读不定外部库文件（FLL文件）调用ODBC可使用的内部ODBC语句句柄.
PacketSize数值型可读写4096连接所使用的网络包大小,调整该值可以改善性能.
PassWord字符型只读不定连接口令.
QueryTimeOut数值型可读写0返回一般超时错误之前的等待时间（秒）;0无限期等待,不返回超时错误;可以是0～600.
Transactions数值型可读写11或DB_TRANSAUTO（源于FOXPRO.H）,自动进行远程表事务处理;2或者DB_TRANSMANUAL（源于FOXPRO.H）,事务处理通过SQLCOMMIT()和SQLROLLBACK()函数人工进行.
UserId数值型只读不定用户标识.
WaitTime数值型可读写100检查SQL命令执行情况之前经过的时间（毫秒）.
下面让我们来认识一下连接属性及连接属性参数值：
属性名称数值类型缺省值注释
Asynchronous逻辑型可读写.F..F.同步返回结果集;.T.同步返回结果集.
BatchMode逻辑型可读写.T..F.由SQLMORERESULTS()逐个返回结果集;.T.由SQLEXEC()一次返回所有结果集.
ConnectBusy逻辑型只读不定.F.共享连接不忙;.T.共享连接繁忙.
ConnectString字符型只读不定注册连接串.
ConnectTimeOut数值型可读写15设置返回连接超时错误之前等待的时间（秒）;0无限期等待,并且不返回连接超时错误;可以是0～600.
DataSource字符型可读写不定ODBC.INI文件中定义的数据源名称.
DispLogin数值型可读写11或DB_PROMPTCOMPLETE（源于FOXPRO.H）,仅当缺少必要信息时才显示ODBC注册对话框;2或DB_PROMPTALWAYS（源于FOXPRO.H）,总显示ODBC注册对话框,允许在连接前更改设置;3或DB_PROMPTNEVER（源于FOXPRO.H）,从不显示ODBC注册对话框,如果缺少必要信息,会产生错误.
DispWarnings逻辑型可读写.F..F.不显示错误信息;.T.显示错误信息.
IdleTimeOut数值型可读写0空闲超时间隔（秒）,时间问隔过后,废止活动连接;0无限期等待.
ODBChdbc数值型只读不定外部库文件（FLL文件）调用ODBC可使用的内部ODBC连接句柄.
ODBChstmt数值型只读不定外部库文件（FLL文件）调用ODBC可使用的内部ODBC语句句柄.
PacketSize数值型可读写4096连接所使用的网络包大小,调整该值可以改善性能.
PassWord字符型只读不定连接口令.
QueryTimeOut数值型可读写0返回一般超时错误之前的等待时间（秒）;0无限期等待,不返回超时错误;可以是0～600.
Transactions数值型可读写11或DB_TRANSAUTO（源于FOXPRO.H）,自动进行远程表事务处理;2或者DB_TRANSMANUAL（源于FOXPRO.H）,事务处理通过SQLCOMMIT()和SQLROLLBACK()函数人工进行.
UserId数值型只读不定用户标识.
WaitTime数值型可读写100检查SQL命令执行情况之前经过的时间（毫秒）.
四．非DSN连接字符串的组成：
除了ADO所定义的参数外，提供者不支持任何特定连接参数。但是，提供者将把任何非ADO连接参数传递给ODBC驱动程序管理器。
由于可以省略Provider参数，因此使用与撰写ODBC连接字符串时用的相同参数名（DRIVER=、DATABASE=、DSN=等等）、值和语法，可以撰写与同一数据源的ODBC连接字符串相同的ADO连接字符串。
1.对于SQLServer数据库：
[Provider=MSDASQL;]DRIVER={DriverName};SERVER=server;DATABASE=database;UID=user;PWD=password"例如：cnna.ConnectionString="Provider=MSDASQL;"_+"driver={SQLServer};"_+"server=servera;"_+"database=pubs;"_+"uid=sa;"_+"pwd=yyuui"
2.对于Sybase数据库：
[PROVIDER=MSDASQL;]DRIVER={DriverName};SRVR=server;注：必须是SRVR，而不能是SERVER。DB=database;注：可以是DB，也可以DATABASE。DSN=;注：该项可以省略。UID=user;PWD=passwod例如：cnnb.ConnectionString="Provider=MSDASQL;"_+"DRIVER={SybaseSystem11};"_+"SRVR=serveru;"_+"DSN=;"_+"DB=dataa;"_+"UID=sa;"_+"PWD=dqwe"_
3.对于Oracle数据库：
[PROVIDER=MSDASQL;]DRIVER={DriverName};SERVER=server;databasename=database;databasefile=path;DSN=;UID=user;PWD=password;例如：cnnc.ConnectionString="Provider=MSDASQL;"_+"DRIVER={MicrosoftODBCforOracle};"_+"SERVER=Webserver;"_+"DSN=;"_+"databasename=dataall;"_+"databasefile=d:data;"_+"UID=dba;"_+"PWD=zxcv"
4.对于Informix数据库：
[Provider=MSDASQL;]Driver={DriverName};Host=IPAdress;Database=database;UID=user;PWD=password;FetchBufferSize=integer;NoLoginBox=Yes;Options=;Protocol=TCP/IP;ReadOnly=No;ServerOptions=;ServerType=InformixVersion例如：cnnd.ConnectionString="Provider=MSDASQL;"_+"Driver={OpenLinkGeneric32BitDriver};"_+"Host=11.66.17.151;"_+"Database=pubs;"_+"UID=sa;"_+"PWD=asdf;"_+"FetchBufferSize=30;"_+"NoLoginBox=Yes;"_+"Options=;"_+"Protocol=TCP/IP;"_+"ReadOnly=No;"_+"ServerOptions=;"_+"ServerType=Informix7.2"
注：［］中的内容可以省略。
五．实例一瞥：
服务器安装windows2000Server操作系统，以Sybase11.9.2数据库作为服务器端数据库管理数据；客户端安装Windows98，Sybase客户端程序OpenClient，以VisualFoxPro6.0数据库作为客户端开发工具。扬长避短，相得益彰，充分发挥Sybase数据库安全性、可靠性高，管理数据量大；VisualFoxPrp6.0数据库开发人员熟悉，开发速度快，程序体积小，运行速度快，占用资源少的特点。
以Sybase11.9.2为例，编制一个实用的学籍管理程序，以期达到抛砖引玉的效果；数据库名称为Studentdb，只包括一个表（Student），其结构如下：
字段名称宽度注释
codenchar(22)代号
namechar(8)姓名
birthdaynchar(8)生日
gradeint年级
classint班
tuitionnumeric(7,2)学费
mathsnumeric(5,2)数学
chinesenumeric(5,2)语文
physicsnumeric(5,2)物理
chemistrynumeric(5,2)化学
historynumeric(5,2)历史
geobiologynumeric(5,2)地理
biologynumeric(5,2)生物
gymnumeric(5,2)体育
调试程序时需要注意以下问题：
①．服务器端Sybase数据库服务必须处于启动状态；
②．客户端安装必须选中“√”ODBCDriver组件；
③．客户端通过OpenClient程序组中的Dsedit组件配置连接，具体连接操作过程如下：“Dsedit”→“AddServerObject”→输入服务名称（ServerName）→“OK”→“单击”选择所输入服务名称→“单击”“ServerAddress”→“右键”→“ModifyAttributes”→“Add”→选择“TCP”协议→“NetworkAddress”在此输入IP地址和端口号，例：10.23.12.120,5000→“PingServer”测试是否连通，否则检查机器连接或重复上述过程。
④．注意两种数据库数据类型的对应关系如下表：
VisualFoxPro6.0数据库数据类型Sybase数据库数据类型
字符型(C)Char
nchar
nvarchar
varchar
货币型(Y)money
smallmoney
数值型(N)decimal
numeric
浮动型(F)无
日期型(D)无
日期时间型(T)datetime
Smalldatetime
双精度型(B)float
Real
整型(I)Int
smallint
tinyint
逻辑型(L)Bit
备注型(M)Text
通用型(G)image
字符型(二进制)(C)无
备注型(二进制)(M)binary
varbinary
关键程序段：
*连接远程数据源
PROCEDUREActivatewaitwindowat12,20nowait"请稍后!正在连接远程数据源......"VarDriver=THISFORM.Text1.ValueVarServer=THISFORM.Text2.ValueVarDatabase=THISFORM.Text3.ValueVarUser=THISFORM.Text4.ValueVarPassword=THISFORM.Text5.ValueStoresqlstringconnect("Provider=MSDASQL;DRIVER={"+alltrim(VarDriver)+"};DSN=;SRVR="+alltrim(VarServer)+";DB="+alltrim(VarDatabase)+";UID="+alltrim(VarUser)+";PWD="+alltrim(VarPassword))toConnHandle&&ConnHandle为连接句柄ifConnHandle<0=messagebox(space(4)+"连接远程数据源失败！原因如下："+chr(10);+"１.“SYBASE信息”参数配置不正确；"+chr(10);+"２.SYBASE服务（"+alltrim(upper(VarServer))+"）未启动。",16,"错误提示:")waitclearcloseallreturnelsewaitclear……=sqldisconnect(ConnHandle)endifENDPROC……PROCEDURERelease=sqldisconnect(ConnHandle)closeallENDPROC
*查询
&&结果存入自定义游标MathsCursor=sqlsetprop(ConnHandle,'batchmode',.T.)&&设置一次返回所有结果集=sqlprepare(ConnHandle,"selectcode,name,grade,class,mathsfromstudentwheregrade='"+Vargrade+"'andclass='"+Varclass+"'","mathscursor")=sqlexec(ConnHandle)……*表单中加入页框控件,表格控件THISFORM.Pageframe1.Page1.Grid1.RecordSource="mathscursor"THISFORM.Pageframe1.Page1.Grid1.RecordSourceType=1&&别名THISFORM.Pageframe1.Page1.Grid1.Column1.ControlSource="mathscursor.code"THISFORM.Pageframe1.Page1.Grid1.Column2.ControlSource="mathscursor.name"THISFORM.Pageframe1.Page1.Grid1.Column3.ControlSource="mathscursor.grade"THISFORM.Pageframe1.Page1.Grid1.Column4.ControlSource="mathscursor.class"THISFORM.Pageframe1.Page1.Grid1.Column5.ControlSource="mathscursor.maths"……
*修改
=sqlsetprop(ConnHandle,'transactions',2)&&设置人工事务处理=sqlprepare(ConnHandle,"updatestudentsetgrade=grade+1")&&新年升级处理=sqlexec(ConnHandle)ifmessagebox("确定修改所输入数据信息吗?",4+32,"运行提示:")=6=sqlcommit(ConnHandle)else=sqlrollback(ConnHandle)THISFORM.text1.setfocusendif……
*删除
Vargrade=THISFORM.Text1.Value=sqlsetprop(ConnHandle,'transactions',2)&&设置人工事务处理=sqlprepare(ConnHandle,"deletefromstudentwheregrade='"+Vargrade+"'")=sqlexec(ConnHandle)ifmessagebox("确定删除所输入数据信息吗?",4+32,"运行提示:")=6=sqlcommit(ConnHandle)else=sqlrollback(ConnHandle)THISFORM.text1.setfocusendif……
*增加
Varcode=THISFORM.Text1.ValueVarname=THISFORM.Text1.Value……=sqlsetprop(ConnHandle,'transactions',2)&&设置人工事务处理=sqlprepare(ConnHandle,"INSERTINTOstudent(code,name,birthday,grade,class,tuition,maths,chinese,physics,chemistry,history,geobiology,biology,gym);VALUES('"+Varcode+"','"+Varname+"','"+Varbirthday+"',"+Vargrade+","+Varclass+","+Vartuition+","+Varmaths+","+Varchinese+","+Varphysics+","+Varchemistry+","+Varhistory+","+Vargeobiology+","+Varbiology+","+Vargym+")")=sqlexec(ConnHandle)ifmessagebox("确定增加所输入数据信息吗?",4+32,"运行提示:")=6=sqlcommit(ConnHandle)else=sqlrollback(ConnHandle)THISFORM.text1.setfocusendif……
