在Visual FoxPro中使用ADO数据源

专栏作品

在Visual FoxPro中使用ADO数据源
张洪举

---

ADO是一种面向对象的数据连接方式，与ODBC有着许多相似之处。使用ADO作为数据源，首先需要一个建立一个连接对象（ADO Connection），这类似于ODBC的连接句柄；然后需要建立一个记录集合对象（ADO RecordSet），用于存放读取的数据，这类似于Visual FoxPro的临时表；最后便是使用记录集合的Open方法根据建立的连接对象，执行一个SQL查询语句，这类似SPT的SQLEXEC( )函数，该函数也是根据一个连接句柄来执行一个SQL查询。

1．建立连接（Connection）对象

ADO也同样支持ODBC数据源与字符串连接方式，如果使用ODBC数据源连接，可以建立一个文件数据源，步骤如下：

（1）在“控制面板”中打开“ODBC数据源管理器”对话框，并选择“文件DSN”选项卡，如图20-60所示。

（2）单击对话框中的“添加”按钮，打开“创建新数据源”对话框，在驱动程序列表中选择SQL Server，如图20-61所示。

（3）单击“下一步”按钮，将出现如图20-62所示的画面，可以在文本框中输入要建立的数据源名称，如：LinkNorthwind。也可以单击文本框后面的“浏览”按钮选择数据源文件保存的路径，默认为“c:/Program Files/Common Files/ODBC/Data Sources/”。

（4）单击“下一步”按钮，将出现如图20-63所示的画面。

（5）单击“完成”按钮，将出现如图20-64所示的“创建到SQL Server的新数据源”对话框。可以在“描述”文本框中输入对连接的说明，并在“服务器”下拉列表中选择好数据库服务器。

（6）单击“下一步”按钮，在出现的20-65所示的画面中选择SQL Server验证，并输入登录ID及密码。

（7）单击“下一步”按钮，在出现的20-66所示的画面中选择要连接的数据库，如：Northwind。

（8）单击“下一步”按钮，在出现的20-67所示的画面中可以选择系统消息语言等选项。

（9）单击“完成”按钮，将显示图20-68所示的数据库连接选项列表。可以单击“测试数据源”按钮测试是否已经连接成功，单击其中的“完成”按钮，完成设置，返回到“ODBC数据源管理器”对话框，如图20-69所示。

图20-60 选择“文件DSN”选项卡

图20-61 选择SQL Server驱动程序

图 20-62 输入数据源名称

图20-63 单击“完成”按钮

图20-64 选择数据库服务器

图20-65 输入登录ID及密码

图20-66 选择数据库

图20-67 单击“完成”按钮

图20-68 数据源设置选项列表

图20-69 设置完成后数据源显示在列表中

下面便可以使用这个文件数据源建立一个ADO连接，代码如下：

      LOCAL oConn AS ADODB.Connection      oConn=CREATEOBJECT("ADODB.Connection")   建立连接对象      oConn.Open("FILEDSN=C:/Program Files/Common Files/ODBC/Data Sources/LinkNorthwind.dsn","sa","")      

如果以字符串方式连接，有两种方式可选择：一种是ODBC方式，一种是OLEDB方式。

文件数据源文件实际就是一个文本文件，在其中保存了服务器名称和数据库名称等内容，定位到文件数据源的保存位置，使用记事本打开该文件，如图20-70所示。

图20-70 文件数据源中的内容

因此，可以在连接对象中Open方法中直接使用其中的内容以ODBC方式打开连接，代码如下：

      LOCAL oConn AS ADODB.Connection      oConn=CREATEOBJECT("ADODB.Connection")   建立连接对象      oConn.Open("DRIVER=SQL Server;UID=sa;PWD=;DATABASE=Northwind;SERVER=ccb-zhj")      

