VFP CursorAdapter 起步二(作者：Doug Hennig 译者：fbilo)

用 CursorAdapter 来取得和更新数据

在 VFP8 中新增的 CursorAdapter 基类提供一个统一、易用的数据接口。Doug Hennig 在这个月的文章中演示了怎样使用 CursorAdapter 来访问本地数据和 ODBC、ADO和XML这样的远程数据——讨论了使用各种数据源相应的特殊要求和实现途径。
正文：
如我在上一篇文章中所提到的那样，在VFP8中一个最重要的、也是最精彩的新功能是新的 CursorAdapter 基类。在那篇文章中，我们研究了一下 CursorAdapter 的属性、事件和方法，并讨论了它相对于远程视图、SQL PassThrough(SPT)、ADO和XML的优势。
在开始使用 CursorAdapter 之前，你需要根据要访问的是本地数据还是通过ODBC、ADO或者XML的远程数据源的不同，注意这个类所相应的不同的特殊要求。这个月的文章就讲述了使用各种数据源的细节。
使用本地数据源
×××××××
尽管我们很清楚 CursorAdapter 是试图用来标准化和简化对非VFP数据的访问方式的，不过你还是可以把它当作是 Cursor 的代替品用它来访问VFP数据：只要把它的 DataSourceType 属性设置成 "Native"。为什么要这么做呢？因为你的应用程序将来可能会需要升迁——那时候你就可以把 DataSourceType 属性设置成其它几个选项之一（当然可能还需要修改其它几个属性，例如设置连接信息等等），就能轻松的切换到另一种数据库引擎，例如SQL Server。
当 DataSourceType 属性的设置为 "Native" 的时候，VFP会忽略它的 DataSource属性。SelectCmd属性必须是一个 SQL Select 语句（而不是一个 USE 命令或表达式），这就意味着你用 CursorAdapter 不是直接操作本地表而是操作一个类似于本地视图那样的东西。你还必须确保VFP能够找到出现在那个 Select 语句中的任何表，因此，如果这些表不在当前路径中，那么你就需要设置一下路径或者打开这些表所属的数据库。此外，就跟用视图一样，如果你想让这个 Cursor 是可更新的，你还必须设置好那些与更新相关的属性（KeyFieldList、Tables、UpdatableFieldlist和 UpdateNameList）。
下面的例子（文章附件 NativeExample.prg）会用 VFP 示例数据库中的 Customer 表建立一个可更新的 Cursor：
local loCursor as CursorAdapter, laErrors[1]
Open database (_samples + \'data\\testdata\')
with loCursor
.Alias = \'customercursor\'
.DataSourceType = \'Native\'
.SelectCmd = "Select CUST_ID, COMPANY, CONTACT FROM CUSTOMER " + ;
"WHERE COUNTRY = \'Brazil\'"
.KeyFieldList = \'CUST_ID\'
.Tables = \'CUSTOMER\'
.UpdatableFieldList = \'CUST_ID, COMPANY, CONTACT\'
.UpdateNamelist = \'CUST_ID CUSTOMER.CUST_ID, \'+ ;
\'COMPANY CUSTOMER.COMPANY, CONTACT CUSTOMER.CONTACT\'
if .CursorFill()
browse
tableupdate(1)
else
aerror(laErrors)
messagebox(laErrors[2])
endif .CursorFill()
endwith
close databases all
使用 ODBC
×××××
ODBC 是 DataSourceType 属性四种设置中最简单的一种。把 DataSource 设置为一个打开了的 ODBC 连接句柄、设置一下常用的属性、然后调用 CursorFill 来取得数据。如果你设好了 KeyFieldList、Tables、UpdatableFieldList和 UpdateNameList属性，VFP 会自动把你对数据的任何改动转换成相应的 UPDATE、INSERT、和 DELETE 语句来把改动提交到后台数据源。如果你想用的是一个存储过程，那么要相应的设置 *Cmd、*CmdDataSource和 *CmdDataSourceType属性（* 代表 “Delete”、“Insert”或“Update”）。
这里是附件 ODBCExample.prg 中的一个例子，它调用 Sql Server 自带的 NorthWind 数据库中的 CustOrderHist 存储过程来取得销售给某个客户的单位产品总数。
local lcConnString, loCursor as CursorA