从上面介绍的两种连接方式，可以看出，ADO实际上是基于ODBC的一种应用程序，它提供了面向对象的数据调用方式。但是，OLEDB又是什么呢？OLEDB是位于ODBC层与应用程序之间的一个数据访问组件，也就是说，可以在ADO和ODBC之间使用OLEDB进行连接，多出了一个中间层。数据通过ADO调用，先被送到OLEDB，然后再交由ODBC处理。使用OLEDB可以提高数据的访问性能。下面是使用OLEDB连接到SQL Server数据库的代码：

      LOCAL oConn AS ADODB.Connection      oConn=CREATEOBJECT("ADODB.Connection")   建立连接对象      oConn.Open("Provider=SQLOLEDB.1;Data Source=ccb-zhj;Initial Catalog=Northwind;UID=sa;PWD=;      Trusted_Connection=NO")      

连接建立后，便可以使用连接对象的Execute方法执行一个SQL查询语句，建立一个简单的记录集合对象。为更好地解释这种连接过程，我们将其与SPT连接方式进行了比较，如表20-12所示。

表20-12 使用ADO与SPT获取数据比较

ADO方式

      *!* 声明变量      LOCAL oConn AS ADODB.Connection,;      cStrung AS Character,oRs AS ADODB.RecordSet      *!* 建立连接字符串      cString="Provider=SQLOLEDB.1;Data Source=ccb-zhj;"+;      "Initial Catalog=Northwind;"+;      "UID=sa;PWD=;Trusted_Connection=NO"      *!* 建立连接对象      oConn=CREATEOBJECT("ADODB.Connection")       oConn.Open(cString)    打开连接      *!* 执行查询，结果保存到oRs记录集合对象中      oRs=oConn.Execute("SELECT * FROM Customers")>      *!* 显示记录集合的第1个字段的值      DO WHILE NOT oRs.EOF       ?oRs.Fields(0).Value   显示字段值      oRs.MoveNext       向下移动一条记录      ENDDO            *!*显示集合的字段数      ?oRs.Fields.Count      *!* 关闭连接对象，会同时关闭对象集合      oConn.Close      

SPT方式

      *!* 声明变量      LOCAL nHandle AS Number,cString AS Character       *!* 建立连接字符串      cString="Driver=SQL Server;Server=ccb-zhj;"+;      "UID=sa;PWD=;Database=Northwind"      *!* 建立连接句柄      nHandle=SQLSTRINGCONNECT(cString)      *!* 执行查询，结果保存到curRs临时表中      =SQLEXEC(nHandle,"SELECT * FROM Customers","curRs")      *!* 显示临时表的第1个字段的值      DO WHILE NOT EOF()      ?EVALUATE(FIELD(1))  显示字段值      SKIP                   向下移动一条记录      ENDDO       *!* 显示临时表的字段数      ?FCOUNT()      *!* 关闭临时表      USE IN curRs      

请注意上述代码中，ADO的Fields对象以0来标识记录集合的第1个字段，Visual FoxPro的FIELD( )函数以1来标识表的第1个字段。

2．建立记录集合（RecordSet）对象

虽然使用连接对象的Execute方法可以将查询结果保存到一个记录集合中，但是，这个集合对记录的控制是有限的。例如，在上面建立的oRs记录集合中，无法使用oRs.MoveLast方法（类似于Visual FoxPro的GO BOTTOM命令）将指针直接移动到记录集合的尾部。因此，为了更精确地跟踪数据，要用RecordSet对象创建包含数据的游标（类似于Visual FoxPro的临时表）。

例如，下面的代码建立了一个RecordSet对象：

oRs=CREATEOBJECT("ADODB.RecordSet")

可以使用RecordSet对象的Open方法建立一个游标，Open方法的语法格式如下：

oRs.Open(Source, ActiveConnection, CursorType, LockType, Options)

其中，Source是一个可以确立为Command对象的变量，可以是一个SQL语句、存储过程或表名称等；ActiveConnection是已经建立好的连接；CursorType是游标的类型，可用值如表20-13所示；LockType指定锁定类型，可用值如表20-14所示；Options用于指定Source的类型，用以确定Source指定的是一个SQL语句还是一个存储过程等，可用值如表20-15所示。

表20-13 CursorType参数可用值

可用值说明 -1不指定游标类型 0前滚静态游标。只能向前浏览记录集合，例如，用MoveNext可以向前滚动。这种方式可以提高浏览速度， 但不能使用BookMark、RecordCount、AbsolutePosition或AbsolutePage等 1键集合游标。类似动态游标，可以看见其他用户对记录集合中记录的修改，但是不能看见其他用户添加的记录 2动态游标。所有对记录集合的操作都会立即在各用户记录集上反应出来 3静态游标。它为记录集产生一个静态备份，但其他用户的新增、删除、更新操作不影响该记录集， 这类似Visual FoxPro的私有数据工作期

表20-14 LockType参数可用值

可用值说明 -1不指定锁定类型 1只读记录集合，不能改变数据 2悲观锁定方式。数据在更新时锁定其它所有动作，这是最安全的锁定机制 3乐观锁定方式。只在调用Update方法时才锁定记录，在此之前仍然可以做数据的更新、插入、删除等动作 4乐观批量更新。编辑时记录不会锁定，更改、插入及删除是在批处理模式下完成

表20-15 Options参数可用值

可用值说明 -1不指定命令类型 1指定Source作为一个命令或存储过程的原始定义进行调用 2指定Source是一个表名称，列由内部已生成的SQL查询返回 4指定Source是一个存储过程 8默认值，表示在Source中的命令未知 256指定Source作为一个持续存储的RecordSet的文件名称 512指定Source是一个表名称

来看一个比较完整的获取记录集合的代码：

      LOCAL oConn AS ADODB.Connection,cStrung AS Character,oRs AS ADODB.RecordSet      cString="Provider=SQLOLEDB.1;Data Source=ccb-zhj;Initial Catalog=Northwind;UID=sa;PWD=;      Trusted_Connection=NO"      oConn=CREATEOBJECT("ADODB.Connection")      建立连接对象      oConn.Open(cString)                              打开连接      oRs=CREATEOBJECT("ADODB.RecordSet")         建立记录集合对象      oRs.Open("SELECT * FROM Customers",oConn,1,3,1)  读取数据，建立游标      ?oRs.RecordCount                                显示记录数      

记录集合对象的常用属性及方法如表20-16所示。

表20-16 记录集合对象的常用属性及方法

属性/方法说明 oRs.RecordCount数值型。返回集合的记录数目 oRs.Fields.Count数值型。返回集合的字段数目 oRs.Fields(n).Name字符型。返回集合中第n个字段的字段名称，其中n为0表示第1个字段，n为1表示第2个字段，依次类推， 最大值为oRs. Fields.Count-1 oRs.Fields(n).DataType数值型。返回字段的数据类型，ADO数据类型如表20-17所示 oRs.Fields(n).Value 或 oRs.Fields(cFieldName).Value返回集合中第n个字段的值。也可以在知道字段名称的情况下，直接使用字段名称cFieldName来代替n oRs.EOF逻辑型。判断是否已到集合尾部，返回.T.，表示已到集合尾部 oRs.MoveFirst将指针移动到集合的第一条记录 oRs.MoveLast将指针移动到集合的最后一条记录 oRs.MovePrev将指针向前移动一条记录 oRs.MoveNext将指针向后移动一条记录 oRs.PageCount数值型。返回集合的页数。ADO每次不是将集合中的全部数据下载到本地，而是按页下载，这类似于远程 视图中的按需下载 oRs.PageSize数值型。返回页大小 oRs.Properties.Count数值型。返回集合的属性设置数目 oRs.Properties(n).Name字符型。返回集合的第n个属性的名称，其中n为0表示第1个属性，n为1表示第2个属性， 依次类推，最大值为oRs.Properties.Count-1 oRs.Properties(n).Value返回集合的第n个属性的值 oRs.Requery重新执行查询 oRs.Close关闭集合

表20-17 ADO数据类型

常数值描述 AdArray（不应用于ADOX）0x2000这是一个标志值，是一个表示其他数据类型的数组 adBigInt208字节带符号整数 adBinary128二进制值 adBoolean11逻辑值 adBSTR8空终止的字符串（Unicode） adChapter136章节类型，表示一个子记录集 adChar129字符串值 adCurrency6货币值，8字节有符号整数，范围到10000，小数点后4位 adDate7日期值，一个双精度数，其整数表示自1899年12月30日起的天数， 其小数部分是当日的分数 adDBDate133日期值（yyyymmdd） adDBTime134时间值（hhmmss） adDBTimeStamp135日期时间标志（yyyymmddhhmmss加12位小数） adDecimal14表示固定精度和范围的精确数值 adDouble5一个双精度浮点值 adEmpty0没有值被指定 adError1032位错误代码 adFileTime64DOS/Win32下的文件时间，数值为自1601年1月1日起100纳秒数 adGUID72全局唯一的标识符 adIDispatch9一个指向OLE对象上IDispatch接口的指针，该类型现在不被ADO支持 adInteger34字节有符号整数 adIUnknown13一个指向OLE对象上的IUnknown接口的指针，该类型现在不被ADO支持 adLongVarBinary205长二进制值 adLongVarChar201长字符串值 adLongVarWChar203长空终止字符串值 adNumeric131有固定精度和范围的精确数值 adPropVariant138一个Variant（与一个自动化Variant不等价） adSingle4单精度浮点值 adSmallInt22字节有符号整数 adTinyInt161字节有符号整数 adUnsignedBigInt218字节无符号整数 adUnsignedInt194字节无符号整数 adUnsignedSmallInt182字节无符号整数 adUnsignedTinyInt171字节无符号整数 adUserDefined132用户自定义变量 adVarBinary204二进制值 adVarChar200字符串值 adVariant12自动化Variant，该类型现在不被ADO支持 adVarNumeric139表示一个可变宽度的精确数，有符号的范围值 adVarWChar202空终止Unicode字符串 adWChar130空终止Unicode字符串

3．建立命令（Command）对象

Command对象特定地为处理各种类型的命令而设计，特别是那些需要参数的命令。与Connection对象相似，Command对象可以运行返回记录集和不返回记录集两种类型的命令。实际上，如果命令不含有参数，那么它并不关心是使用Connection对象，还是Command对象或Recordset对象。下面的命令将建立一个Command对象：

oCmd=CREATEOBJECT("ADODB.Command")

要返回一个记录集合，可以使用Command对象的Execute方法。但是，与Connection对象不同的是，必须在Command对象的CommandText属性中设置命令文本，而不能在Execute方法中直接使用命令文本。Execute方法的语法格式如下： oCmd.Execute(RecordsAffected, Parameters, Options) 其中，RecordsAffected是受命令影响的记录数；Parameters参数值数值；Options是命令选项，与Recordset对象Open方法中的Options选项相似，请见表20-15所示。 下面的代码是一个利用Command对象进行简单SELECT查询的示例。

      LOCAL oConn AS ADODB.Connection,cStrung AS Character,oRs AS ADODB.RecordSet,oCmd AS ADODB.Command      cString="Provider=SQLOLEDB.1;Data Source=ccb-zhj;Initial Catalog=Northwind;UID=sa;PWD=;      Trusted_Connection=NO"      oConn=CREATEOBJECT("ADODB.Connection")      建立连接对象      oConn.Open(cString)                              打开连接      oCmd=CREATEOBJECT("ADODB.Command")       建立Command对象      oCmd.ActiveConnection=oConn                     设置活动连接      oCmd.CommandText="SELECT * FROM Customers"   设置命令      oRs=oCmd.Execute()            DO WHILE NOT oRs.EOF       ?oRs.Fields(0).Value      oRs.MoveNext       ENDDO                    

从上面的代码可以看出，使用Command对象进行查询是比较烦琐的，并且所返回的记录集合默认是只读的。可以使用RecordSet对象的CursorType和LockType属性进行重新设置，这两个属性的可用值请参见前面的表20-13和表20-14。例如，下面在的语句在建立RecordSet对象后将集合设置成了静态游标和乐观锁定方式，这样就成为了一个可更新记录集合。

      oRs.CursorType=3    静态游标      oRs.LockType=3     乐观锁定      

使用Command对象的最大好处是可以为查询命令或存储过程传递参数值，实现参数化查询。要为Command对象建立参数，需要使用Command对象的CreateParameter方法，语法格式如下： oCmd.CreateParameter (Name, Type, Direction, Size, Value) 其中，Name是一个包含参数对象名称的字符串值；Type指定参数对象的数据类型，可用值如表20-17所示；Direction指定参数对象的类型，可用值如表20-18所示；Size指定参数值的最大字符或字节长度；Value指定参数的值。

表20-18 Type参数的可用值

常量值说明 adParamInput1默认值。表示为输入参数 adParamInputOutput3表示为输出、输出参数 adParamOutput2表示为输出参数 adParamReturnValue4表示为返回值 adParamUnknown0表示为未知参数 该方法执行成功后将返回一个参数对象，可以使用Command对象的Parameters集合的Append方法将该参数对象添加到Command对象中。 在下列代码中，可以为查询命令传递两个参数cCountry和cCustomerID，参数将按照建立的顺序传递给查询语句。请注意其中为参数赋值的两种方法：一种是直接使用CreateParameter方法Value参数；另一种是在建立参数对象后，使用Parameters集合指定。

      LOCAL oConn AS ADODB.Connection,cStrung AS Character,oRs AS ADODB.RecordSet,oCmd AS ADODB.Command      cString="Provider=SQLOLEDB.1;Data Source=ccb-zhj;Initial Catalog=Northwind;UID=sa;PWD=;      Trusted_Connection=NO"      oConn=CREATEOBJECT("ADODB.Connection")      建立连接对象      oConn.Open(cString)                              打开连接      oCmd=CREATEOBJECT("ADODB.Command")      oCmd.ActiveConnection=oConn      oCmd.CommandText="SELECT * FROM Customers WHERE Country=? AND CustomerID=?"  参数化查询命令      oCmd.Parameters.Append(oCmd.CreateParameter("cCountry",129,1,10,"Brazil"))  直接为cCountry指定了参数值Brazil      oCmd.Parameters.Append(oCmd.CreateParameter("cCustomerID",129,1,10)) 未指定      参数值oCmd.Parameters("cCustomerID")="FAMIA" 指定cCustomerID的参数值      oRs=oCmd.Execute()            DO WHILE NOT oRs.EOF       ?oRs.Fields(0).Value+SPACE(10)      ??oRs.Fields("Country").Value      oRs.MoveNext       ENDDO      

4．发送更新 在将游标中的数据修改后，可以使用RecordSet对象的Update或UpdateBatch方法进行发送更新，保存修改。其中，UpdateBatch方法用于在游标的LockType属性设置为4时进行批量发送更新。 例如，下面的代码首先取得CustomerID为FAMIA的顾客信息，然后将其CompanyName字段值修改为“人民邮电出版社”，发送更新后并重新查询，可看到记录已经被保存。

      LOCAL oConn AS ADODB.Connection,cStrung AS Character,oRs AS ADODB.RecordSet      cString="Provider=SQLOLEDB.1;Data Source=ccb-zhj;Initial Catalog=Northwind;UID=sa;PWD=;      Trusted_Connection=NO"      oConn=CREATEOBJECT("ADODB.Connection")      建立连接对象      oConn.Open(cString)                              打开连接      oRs=CREATEOBJECT("ADODB.RecordSet")         建立记录集合对象      oRs.Open("SELECT * FROM Customers WHERE CustomerID='FAMIA'",oConn,1,3,1)  读取数据，建立游标      ?oRs.Fields("CompanyName").Value                      显示当前字段值      IF oRs.RecordCount=1      oRs.Fields("CompanyName").Value="人民邮电出版社"  修改字段值      oRs.Update()                                     发送更新       oRs.Requery()                                    重新执行查询      ?oRs.Fields("CompanyName").Value                  显示修改后的字段值      ENDIF