ＡＤＯ简介
简介
ＡｃｔｉｖｅＸ Ｄａｔａ Ｏｂｊｅｃｔｓ （ＡＤＯ） 是微软最新的数据访问技术。它被设计用来同新的数据访问层ＯＬＥ ＤＢ Ｐｒｏｖｉｄｅｒ一起协同工作，以提供通用数据访问（Ｕｎｉｖｅｒｓａｌ Ｄａｔａ Ａｃｃｅｓｓ）。ＯＬＥ ＤＢ是一个低层的数据访问接口，用它可以访问各种数据源，包括传统的关系型数据库，以及电子邮件系统及自定义的商业对象。
ＡＤＯ向我们提供了一个熟悉的，高层的对ＯＬＥ ＤＢ的Ａｕｔｏｍａｔｉｏｎ封装接口。对那些熟悉ＲＤＯ的程序员来说，你可以把ＯＬＥ ＤＢ比作是ＯＤＢＣ驱动程序。如同ＲＤＯ对象是ＯＤＢＣ驱动程序接口一样，ＡＤＯ对象是ＯＬＥ ＤＢ的接口；如同不同的数据库系统需要它们自己的ＯＤＢＣ驱动程序一样，不同的数据源要求它们自己的ＯＬＥ ＤＢ提供者（ＯＬＥ ＤＢ ｐｒｏｖｉｄｅｒ）。目前，虽然ＯＬＥ ＤＢ提供者比较少，但微软正积极推广该技术，并打算用ＯＬＥ ＤＢ取代ＯＤＢＣ。
ＡＤＯ向ＶＢ程序员提供了很多好处。包括易于使用，熟悉的界面，高速度以及较低的内存占用（已实现ＡＤＯ２．０的Ｍｓａｄｏ１５．ｄｌｌ需要占用３４２Ｋ内存，比ＲＤＯ的Ｍｓｒｄｏ２０．ｄｌｌ的３６８Ｋ略小，大约是
ＤＡＯ３．５的Ｄａｏ３５０．ｄｌｌ所占内存的６０％）。同传统的数据对象层次（ＤＡＯ和ＲＤＯ）不同，ＡＤＯ可以独立创建。因此你可以只创建一个＂Ｃｏｎｎｅｃｔｉｏｎ＂对象，但是可以有多个，独立的＂Ｒｅｃｏｒｄｓｅｔ＂对象来使用它。
ＡＤＯ针对客户／服务器以及ＷＥＢ应用程序作了优化。
本文的目的是带你进入ＡＤＯ广阔的世界并开始使用它。
在哪里能得到ＡＤＯ？
目前ＡＤＯ１．５版已经可以从微软网站免费下载。到目前为止，微软网站仍是你获取有关ＡＤＯ最新信息的最佳场所。ＡＤＯ１．５是作为ＯＬＥ ＤＢ ＳＤＫ的一部分提供的。你可以从下面这个网址下载：
ｈｔｔｐ：／／ｗｗｗ．ｍｉｃｒｏｓｏｆｔ．ｃｏｍ／ｄａｔａ／ｏｌｅｄｂ／ｄｏｗｎｌｏａｄ．ｈｔｍ
在下载之前请先确认ＯＬＥ ＤＢ ＳＤＫ提供的各项特性。下载文件大约有１５Ｍ，如果完全安装的话要占用８０Ｍ的硬盘空间。如果你只对ＡＤＯ感举趣，就选择最小安装，这样只会占用你１５Ｍ的硬盘空间。关于ＡＤＯ的网页在：
ｈｔｔｐ：／／ｗｗｗ．ｍｉｃｒｏｓｏｆｔ．ｃｏｍ／ｄａｔａ／ａｄｏ／ａｄｏｉｎｆｏ．ｈｔｍ．
在这里你可以找到许多关于ＡＤＯ的示例代码和文章，尤其是在＂Ｗｏｒｋｓｈｏｐ＂系列的文章中。你也可以从本站下载ＡＤＯ２．５的帮助文件。
尽管ＯＬＥ ＤＢ ＳＤＫ提供自己的ＡＤＯ帮助文件，你会发现ＡＤＯ１．０的帮助文件更易于使用。同时它还向你提供ＡＤＯ对象模型的图示
ＡＤＯ是如何组织起来的？
以前的对象模型，如ＤＡＯ和ＲＤＯ是层次型的。也就是说一个较低的数据对象如Ｒｅｃｏｒｄｓｅｔ是几个较高层次的对象，如Ｅｎｖｉｒｏｎｍｅｎｔ和ＱｕｅｒｙＤｅｆ，的子对象。在创建一个ＱｕｅｒｙＤｅｆ对象的实例之前，你不能创建ＤＡＯ Ｒｅｃｏｒｄｓｅｔ对象的实例。但ＡＤＯ却不同，它定义了一组平面型顶级对象．
最重要的三个ＡＤＯ对象是Ｃｏｎｎｅｃｔｉｏｎ， Ｒｅｃｏｒｄｓｅｔ和Ｃｏｍｍａｎｄ． 本文将主要介绍Ｃｏｎｎｅｃｔｉｏｎ和
Ｒｅｃｏｒｄｓｅｔ这两个对象。每个Ｃｏｎｎｅｃｔｉｏｎ的属性定义了与数据源的连接。Ｒｅｃｏｒｄｓｅｔ对象接收来自数据源的数据。Ｒｅｃｏｒｄｓｅｔ可以与Ｃｏｎｎｅｃｔｉｏｎ一起起使用，先建立一个连接，然后获取数据。尽管如此，
Ｒｅｃｏｒｄｓｅｔ也可以被单独创建，其Ｃｏｎｎｅｃｔｉｏｎ参数可以在Ｏｐｅｎ属性定义。
如何使用ＡＤＯ？
一旦安装了ＡＤＯ，在ＶＢ的工程－＞引用对话框中你就可以看到象下图所示的东西了：
选择 ＂ＡｃｔｉｖｅＸ Ｄａｔａ Ｏｂｊｅｃｔｓ １．５ Ｌｉｂｒａｒｙ＂ （ＡＤＯＤＢ）．在其下的 ＂ＡＤＯ Ｒｅｃｏｒｄｓｅｔ １．５ Ｌｉｂｒａｒｙ＂是一个客户端的版本（ＡＤＯＲ），它定义了有聚的数据访问对象。ＡＤＯＲ 对于客户端的数据访问来说是足够的了，因为你不需要Ｃｏｎｎｅｃｔｉｏｎ对象来建立与远程数据源的联系。
如果你想要访问更多的外部数据源，你需要安装这些外部数据源自己的ＯＬＥ ＤＢ Ｐｒｏｖｉｄｅｒ，就象你需要为新的数据库系统安装新的ＯＤＢＣ驱动程序一样。如果该外部数据源没有自己的ＯＬＥ ＤＢ Ｐｒｏｖｉｄｅｒ，你就得使用ＯＬＥ ＤＢ ＳＤＫ来自己为这个外部数据源创建一个ＯＬＥ ＤＢ Ｐｒｏｖｉｄｅｒ了。这已不是本文讨论的范围了。
示例
下面的示例代码以Ｎｏｒｔｈｗｉｎｄｓ数据库作为远程数据源，然后用ＡＤＯ来访问它。首先在控制面板中打开“３２位数据源”，单击“添加”按钮。在弹出的对话框中选择 ＂Ｍｉｃｒｏｓｏｆｔ Ａｃｃｅｓｓ Ｄｒｉｖｅｒ （＊．ｍｄｂ）＂ 作为数据源驱动程序。
然后按下图所示，在对话框中填写下面的内容
选择数据库Ｎｏｒｔｈｗｉｎｄｓ所在路径。单击完成，退出ＯＤＢＣ设备管理器。
启动一个新的ＶＢ工程，在窗体的Ｌｏａｄ事件中输入下面的代码：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
Ｄｉｍ ｃｎ Ａｓ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ
Ｓｅｔ ｃｎ ＝ Ｎｅｗ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ
＇Ｓｅｔ Ｃｏｎｎｅｃｔｉｏｎ ｐｒｏｐｅｒｔｉｅｓ
ｃｎ．ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ ＝ ＂ＤＳＮ＝ＲＤＣ Ｎｗｉｎｄ；ＵＩＤ＝；ＰＷＤ＝；＂
ｃｎ．ＣｏｎｎｅｃｔｉｏｎＴｉｍｅｏｕｔ ＝ ３０
ｃｎ．Ｏｐｅｎ
Ｉｆ ｃｎ．Ｓｔａｔｅ ＝ ａｄＳｔａｔｅＯｐｅｎ Ｔｈｅｎ ＿
ＭｓｇＢｏｘ ＂Ｃｏｎｎｅｃｔｉｏｎ ｔｏ ＮｏｒｔｈＷｉｎｄ Ｓｕｃｃｅｓｓｆｕｌ！＂
ｃｎ．Ｃｌｏｓｅ
Ｅｎｄ Ｓｕｂ
按Ｆ５运行程序，看看，一个消息框弹出来告诉你连接成功了。请注意，这里我特别注明了是
ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ，而不是ＡＤＯＲ．Ｃｏｎｎｅｃｔｉｏｎ，这样做是为了将二者区分开（如果你引用了ＡＤＯＤＢ和ＡＤＯＲ的话，这样做很有必要）。连接字符串看上去同ＲＤＯ的连接字符串差不多。事实上，二者确实差不多。 如果我们要访问一个ＳＱＬ ｓｅｒｖｅｒ数据库，你的Ｃｏｎｎｅｃｔｉｏｎ代码看上去应象下面所示：
＇设置连接属性ｃｎ．Ｐｒｏｖｉｄｅｒ ＝ ＂ＭＳＤＡＳＱＬ＂
ｃｎ．ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ ＝ ＂ｄｒｉｖｅｒ＝｛ＳＱＬ Ｓｅｒｖｅｒ｝；＂ ＆ ＂ｓｅｒｖｅｒ＝ｐｒｏｄ１；ｕｉｄ＝ｂｇ；ｐｗｄ＝；ｄａｔａｂａｓｅ＝ｍａｉｎ＂
ｃｎ．Ｏｐｅｎ
＂Ｐｒｏｖｉｄｅｒ＂属性指向ＳＱＬ Ｓｅｒｖｅｒ的ＯＬＥ ＤＢ Ｐｒｏｖｉｄｅｒ．
回到我们的示例程序，让我们创建一个Ｒｅｃｏｒｄｓｅｔ对象来访问“Ｏｒｄｅｒｓ”表，并从该表的＂ＳｈｉｐＣｏｕｎｔｒｙ＂字段中产生头十个不重复的国家名。修改窗体Ｌｏａｄ事件中的代码，让它看上去象下面这样。
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
Ｄｉｍ ｃｎ Ａｓ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ
Ｄｉｍ ｒｓ Ａｓ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ
Ｄｉｍ ｓＳＱＬ Ａｓ Ｓｔｒｉｎｇ
Ｄｉｍ ｓＯｕｔ Ａｓ Ｓｔｒｉｎｇ
Ｄｉｍ Ｃｏｕｎｔ Ａｓ Ｉｎｔｅｇｅｒ
Ｓｅｔ ｃｎ ＝ Ｎｅｗ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ
Ｓｅｔ ｒｓ ＝ Ｎｅｗ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ
＇ Ｓｅｔ ｐｒｏｐｅｒｔｉｅｓ ｏｆ ｔｈｅ Ｃｏｎｎｅｃｔｉｏｎ．
ｃｎ．ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ ＝ ＂ＤＳＮ＝ＲＤＣ Ｎｗｉｎｄ；ＵＩＤ＝；ＰＷＤ＝；＂
ｃｎ．ＣｏｎｎｅｃｔｉｏｎＴｉｍｅｏｕｔ ＝ ３０
ｃｎ．Ｏｐｅｎ
Ｉｆ ｃｎ．Ｓｔａｔｅ ＝ ａｄＳｔａｔｅＯｐｅｎ Ｔｈｅｎ ＿
ＭｓｇＢｏｘ ＂Ｃｏｎｎｅｃｔｉｏｎ ｔｏ ＮｏｒｔｈＷｉｎｄ Ｓｕｃｃｅｓｓｆｕｌ！＂
ｓＳＱＬ ＝ ＂ＳＥＬＥＣＴ ＤＩＳＴＩＮＣＴ Ｏｒｄｅｒｓ．ＳｈｉｐＣｏｕｎｔｒｙ ＦＲＯＭ Ｏｒｄｅｒｓ＂
Ｓｅｔ ｒｓ ＝ ｃｎ．Ｅｘｅｃｕｔｅ（ｓＳＱＬ）
＇Ｅｎｕｍｅｒａｔｅ ｔｈｅ ｒｅｃｏｒｄｓｅｔ
ｓＯｕｔ ＝ ＂＂
Ｆｏｒ Ｃｏｕｎｔ ＝ １ Ｔｏ １０
ｓＯｕｔ ＝ ｓＯｕｔ ＆ ｒｓ（＂ＳｈｉｐＣｏｕｎｔｒｙ＂） ＆ ｖｂＣｒＬｆ
ｒｓ．ＭｏｖｅＮｅｘｔ
Ｎｅｘｔ Ｃｏｕｎｔ
ＭｓｇＢｏｘ ｓＯｕｔ， ｖｂＥｘｃｌａｍａｔｉｏｎ， ＂ＡＤＯ Ｒｅｓｕｌｔｓ＂
ｃｎ．Ｃｌｏｓｅ
Ｅｎｄ Ｓｕｂ
运行程序后，你会看到如下图所示的消息框。
不幸的是，目前这个Ｒｅｃｒｏｄｓｅｔ对象是只读的和ｆｏｒｗａｒｄ ｃｕｒｓｏｒ。如果你想要获取更多的功能，你需要创建一个独立的Ｒｅｃｏｒｄｓｅｔ对象，该对象拥有自己的Ｃｏｎｎｅｃｔｉｏｎ属性，就象下面的代码所示：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
Ｄｉｍ ｒｓ Ａｓ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ
Ｄｉｍ ｓＳＱＬ Ａｓ Ｓｔｒｉｎｇ
Ｄｉｍ ｓＯｕｔ Ａｓ Ｓｔｒｉｎｇ
Ｄｉｍ Ｃｏｕｎｔ Ａｓ Ｉｎｔｅｇｅｒ
Ｓｅｔ ｒｓ ＝ Ｎｅｗ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ
ｓＳＱＬ ＝ ＂ＳＥＬＥＣＴ ＤＩＳＴＩＮＣＴ Ｏｒｄｅｒｓ．ＳｈｉｐＣｏｕｎｔｒｙ ＦＲＯＭ Ｏｒｄｅｒｓ＂
ｒｓ．Ｏｐｅｎ ｓＳＱＬ， ＂ＤＳＮ＝ＲＤＣ Ｎｗｉｎｄ；ＵＩＤ＝；ＰＷＤ＝；＂， ａｄＯｐｅｎＤｙｎａｍｉｃ
＇Ｒｅｐｏｒｔ Ｒｅｃｏｒｄｓｅｔ Ｃｏｎｎｅｃｔｉｏｎ ｉｎｆｏｒｍａｔｉｏｎ
ＭｓｇＢｏｘ ｒｓ．ＡｃｔｉｖｅＣｏｎｎｅｃｔｉｏｎ， ， ＂Ｃｏｎｎｅｃｔｉｏｎ Ｉｎｆｏ＂
＇Ｅｎｕｍｅｒａｔｅ ｔｈｅ ｒｅｃｏｒｄｓｅｔ
ｓＯｕｔ ＝ ＂＂
Ｆｏｒ Ｃｏｕｎｔ ＝ １ Ｔｏ １０
ｓＯｕｔ ＝ ｓＯｕｔ ＆ ｒｓ（＂ＳｈｉｐＣｏｕｎｔｒｙ＂） ＆ ｖｂＣｒＬｆ
ｒｓ．ＭｏｖｅＮｅｘｔ
Ｎｅｘｔ Ｃｏｕｎｔ
ＭｓｇＢｏｘ ｓＯｕｔ， ｖｂＥｘｃｌａｍａｔｉｏｎ， ＂ＡＤＯ Ｒｅｓｕｌｔｓ＂
ｒｓ．Ｃｌｏｓｅ
Ｅｎｄ Ｓｕｂ
上面代码返回的结果同前例一样，但是本代码中的Ｒｅｃｏｒｄｓｅｔ是独立的。这一点是ＤＡＯ和ＲＤＯ做不到
的。Ｒｅｃｏｒｄｓｅｔ对象的Ｏｐｅｎ方法打开一个代表从ＳＱＬ查询返回的记录的游标。虽然你可以用Ｃｏｎｎｅｃｔｉｏｎ对象同远程数据源建立连接，但请记住，在这种情况下，Ｃｏｎｎｅｃｔｉｏｎ对象和Ｒｅｃｏｒｄｓｅｔ对象是平行的关系。
总结
本文仅向你介绍了ＡＤＯ强大的功能的冰山一角。微软承诺，在将来ＡＤＯ将会取代ＤＡＯ和ＲＤＯ。所以现在你应该考虑如何将你的数据访问代码投向ＡＤＯ的怀抱。这种转变不会很痛苦，因为ＡＤＯ的语法同现有的语
法差不多。也许微软或第三方会在将来开发出转换向导来简化这一转换过程。从现在起，你就应开发纯
ＡＤＯ代码的程序。你也可以继续使用ＤＡＯ或ＲＤＯ代码来开发你的程序，但落伍的感觉总是不好的。
ＡＤＯ三大对象的属性、方法、事件及常数
Ｃｏｎｎｅｃｔｉｏｎ对象
属性
属性名称 数据类型和用途
Ａｔｔｒｉｂｕｔｅｓ 可读写Ｌｏｎｇ类型，通过两个常数之和指定是否使用保留事务（ｒｅｔａｉｎｎｉｎｇ
ｔｒａｎｓａｃｔｉｏｎｓ）。常数ａｄＸａｃｔＣｏｍｍｉｔＲｅｔａｉｎｉｎｇ表示调用ＣｏｍｍｉｔＴｒａｎｓ方法时启动一个新事务；常数
ａｄＸａｃｔＡｂｏｒｔＲｅｔａｎｉｎｇ表示调用ＲｏｌｌｂａｃｋＴｒａｎｓ方法时启动一个新事务。默认值为０，表示不使用保留事务。
ＣｏｍｍａｎｄＴｉｍｅｏｕｔ 可读写Ｌｏｎｇ类型，指定中止某个相关Ｃｏｍｍａｎｄ对象的Ｅｘｅｃｕｔｅ调用之前必须等待的时间。默认值为３０秒。
ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ 可读写Ｓｔｒｉｎｇ类型，提供数据提供者或服务提供者打开到数据源的连接所需要的特
定信息
ＣｏｎｎｅｃｔｉｏｎＴｉｍｅｏｕｔ 可读写Ｌｏｎｇ类型，指定中止一个失败的Ｃｏｎｎｅｃｔｉｏｎ．Ｏｐｅｎ方法调用之前必须等待的时间，默认值为１５秒。
ＣｕｒｓｏｒＬｏｃａｔｉｏｎ 可读写Ｌｏｎｇ类型，确定是使用客户端（ａｄＵｓｅＣｌｉｅｎｔ）游标引擎，还是使用服务器端
（ａｄＵｓｅＳｅｒｖｅｒ）游标引擎。默认值是ａｄＵｓｅＳｅｒｖｅｒ。
ＤｅｆａｕｌｔＤａｔａｂａｓｅ 可读写Ｓｔｒｉｎｇ类型，如果ＣｏｎｎｅｃｔＳｔｒｉｎｇ中未指定数据库名称，就使用这里所指定的名称，对ＳＱＬ Ｓｅｒｖｅｒ而言，其值通常是ｐｕｂｓ
ＩｓｏｌａｔｉｏｎＬｅｖｅｌ 可读写Ｌｏｎｇ类型，指定和其他并发事务交互时的行为或事务。见ＩｓｏｌａｔｉｏｎＬｅｖｅｌ常数 Ｍｏｄｅ Ｌｏｎｇ类型，指定对Ｃｏｎｎｅｃｔｉｏｎ的读写权限。见Ｍｏｄｅ常数
Ｐｒｏｖｉｄｅｒ 可读写Ｓｔｒｉｎｇ类型，如果ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ中未指定ＯＬＥ ＤＢ数据或服务提供者的名称，就使用这时指定的名称。默认值是ＭＳＤＡＳＱＬ（Ｍｉｃｒｏｓｏｆｔ ＯＬＥ ＤＢ Ｐｒｏｖｉｄｅｒ ｆｏｒ ＯＤＢＣ）。
Ｓｔａｔｅ 可读写Ｌｏｎｇ类型，指定连接是处于打开状态，还是处于关闭状态或中间状态。见Ｓｔａｔｅ常数
Ｖｅｒｓｉｏｎ 只读Ｓｔｒｉｎｇ类型，返回ＡＤＯ版本号。
注意：上面所列出的大多数可读写的属性，只有当连接处于关闭状态时才是可写的。
只有当用户为Ｃｏｎｎｅｃｔｉｏｎ对象用ＢｅｇｉｎＴｒａｎｓ．．．ＣｏｍｍｉｔＴｒａｎｓ．．．ＲｏｌｌｂａｃｋＴｒａｎｓ方法定义了不遗余力，事务隔离程度的指定才真正有效。如果有多个数据库用户同时执行事务，那么应用程序中必须指定如何响应运行中的其他事务。
方法
方法 用途
ＢｅｇｉｎＴｒａｎｓ 初始化一个事务；其后必须有ＣｏｍｍｉｔＴｒａｎｓ和／或ＲｏｌｌｂａｃｋＴｒａｎｓ相呼应
Ｃｌｏｓｅ 关闭连接
ＣｏｍｍｉｔＴｒａｎｓ 提交一个事务，以完成对数据源的永久改变（要求使用之前必须调用了ＢｅｇｉｎＴｒａｎｓ方法） Ｅｘｅｃｕｔｅ 人ＳＥＬＥＣＴ ＳＱＬ语句返回一个ｆｏｒｗａｒｄ－ｏｎｌｙ Ｒｅｃｏｒｄｓｅｔ对象，也用来执行那些不返回Ｒｅｃｏｒｄｓｅｔ语句，如ＩＮＳＥＲＴ、ＵＰＤＡＴＥ、ＤＥＬＥＴＥ查询或ＤＤＬ语句
Ｏｐｅｎ 用连接字符串来打开一个连接
ＯｐｅｎＳｃｈｅｍａ 返回一个Ｒｅｃｏｒｄｓｅｔ对象以提供数据源的结构信息（ｍｅｔａｄａｔａ）
ＲｏｌｌｂａｃｋＴｒａｎｓ 取消一个事务，恢复对数据源做的临时性改变（要求使用之前必须调用了ＢｅｇｉｎＴｒａｎｓ方法）
注：只有Ｅｘｅｃｕｔｅ、Ｏｐｅｎ和ＯｐｅｎＳｃｈｅｍａ三个方法才能接受变元参数。Ｅｘｅｃｕｔｅ的语法为：
ｃｎｎＮａｍｅ．Ｅｘｅｃｕｔｅ ｓｔｒＣｏｍｍａｎｄ，［ｌｎｇＲｏｗｓＡｆｆｅｃｔｅｄ［，ｌｎｇＯｐｔｉｏｎｓ］］
ｓｔｒＣｏｍｍａｎｄ的值可以是ＳＱＬ语句、表名、存储过程名，也可以是数据提供者所能接受的任意字符串。为了提高性能，最好为ｌｎｇＯｐｔｉｏｎｓ参数指定合适的值（详见ｌｎｇＯｐｔｉｏｎｓ参数用到的常数），以使提供者解释语句时不用再去判定其类型。可选参数ｌｎｇＲｏｗｓＡｆｆｅｃｔｅｄ将返回ＩＮＳＥＲＴ、ＵＰＤＡＴＥ或ＤＥＬＥＴＥ查询执行以后所影响的数目。这些查询会返回一个关闭的Ｒｅｃｏｒｄｓｅｔ对象。一个ＳＥＬＥＣＴ查询将返回
ｌｎｇＲｏｗｓＡｆｆｅｃｔｅｄ值为０并且返回带有一行或多行内容的打开的ｆｏｒｗａｒｄ－ｏｎｌｙ Ｒｅｃｏｒｄｓｅｔ。
事件
事件名称 触发时机
ＢｅｇｉｎＴｒａｎｓＣｏｍｐｌｅｔｅ ＢｅｇｉｎＴｒａｎｓ方法执行以后。
Ｐｒｉｖａｔｅ Ｓｕｂ ｃｎｎＮａｍｅ＿ＢｅｇｉｎＴｒａｎｓＣｏｍｐｌｅｔ（ＢｙＶａｌ ＴｒａｎｓａｃｔｉｏｎＬｅｖｅｌ Ａｓ Ｌｏｎｇ，ＢｙＶａｌ ｐＥｒｒｏｒ Ａｓ
ＡＤＯＤＢ．Ｅｒｒｏｒ，ａｄＳｔａｔｕｓ Ａｓ ＡＤＯＤＢ．ＥｖｅｎｔＳｔａｔｕｓＥｎｕｍ， ＢｙＶａｌ ｐＣｏｎｎｅｃｔｉｏｎ Ａｓ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）
ＣｏｍｍｉｔＴｒａｎｓＣｏｍｐｌｅｔｅ ＣｏｍｍｉｔＴｒａｎｓ方法执行以后
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｎｎｅｃｔｉｏｎ１＿ＣｏｍｍｉｔＴｒａｎｓＣｏｍｐｌｅｔｅ（ＢｙＶａｌ ｐＥｒｒｏｒ Ａｓ ＡＤＯＤＢ．Ｅｒｒｏｒ， ａｄＳｔａｔｕｓ Ａｓ
ＡＤＯＤＢ．ＥｖｅｎｔＳｔａｔｕｓＥｎｕｍ， ＢｙＶａｌ ｐＣｏｎｎｅｃｔｉｏｎ Ａｓ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）
ＣｏｎｎｅｃｔＣｏｍｐｌｅｔｅ 成功建立到数据源的Ｃｏｎｎｅｃｔｉｏｎ之后
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｎｎｅｃｔｉｏｎ１＿ＣｏｎｎｅｃｔＣｏｍｐｌｅｔｅ（ＢｙＶａｌ ｐＥｒｒｏｒ Ａｓ ＡＤＯＤＢ．Ｅｒｒｏｒ， ａｄＳｔａｔｕｓ Ａｓ
ＡＤＯＤＢ．ＥｖｅｎｔＳｔａｔｕｓＥｎｕｍ， ＢｙＶａｌ ｐＣｏｎｎｅｃｔｉｏｎ Ａｓ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）
Ｄｉｓｃｏｎｎｅｃｔ Ｃｏｎｎｅｃｔｉｏｎ关闭之后
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｎｎｅｃｔｉｏｎ１＿Ｄｉｓｃｏｎｎｅｃｔ（ａｄＳｔａｔｕｓ Ａｓ ＡＤＯＤＢ．ＥｖｅｎｔＳｔａｔｕｓＥｎｕｍ， ＢｙＶａｌ ｐＣｏｎｎｅｃｔｉｏｎ Ａｓ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）
ＥｘｅｃｕｔｅＣｏｍｐｌｅｔｅ 完成Ｃｏｎｎｅｃｔｉｏｎ．Ｅｘｅｃｕｔｅ或Ｃｏｍｍａｎｄ．Ｅｘｅｃｕｔｅ之时
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｎｎｅｃｔｉｏｎ１＿ＥｘｅｃｕｔｅＣｏｍｐｌｅｔｅ（ＢｙＶａｌ ＲｅｃｏｒｄｓＡｆｆｅｃｔｅｄ Ａｓ Ｌｏｎｇ， ＢｙＶａｌ ｐＥｒｒｏｒ Ａｓ
ＡＤＯＤＢ．Ｅｒｒｏｒ， ａｄＳｔａｔｕｓ Ａｓ ＡＤＯＤＢ．ＥｖｅｎｔＳｔａｔｕｓＥｎｕｍ， ＢｙＶａｌ ｐＣｏｍｍａｎｄ Ａｓ ＡＤＯＤＢ．Ｃｏｍｍａｎｄ， ＢｙＶａｌ
ｐＲｅｃｏｒｄｓｅｔ Ａｓ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ， ＢｙＶａｌ ｐＣｏｎｎｅｃｔｉｏｎ Ａｓ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）
ＩｎｆｏＭｅｓｓａｇｅ 一个Ｅｒｒｏｒ对象被添加到ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏ．Ｅｒｒｏｒ集合之时
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｎｎｅｃｔｉｏｎ１＿ＩｎｆｏＭｅｓｓａｇｅ（ＢｙＶａｌ ｐＥｒｒｏｒ Ａｓ ＡＤＯＤＢ．Ｅｒｒｏｒ， ａｄＳｔａｔｕｓ Ａｓ
ＡＤＯＤＢ．ＥｖｅｎｔＳｔａｔｕｓＥｎｕｍ， ＢｙＶａｌ ｐＣｏｎｎｅｃｔｉｏｎ Ａｓ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）
ＲｏｌｌｂａｃｋＴｒａｎｓＣｏｍｐｌｅｔｅ ＲｏｌｌｂａｃｋＴｒａｎｓ方法执行之后
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｎｎｅｃｔｉｏｎ１＿ＲｏｌｌｂａｃｋＴｒａｎｓＣｏｍｐｌｅｔｅ（ＢｙＶａｌ ｐＥｒｒｏｒ Ａｓ ＡＤＯＤＢ．Ｅｒｒｏｒ， ａｄＳｔａｔｕｓ Ａｓ
ＡＤＯＤＢ．ＥｖｅｎｔＳｔａｔｕｓＥｎｕｍ， ＢｙＶａｌ ｐＣｏｎｎｅｃｔｉｏｎ Ａｓ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）
ＷｉｌｌＣｏｎｎｅｃｔ 即将调用Ｃｏｎｎｅｃｔｉｏｎ．Ｏｐｅｎ方法之时
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｎｎｅｃｔｉｏｎ１＿ＷｉｌｌＣｏｎｎｅｃｔ（ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ， ＵｓｅｒＩＤ Ａｓ Ｓｔｒｉｎｇ， Ｐａｓｓｗｏｒｄ Ａｓ Ｓｔｒｉｎｇ， Ｏｐｔｉｏｎｓ Ａｓ Ｌｏｎｇ， ａｄＳｔａｔｕｓ Ａｓ ＡＤＯＤＢ．ＥｖｅｎｔＳｔａｔｕｓＥｎｕｍ， ＢｙＶａｌ ｐＣｏｎｎｅｃｔｉｏｎ Ａｓ
ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）
ＷｉｌｌＥｘｅｃｕｔｅ 即将调用Ｃｏｎｎｅｃｔｉｏｎ．Ｅｘｅｃｕｔｅ或Ｃｏｍｍａｎｄ．Ｅｘｅｃｕｔｅ方法之时
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｎｎｅｃｔｉｏｎ１＿ＷｉｌｌＥｘｅｃｕｔｅ（Ｓｏｕｒｃｅ Ａｓ Ｓｔｒｉｎｇ， ＣｕｒｓｏｒＴｙｐｅ Ａｓ ＡＤＯＤＢ．ＣｕｒｓｏｒＴｙｐｅＥｎｕｍ， ＬｏｃｋＴｙｐｅ Ａｓ ＡＤＯＤＢ．ＬｏｃｋＴｙｐｅＥｎｕｍ， Ｏｐｔｉｏｎｓ Ａｓ Ｌｏｎｇ， ａｄＳｔａｔｕｓ Ａｓ ＡＤＯＤＢ．ＥｖｅｎｔＳｔａｔｕｓＥｎｕｍ， ＢｙＶａｌ ｐＣｏｍｍａｎｄ Ａｓ ＡＤＯＤＢ．Ｃｏｍｍａｎｄ， ＢｙＶａｌ ｐＲｅｃｏｒｄｓｅｔ Ａｓ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ， ＢｙＶａｌ ｐＣｏｎｎｅｃｔｉｏｎ Ａｓ
ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）
注：其中的ａｄＳｔａｔｕｓ参数所用到的常数的名称和含义详见ａｄＳｔａｔｕｓ所用的常数
常数
ＩｓｏｌａｔｉｏｎＬｅｖｅｌ常数
常数 含义
ａｄＸａｃｔＣｕｒｓｏｒＳｔａｂｉｌｉｔｙ 只允许读其他事务已提交的改变（默认值）
ａｄＸａｃｔＢｒｏｗｓｅ 允许读其他事务未提交的改变
ａｄＸａｃｔＣｈａｏｓ 本事务不会覆盖其他位于更高隔离程度的事务所做的改变
ａｄＸａｃｔＩｓｏｌａｔｅｄ 所有事务相互独立
ａｄＸａｃｔＲｅａｄＣｏｍｍｉｔｔｅｄ 等同于ａｄＸａｃｔＣｕｒｓｏｒＳｔａｂｉｌｉｔｙ
ａｄＸａｃｔＲｅａｄＵｎｃｏｍｍｉｔｔｅｄ 等同于ａｄＸａｃｔＢｒｏｗｓｅ
ａｄＸａｃｔＲｅｐｅａｔａｂｌｅＲｅａｄ 禁止读其他事务的改变
ａｄＸａｃｔＳｅｒｉａｌｉｚａｂｌｅ 等同于ａｄＸａｃｔＩｓｏｌａｔｅｄ
ａｄＸａｃｔＵｎｓｐｅｃｉｆｉｅｄ 不能确定提供者的事务隔离程度
Ｍｏｄｅ常数
常数 含义
ａｄＭｏｄｅＵｎｋｎｏｗｎ 未指定数据源的连接许可权（默认值）
ａｄＭｏｄｅＲｅａｄ 连接是只读的
ａｄＭｏｄｅＲｅａｄＷｒｉｔｅ 连接是可读写的
ａｄＭｏｄｅＳｈａｒｅＤｅｎｙＮｏｎｅ 不拒绝其他用户的读写访问（Ｊｅｔ ＯＬＥ ＤＢ Ｐｒｏｖｉｄｅｒ的默认值）
ａｄＭｏｄｅＳｈａｒｅＤｅｎｙＲｅａｄ 拒绝其他用户打开到数据源的读连接
ａｄＭｏｄｅＳｈａｒｅＤｅｎｙＷｒｉｔｅ 拒绝其他用户打开到数据源的写连接
ａｄＭｏｄｅＳｈａｒｅＥｘｃｌｕｓｉｖｅ 以独占方式打开数据源
ａｄＭｏｄｅＷｒｉｔｅ 连接是只写的
Ｓｔａｔｅ常数
常数 含义
ａｄＳｔａｔｅＣｌｏｓｅｄ Ｃｏｎｎｅｃｔｉｏｎ（或其他对象）是关闭的（默认值）
ａｄＳｔａｔｅＣｏｎｎｅｃｔｉｎｇ 正在连接数据源的状态
ａｄＳｔａｔｅＥｘｅｃｕｔｉｎｇ Ｃｏｎｎｅｃｔｉｏｎ或Ｃｏｍｍａｎｄ对象的Ｅｘｅｃｕｔｅ方法已被调用
ａｄＳｔａｔｅＦｅｔｃｈｉｎｇ 返回行（ｒｏｗ）到Ｒｅｃｏｒｄｓｅｔ对象
ａｄＳｔａｔｅＯｐｅｎ Ｃｏｎｎｅｃｔｉｏｎ（或其他对象）是打开的（活动的）
Ｅｘｅｃｕｔｅ方法中ｌｎｇＯｐｔｉｏｎ参数用到的常数
Ｃｏｍｍａｎｄ类型常数 含义
ａｄＣｍｄＵｎｋｎｏｗｎ Ｃｏｍｍａｎｄ类型未定（默认值），由数据提供者去判别Ｃｏｍｍａｎｄ语法
ａｄＣｍｄＦｉｌｅ Ｃｏｍｍａｎｄ是和对象类型相应的文件名称
ａｄＣｍｄＳｔｏｒｅｄＰｒｏｃ Ｃｏｍｍａｎｄ是存储过程名称
ａｄＣｍｄＴａｂｌｅ Ｃｏｍｍａｎｄ是能产生内部ＳＥＬＥＣＴ ＊ ＦＲＯＭ ＴａｂｌｅＮａｍｅ查询的表名称
ａｄＣｍｄＴａｂｌｅＤｉｒｅｃｔ Ｃｏｍｍａｎｄ是能直接从表中获取行内容的表名称
ａｄＣｍｄＴｅｘｔ Ｃｏｍｍａｎｄ是一条ＳＱＬ语句
ＡＤＯＤＢ事件处理子过程参数ａｄＳｔａｔｕｓ所用的常数
常数 含义
ａｄＳｔａｔｕｓＣａｎｃｅｌ 操作被用户取消
ａｄＳｔａｔｕｓＣｎａｔＤｅｎｙ 操作不能拒绝其他用户对数据源的访问
ａｄＳｔａｔｕｓＥｒｒｏｒｓＯｃｃｕｒｒｅｄ 操作导致错误并已送到Ｅｒｒｏｒｓ集合中
ａｄＳｔａｔｕｓＯＫ 操作成功
ａｄＳｔａｔｕｓＵｎＷａｎｔｅｄＥｖｅｎｔ 操作过程中一个未预料到的事件被激活
Ｃｏｍｍａｎｄ对象
Ｃｏｍｍａｎｄ对象的主要目的是执行参数化的存储过程。其形式要么是临时准备（ｐｒｅｐａｒｅｄ），要么是持久的预编译（ｐｒｅｃｏｍｐｉｌｅｄ）过的ＳＱＬ语句。如果想（存储）一个或多个查询以供在同一Ｃｏｎｎｅｃｔｉｏｎ上多次执行，Ｃｏｍｍａｎｄ对象也是很有用的。当想创建Ｒｅｃｏｒｄｓｅｔ时，一种高效的方法是绕过Ｃｏｍｍａｎｄ对象而采用Ｒｅｃｏｒｄｓｅｔ．Ｏｐｅｎ方法。
属性
属性名称 数据类型和用途
ＡｃｔｉｖｅＣｏｎｎｅｃｔｉｏｎ 指针类型，指向Ｃｏｍｍａｎｄ所关联的Ｃｏｎｎｅｃｔｉｏｎ对象。对于现存的已打开连接，可使用Ｓｅｔ ｃｍｍＮａｍｅ．ＡｃｔｉｖｅＣｏｎｎｅｃｔｉｏｎ＝ｃｎｎＮａｍｅ。另外，也可以不用相关Ｃｏｎｎｅｃｔｉｏｎ对象名称而使用有效的连接字符串去创建一个新的连接。默认值为Ｎｕｌｌ。
ＣｏｍｍａｎｄＴｅｘｔ 可读写Ｓｔｒｉｎｇ类型。为ＡｃｔｉｖｅＣｏｎｎｅｃｔｉｏｎ指定一条ＳＱＬ语句、表名、存储过程名或提供者能接受的任意字符串。ＣｏｍｍａｎｄＴｙｐｅ属性的值决定了ＣｏｍｍａｎｄＴｅｘｔ属性值的格式。默认值为空字符串：＂＂
ＣｏｍｍａｎｄＴｉｍｅｏｕｔ 可读写Ｌｏｎｇ类型，指定中止一个Ｃｏｍｍａｎｄ．Ｅｘｅｃｕｔｅ调用之前必须等待的时间。这时的值优先于Ｃｏｎｎｅｃｔｉｏｎ．ＣｏｍａｎｄＴｉｍｅｏｕｔ中的设定值。默认值为３０秒。
ＣｏｍｍａｎｄＴｙｐｅ 可读写Ｌｏｎｇ类型，指定数据提供者该如何解释ＣｏｍｍａｎｄＴｅｘｔ属性值。ＣｏｍｍａｎｄＴｙｐｅ等效于Ｃｏｎｎｅｃｔｉｏｎ．Ｅｘｅｃｕｔｅ方法中的可选参数ｌｎｇＯｐｔｉｏｎ。详见ＣｏｍｍａｎｄＴｙｐｅ所用到的常数。默认值为
ａｄＣｍｄＵｎｋｏｗｎ．
Ｎａｍｅ 可读写Ｓｔｒｉｎｇ类型，指定Ｃｏｍｍａｎｄ的名称。
Ｐｒｅｐａｒｅｄ 可读写Ｂｏｏｌｅａｎ类型，判断数据源是否把ＣｏｍｍａｎｄＴｅｘｔ中的ＳＱＬ语句编译为ｐｒｅｐａｒｅｄ
ｓｔａｔｅｍｅｎｔ（一种临时性存储过程）。ｐｒｅｐａｒｅｄ ｓｔａｔｅｍｅｎｔ仅存活于Ｃｏｍｍａｎｄ的ＡｃｔｉｖｅＣｏｎｎｅｃｔｉｏｎ生命周期中。许多客户／服务器ＲＤＢＭＳ，包括ＳＱＬ ＳＥＲＶＥＲ，都支持ｐｒｅｐａｒｅｄ ｓｔａｔｅｍｅｎｔ。如果数据源不支持ｐｒｅｐａｒｅｄ ｓｔａｔｅｍｅｎｔ，则把该属性设为Ｔｒｕｅ，将导致一个自陷错误。
Ｓｔａｔｅ 可读写Ｌｏｎｇ类型，指定Ｃｏｍｍｎａｄ状态。见Ｓｔａｔｅ常数。
注意：最好每次都为ＣｏｍｍａｎｄＴｙｐｅ指定的一个合适的常数值，否则会降低系统运行的效率。
方法
方法 用途
Ｃｒｅａｔｅｐａｒａｍｅｔｅｒ 在执行该方法之前，必须首先声明一个ＡＤＯＤＢ．Ｐａｒａｍｅｔｅｒ对象。调用语法为：
ｃｍｍＮａｍｅ．ＣｒｅａｔｅＰａｒａｍｅｔｅｒ ［ｓｔｒＮａｍｅ［，ｌｎｇＴｙｐｅ［，ｌｎｇＤｉｒｅｃｔｉｏｎ［，ｌｎｇＳｉｚｅ［，ｖａｒＶａｌｕｅ］］］］］
Ｅｘｅｃｕｔｅ 调用语法同Ｃｏｎｎｅｃｔｉｏｎ．Ｅｘｅｃｕｔｅ大致相同。
常数
Ｓｔａｔｅ常数
常数 含义
ａｄＳｔａｔｅＣｌｏｓｅｄ Ｃｏｎｎｅｃｔｉｏｎ（或其他对象）是关闭的（默认值）
ａｄＳｔａｔｅＣｏｎｎｅｃｔｉｎｇ 正在连接数据源的状态
ａｄＳｔａｔｅＥｘｅｃｕｔｉｎｇ Ｃｏｎｎｅｃｔｉｏｎ或Ｃｏｍｍａｎｄ对象的Ｅｘｅｃｕｔｅ方法已被调用
ａｄＳｔａｔｅＦｅｔｃｈｉｎｇ 返回行（ｒｏｗ）到Ｒｅｃｏｒｄｓｅｔ对象
ａｄＳｔａｔｅＯｐｅｎ Ｃｏｎｎｅｃｔｉｏｎ（或其他对象）是打开的（活动的）
ＣｏｍｍａｎｄＴｙｐｅ所用到的常数
Ｃｏｍｍａｎｄ类型常数 含义
ａｄＣｍｄＵｎｋｎｏｗｎ Ｃｏｍｍａｎｄ类型未定（默认值），由数据提供者去判别Ｃｏｍｍａｎｄ语法
ａｄＣｍｄＦｉｌｅ Ｃｏｍｍａｎｄ是和对象类型相应的文件名称
ａｄＣｍｄＳｔｏｒｅｄＰｒｏｃ Ｃｏｍｍａｎｄ是存储过程名称
ａｄＣｍｄＴａｂｌｅ Ｃｏｍｍａｎｄ是能产生内部ＳＥＬＥＣＴ ＊ ＦＲＯＭ ＴａｂｌｅＮａｍｅ查询的表名称
ａｄＣｍｄＴａｂｌｅＤｉｒｅｃｔ Ｃｏｍｍａｎｄ是能直接从表中获取行内容的表名称
ａｄＣｍｄＴｅｘｔ Ｃｏｍｍａｎｄ是一条ＳＱＬ语句
Ｒｅｃｏｒｄｓｅｔ对象
属性
属性名称 数据类型和用途
ＡｂｓｏｌｕｔｅＰａｇｅ 可读写Ｌｏｎｇ类型，要么是设置或返回当前记录所处的页面序号，要么是一个
ＰｏｓｉｔｉｏｎＥｎｕｍ常数，见ＡｂｓｏｌｕｔｅＰａｇｅ用到的常数。在获取或设置ＡｂｓｏｌｕｔｅＰａｇｅ的值之前，必须先设定ＰａｇｅＳｉｚｅ的值。ＡｂｓｏｌｕｔｅＰａｇｅ是从１开始计数的。如果当前记录位于第一页时，ＡｂｓｏｌｕｔｅＰａｇｅ的返回值为１，对ＡｂｓｏｌｕｔｅＰａｇｅ设置将使当前记录指针指向指定页的第一条记录。
ＡｂｓｏｌｕｔｅＰｏｓｉｔｉｏｎ＊ 可读写的Ｌｏｎｇ类型（从１开始计数），设置或返回当前记录年处的位置。
ＡｂｓｏｌｕｔｅＰｏｓｉｔｉｏｎ的最大取值是ＲｅｃｏｒｄＣｏｕｎｔ属性的值。
ＡｃｔｉｖｅＣｏｍｍａｎｄ 可读写的Ｓｔｒｉｎｇ类型，Ｒｅｃｏｒｄｓｅｔ所关联的先前打开的Ｃｏｍｍａｎｄ对象名称
ＡｃｔｉｖｅＣｏｎｎｅｃｔｉｏｎ 指针类型，指向Ｒｅｃｏｒｄｓｅｔ所关联的先前打开的Ｃｏｎｎｅｃｔｉｏｎ对象，或指向一条完整有效的ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ串值。
ＢＯＦ＊ 只读Ｂｏｏｌｅａｎ类型，若为Ｔｒｕｅ，表明记录指针已位于Ｒｅｃｏｒｄｓｅｔ第一条记录之前，并且没有了当前记录
Ｂｏｏｋｍａｒｋ＊ 可读写Ｖａｒｉａｎｔ类型，返回对特定记录的引用或使用一个Ｂｏｏｋｍａｒｋ值使记录指针指向特定记录
ＣａｃｈｅＳｉｚｅ＊ 可读写Ｌｏｎｇ类型，指定本地Ｃａｃｈｅ中所存的记录条数，最小（默认值）为１。若增加了
ＣａｃｈｅＳｉｚｅ的值，则在流动Ｒｅｃｏｒｄｓｅｔ以获取更多记录时，能减少与服务器的通信次数。
ＣｕｒｓｏｒＬｏｃａｔｉｏｎ 可读写Ｌｏｎｇ类型，指定可流动游标的位置，即ＣｕｒｓｏｒＴｙｐｅ是位于客户端还是位于服务器端，见ＣｕｒｓｏｒＬｏｃａｔｉｏｎ用到的常数。默认值是使用ＯＬＥ ＤＢ数据源提供的游标。
ＣｕｓｒｓｏｒＴｙｐｅ＊ 可读写Ｌｏｎｇ类型，指定Ｒｅｃｏｒｄｓｅｔ游标的类型，见ＣｕｒｓｏｒＴｙｐｅ用到的常数，默认值是
ｆｏｒｗａｒｄ－ｏｎｌｙ游标
ＤａｔａＭｅｍｂｅｒ 指针类型，指向关联的ＤａｔａＥｎｖｉｒｏｎｍｅｎｔ．Ｃｏｍｍａｎｄ对象
ＤａｔａＳｏｕｒｃｅ 指针类型，指向关联的ＤａｔａＥｎｖｉｒｏｎｍｅｎｔ．Ｃｏｎｎｅｃｔｉｏｎ对象
ＥｄｉｔＭｏｄｅ＊ 只读Ｌｏｎｇ类型，返回Ｒｅｃｏｒｄｓｅｔ的编辑状态，见ＥｄｉｔＭｏｄｅ用到的常数
ＥＯＦ＊ 只读Ｂｏｏｌｅａｎ类型，若为Ｔｒｕｅ，表明记录指针已超出Ｒｅｃｏｒｄｓｅｔ的最后一条记录，并且没有了当前记录。
Ｆｉｌｔｅｒ＊ 可读写Ｖａｒｉａｎｔ类型，要么是一条件表达式（一条有效的ＳＱＬ ＷＨＥＲＥ子句但又不出现保留字
ＷＨＥＲＥ），要么是指向特定记录的Ｂｏｏｋｍａｒｋ数组，要么是一个Ｆｉｌｔｅｒ常数，详见Ｆｉｌｔｅｒ用到的常数。 ＬｏｃｋＴｙｐｅ＊ 可读写Ｌｏｎｇ类型，指定打开Ｒｅｃｏｒｄｓｅｔ所使用的记录锁定方法。默认值是只读，对应于
ｆｏｒｗａｒｄ－ｏｎｌｙ游标的只读特性。见ＬｏｃｋＴｙｐｅ属性用到的常数。
ＭａｒｓｈａｌＯｐｔｉｏｎｓ 可读写Ｌｏｎｇ类型，指定客户端改动后，应返回哪个记录集合，此属性仅适合于不常见
的ＡＤＯＲ．Ｒｅｃｏｒｄｓｅｔ对象，此对象是ＲＤＳ．ＡＤＯＲ．Ｒｅｃｏｒｄｓｅｔ对象成员之一。
ＭａｘＲｅｃｏｒｄｓ＊ 可读写Ｌｏｎｇ类型，指定ＳＥＬＥＣＴ查询或存储过程返回的最大记录条数，默认值为０，即全部返回
ＰａｇｅＣｏｕｎｔ 只读Ｌｏｎｇ类型，返回Ｒｅｃｏｒｄｓｅｔ所有的页数，必须设定了ＰａｇｅＳｉｚｅ的值，ＰａｇｅＣｏｕｎｔ的返回值才是真正有意义的。如果Ｒｅｃｏｒｄｓｅｔ不支持ＰａｇｅＣｏｕｎｔ属性，则返回值为－１
ＰａｇｅＳｉｚｅ 可读写Ｌｏｎｇ类型，设置或返回一个逻辑页所包含的记录条数。使用逻辑页可把大的Ｒｅｃｏｒｄｓｅｔ分解为多个易处理的小部分。通常的做法是把ＰａｇｅＳｉｚｅ设为ＤａｔａＧｒｉｄ、ＭｓＦｌｅｘＧｒｉｄ或层次型的
ＦｌｅｘＧｒｉｄ控件所能显示的记录条数。ＰａｇｅＳｉｚｅ和锁定Ｊｅｔ（２ｋ）或锁定ＳＱＬ Ｓｅｒｖｅｒ（６．５版及更早版
本，２ｋ；７．０版，８ｋ）数据库时用到的表页面大小无关
ＰｅｒｓｉｓｔＦｏｒｍａｔ 可读写Ｌｏｎｇ类型，设置或返回由调用Ｓａｖｅ方法所创建的Ｒｅｃｏｒｄｓｅｔ文件的格式。当前
仅有一个值ａｄＰｅｒｓｉｓｔＡＤＴＧ（默认格式：Ａｄｖａｎｃｅｄ Ｄａｔａ ＴａｂｌｅＧｒａｍ）
ＲｅｃｏｒｄＣｏｕｎｔ＊ 只读Ｌｏｎｇ类型，如果Ｒｅｃｏｒｄｓｅｔ支持近似定位或支持书签，则返回带可流动游标的
Ｒｅｃｏｒｄｓｅｔ所含有的记录数；如果不支持，必须使用ＭｏｖｅＬａｓｔ方法以取得确实覆盖了所有记录的准确的
ＲｅｃｏｒｄＣｏｕｎｔ数值。如果ｆｏｒｗａｒｄ－ｏｎｌｙ类型Ｒｅｃｏｒｄｓｅｔ有一条或多条记录，Ｒｅｃｏｒｄｓｅｔ返回－１（Ｔｒｕｅ），任何类型的空的Ｒｅｃｏｒｄｓｅｔ都将返回０（Ｆａｌｓｅ）
Ｓｏｒｔ＊ 可读写Ｓｔｒｉｎｇ类型，包含一条不含保留字ＯＲＤＥＲ ＢＹ的ＳＱＬ ＯＲＤＥＲＹ ＢＹ子句，用以指定Ｒｅｃｏｒｄｓｅｔ的排序方式
Ｓｏｕｒｃｅ＊ 可读写Ｓｔｒｉｎｇ类型，可以是ＳＱＬ语句、表名、存储过程名或相关Ｃｏｍｍａｎｄ对象名。如果提供了Ｃｏｍｍａｎｄ对象名，则Ｓｏｕｒｃｅ将返回Ｃｏｍｍａｎｄ．ＣｏｍｍａｎｄＴｅｘｔ的值。利用Ｏｐｅｎ方法的参数ｌｎｇＯｐｔｉｏｎｓ可以
指定提供给Ｓｏｕｒｃｅ值的类型
Ｓｔａｔｅ 可读写Ｌｏｎｇ类型，为对象状态常数之一。见Ｓｔａｔｅ常数
Ｓｔａｔｕｓ 只读Ｌｏｎｇ类型，表明对Ｒｅｃｏｒｄｓｅｔ进行批处理或其他多记录（ｂｕｌｋ）操作后的状态。见Ｓｔａｔｕｓ属性用到的常数
注意：上表所列属性是ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ对象的标准属性，即那些被关系数据库的大多数通用ＯＬＥ ＤＢ数据提供者所支持的属性。带星号的属性表示它与ＤＡＯ．Ｒｅｃｏｒｄｓｅｔ或ｒｄｏＲｅｓｕｌｔｓｅｔ对象的相应属性完全一样或很接近。
方法
方法 用途
ＡｄｄＮｅｗ＊ 向可更新的Ｒｅｃｏｒｄｓｅｔ添加一条新记录。调用语法为
ｒｓｔＮａｍｅ．ＡｄｄＮｅｗ［｛ｖａｒＦｉｅｌｄ｜ａｖａｒＦｉｅｌｄｓ｝，｛ｖａｒＶａｌｕｅ｜ａｖａｒＶａｌｕｅｓｅ｝］，其中ｖａｒＦｉｅｌｄ是单个字段名，
ａｖａｒＦｉｅｌｄｓ是字段名数组。ｖａｒＶａｌｕｅ是单个字段值，ａｖａｒＶａｌｕｅ是由ａｖａｒＦｉｅｌｄｓ指定字段的值所组成的数组。调用Ｕｐｄａｔｅ方法则把新记录加到数据库的表中。如果向主关键字不是第一个字段的Ｒｅｃｏｒｄｓｅｔ中添加记录，则必须在ＡｄｄＮｅｗ方法中指定主关键字的名称和值
Ｃａｎｃｅｌ 取消异步查询的执行，中止存储过程或复合ＳＱＬ语句创建多个Ｒｅｃｏｒｄｓｅｔ，调用语法为
ｒｓｔＮａｍｅ．Ｃａｎｃｅｌ
ＣａｎｃｅｌＢａｔｃｈ＊ 取消ＬｏｃｋＥｄｉｔ值为ＢａｔｃｈＯｐｔｉｍｉｓｔｉｃ的Ｒｅｃｏｒｄｓｅｔ的即将生效的批量更新操作，调用语
法为：ｒｓｔＮａｍｅ．ＣａｎｃｅｌＢａｔｃｈ ［ｌｎｇＡｆｆｅｃｔＲｅｃｏｒｄｓ］，可选参数ｌｎｇＡｆｆｅｃｔＲｅｃｏｒｄｓ的取值见
ｌｎｇＡｆｆｅｃｔＲｅｃｏｒｄｓ用到的常数
Ｃｌｏｎｅ 复制一个带有独立记录指针的Ｒｅｃｏｒｄｓｅｔ对象，调用语法为：Ｓｅｔ ｒｓｔＤｕｐｅ＝ｒｓｔＮａｍｅ．Ｃｌｏｎｅ（）
Ｃｌｏｓｅ 关闭Ｒｅｃｏｒｄｓｅｔ对象，以后可以重新设Ｒｅｃｏｒｄｓｅｔ的属性并使用Ｏｐｅｎ方法来再度访问
Ｒｅｃｏｒｄｓｅｔ 。调用语法为：ｒｓｔＮａｍｅ．Ｃｌｏｓｅ
Ｄｅｌｅｔｅ＊ 如果Ｒｅｃｏｒｄｓｅｔ的ＬｏｃｋＥｄｉｔ属性值未设为ａｄＬｏｃｋＢａｔｃｈＯｐｔｉｍｉｓｔｉｃ，立刻从Ｒｅｃｏｒｄｓｅｔ和相应表中删除当前记录
Ｆｉｎｄ 寻找满足指定条件的记录。调用语法为：ｒｓｔＮａｍｅ．Ｆｉｎｄ ｓｔｒＣｒｉｔｅｒｉａ ［，ｌｎｇＳｋｉｐＲｅｃｏｒｄｓ，
ｌｎｇＳｅａｒｃｈＤｉｒｅｃｔｉｏｎ ［，ｌｎｇＳｔａｒｔ］］，其中ｓｔｒＣｒｉｔｅｒｉａ是不含ＷＨＥＲＥ关键字的ＳＱＬ ＷＨＥＲＥ子句，可选参
数ｌｎｇＳｋｉｐＲｅｃｏｒｄｓ是应用Ｆｉｎｄ前所跳过的记录数目，ｌｎｇＤｉｒｅｃｔｉｏｎ指定查找方向（ａｄＳｅａｒｃｈＦｏｒｗａｒｄ，和ａｄＳｅａｒｃｈＢａｃｋｗａｒｄ，其中ａｄＳｅａｒｃｈＦｏｒｗａｒｄ是默认值），可选参数ｌｎｇＳｔａｒｔ指定了从哪儿开始查找，其值
要么是一个Ｂｏｏｋｍａｒｋ值，要么是Ｂｏｏｋｍａｒｋ常数，见ｖａｒＳｔａｒｔ参数用到的Ｂｏｏｋｍａｒｋ常数。
ＧｅｔＲｏｗｓ 返回一个二维Ｖａｒｉａｎｔ数组（行、列），调用语法为ａｖａｒｎａｍｅ＝ｒｓｔＮａｍｅ．ＧｅｔＲｏｗｓ（ｌｎｇＲｏｗｓ
［，ｖａｒＳｔａｒｔ［，｛ｓｔｒＦｉｅｌｄＮａｍｅ｜ｌｎｇＦｉｅｌｄＩｎｄｅｘ｜ａｖａｒＦｉｅｌｄＮａｍｅｓ｜ａｖａｒＦｉｅｌｄＩｎｄｅｘｅｓ｝］］，其中ｌｎｇＲｏｗｓ是返回记录行数，ｖａｒＳｔａｒｔ指定从哪儿开始查找，其值要么是一个Ｂｏｏｋｍａｒｋ值，要么是Ｂｏｏｋｍａｒｋ常数，见ｖａｒＳｔａｒｔ参数用到的Ｂｏｏｋｍａｒｋ常数。第三个参数可以是单个列（字段）的名称或索引，也可以是多个列名称或索引组成的Ｖａｒｉａｎｔ数组。如果不指定第三个参数，ＧｅｔＲｏｗｓ返回Ｒｅｃｏｒｄｓｅｔ中所有列。
ＧｅｔＳｔｒｉｎｇ 默认情况下，返回指定数目记录的Ｓｔｒｉｎｇ串值，记录间由返回代码分隔。记录内由ｔａｂ分隔。调用语法为： ｓｔｒＣｌｉｐ＝ｒｓｔｎａｍｅ．ＧｅｔＳｔｒｉｎｇ（ｌｎｇＲｏｗｓ，［，
ｓｔｒＣｌｏｕｍｎＤｅｌｉｍｉｔｅｒ［，ｓｔｒＲｏｗＤｅｌｉｍｉｔｅｒ，［ｓｔｒＮｕｌｌＥｘｐｒ］］］）。其中ｌｎｇＲｏｗｓ为返回记录行数，
ｓｔｒＣｏｌｕｍｎＤｅｌｉｍｉｔｅｒ为可选的列分隔符（ｖｂＴａｂ是默认值），ｓｔｒＲｏｗＤｅｌｉｍｉｔｅｒ是可选的行分隔符（ｖｂＣｒ是
默认值），ｓｔｒＮｕｌｌＥｘｐｒ是可选参数，用于碰到Ｎｕｌｌ值时的替代值（默认值是空字符串）。ＧｅｔＳｔｒｉｎｇ的主要用途是通过把控件的Ｃｌｉｐ属性设为ｓｔｒＣｌｉｐ来处理ＭＳＦｌｅｘＧｒｉｄ或ＭＳＨＦｌｅｘＧｒｉｄ控件
Ｍｏｖｅ＊ 从当前记录移动记录指针。调用语法为：ｒｓｔＮａｍｅ．Ｍｏｖｅ ｌｎｇＮｕｍＲｅｃｏｒｄｓ ［， ｖａｒＳｔａｒｔ］，其中
ｌｎｇＮｕｍＲｅｃｏｒｄｓ是要跳过的记录数，可选选参数ｖａｒＳｔａｒｔ指定从哪开始移动。其值要么是一个Ｂｏｏｋｍａｒｋ值，要么是Ｂｏｏｋｍａｒｋ常数，见ｖａｒＳｔａｒｔ参数用到的Ｂｏｏｋｍａｒｋ常数。
ＭｏｖｅＦｉｒｓｔ＊ 移动记录指针到第一条记录，调用语法为：ｒｓｔＮａｍｅ．ＭｏｖｅＦｉｒｓｔ
ＭｏｖｅＬａｓｔ＊ 移动记录指针到最后一条记录，调用语法为：ｒｓｔＮａｍｅ．ＭｏｖｅＬａｓｔ
ＭｏｖｅＮｅｘｔ 移动记录指针到下一条记录，调用语法为：ｒｓｔＮａｍｅ．ＭｏｖｅＮｅｘｔ。它是能用于ｆｏｒｗａｒｄ－ｏｎｌｙ
Ｒｅｃｏｒｄｓｅｔ的唯一Ｍｏｖｅ方法
ＭｏｖｅＰｒｅｖｉｏｕｓ＊ 移动记录指针到前一条记录，调用语法为：ｒｓｔＮａｍｅ．ＭｏｖｅＰｒｅｖｉｏｕｓ
ＮｅｘｔＲｅｃｏｒｄｓｅｔ 返回另外的Ｒｅｃｏｒｄｓｅｔ，它通常由能产生多个Ｒｅｃｏｒｄｓｅｔ的复合ＳＱＬ语句（如ＳＥＬＥＣＴ ＊
ＦＲＯＭ ｏｒｄｅｒｓ；ＳＥＬＥＣＴ ＊ ＦＲＯＭ ｃｕｓｔｏｍｅｒｓ）或存储过程来创建。调用语法为Ｎｅｘｔ＝ｒｓｔＮａｍｅ．ＮｅｘｔＲｅｃｏｒｄｓｅｔ ［（ｌｎｇＲｅｃｏｒｄｓＡｆｆｅｃｔｅｄ）］，其中可选参数ｌｎｇＲｅｃｏｒｄｓＡｆｆｅｃｔｅｄ指定返回到ｒｓｔＮｅｘｔ中去的记录数目。如
果已不存在Ｒｅｃｏｒｄｓｅｔ，ｒｓｔＮｅｘｔ被设为Ｎｏｔｈｉｎｇ
Ｏｐｅｎ 在一个活动Ｃｏｍｍａｎｄ或Ｃｏｎｎｅｃｔｉｏｎ对象上打开一个Ｒｅｃｏｒｄｓｅｔ，调用语法为：ｒｓｔＮａｍｅ．Ｏｐｅｎ
［ｖａｒＳｏｕｒｃｅ ［， ｖａｒＡｃｔｉｖｅＣｏｎｎｅｃｔｉｏｎ ［， ｌｎｇＣｕｒｓｏｒＴｙｐｅ ［， ｌｎｇＬｏｃｋＴｙｐｅ ［， ｌｎｇＯｐｔｉｏｎｓ］］］］］。这些
参数都是可选的，
Ｒｅｑｕｅｒｙ 重新从表中获取Ｒｅｃｏｒｄｓｅｔ的内容，等效于Ｃｌｏｓｅ后再Ｏｐｅｎ。它是一个资源集中型操作。语法为：ｒｓｔＮａｍｅ．Ｒｅｑｕｅｒｙ
Ｒｅｓｙｎｃ＊ 重新从表中获取部分Ｒｅｃｏｒｄｓｅｔ内容。调用语法为ｒｓｔＮａｍｅ．Ｒｅｓｙｎｃ ［ｌｎｇＡｆｆｅｃｔＲｅｃｏｒｄｓ］，其中ｌｎｇＡｆｆｅｃｔＲｅｃｏｒｄｓ的取值见ｌｎｇＡｆｆｅｃｔＲｅｃｏｒｄｓ用到的常数。如果把该参数设为ａｄＡｆｆｅｃｔＣｕｒｒｅｎｔ或
ａｄＡｆｆｅｃｔＧｒｏｕｐ，则比ａｄＡｆｆｅｃｔＡｌｌ（默认值）所耗的资源要少。
Ｓａｖｅ 创建包含Ｒｅｃｏｒｄｓｅｔ永久性拷贝的文件。调用语法为ｒｓｔＮａｍｅ．Ｓａｖｅ ｓｔｒＦｉｌｅＮａｍｅ。其中
ｓｔｒＦｉｌｅＮａｍｅ为路径和文件名。通常用．ｒｓｔ作为文件的扩展名。
Ｓｕｐｐｏｒｔｓ 如果数据提供者支持指定的游标相关的方法，则返回Ｔｒｕｅ，否则返回为Ｆａｌｓｅ。调用语法为
Ｓｕｐｐｏｒｔｅｄ＝ｒｓｔｎａｍｅ．Ｓｕｐｐｏｒｔｓ （ｌｎｇＣｕｒｓｏｒＯｐｔｉｏｎｓ）．关于ｌｎｇＣｕｒｓｏｒＯｐｔｉｏｎｓ，见Ｓｕｐｐｏｒｔｓ方法用到的常数。
Ｕｐｄａｔｅ＊ 使对Ｒｅｃｏｒｄｓｅｔ的修改对底层数据源中的表生效。对于批量操作，Ｕｐｄａｔｅ方法只使修改对本地（Ｃａｃｈｅｄ）Ｒｅｃｏｒｄｓｅｔ生效。调用语法为ｒｓｔＮａｍｅ．Ｕｐｄａｔｅ
ＵｐｄａｔｅＢａｔｃｈ＊ 合对指量类型的Ｒｅｃｏｒｄｓｅｔ（ＬｏｃｋＴｙｐｅ属性值为ａｄＢａｔｃｈＯｐｔｉｍｉｓｔｉｃ，ＣｕｒｓｏｒＴｙｐｅ属性值为ａｄＯｐｅｎＫｅｙｓｅｔ或ａｄＯｐｅｎＳｔａｔｉｃ）所做的修改对底层数据源中的表生效。调用语法为ｒｓｔＮａｍｅ．ＵｐｄａｔｅＢａｔｃｈ ［ｌｎｇＡｆｆｅｃｔＲｅｃｏｒｄｓ］，其中ｌｎｇＡｆｆｅｃｔＲｅｃｏｒｄｓ的取值见ｌｎｇＡｆｆｅｃｔｒｅｃｏｒｄｓ用到的常数。
注：ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ对象不支持Ｅｄｉｔ方法。为了改变ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ对象当前记录的一个或多个字段的值，可以先使用ｒｓｔＮａｍｅ．Ｆｉｅｌｄｓ（ｎ）．Ｖａｌｕｅ＝ｖａｒＶａｌｕｅ把相应字段的值改为所需要的值，而后执行ｒｓｔＮａｍｅ．Ｕｐｄａｔｅ即可。
事件
事件名称 触发时机
ＥｎｄＯｆＲｅｃｏｒｄｓｅｔ 记录指针试图移到最后一条记录之外时
ＦｉｅｌｄｃｈａｎｇｅＣｏｍｐｌｅｔｅ 字段值的改变完成之后
ＭｏｖｅＣｏｍｐｌｅｔｅ Ｍｏｖｅ或Ｍｏｖｅ．．．方法执行之后
ＲｅｃｏｒｄｓＣｈａｎｇｅＣｏｍｐｌｅｔｅ 对单个记录编辑完成以后
ＲｅｃｏｒｄｓｅｔＣｈａｎｇｅＣｏｍｐｌｅｔｅ 缓存中的改变对底层表生效之后
ＷｉｌｌＣｈａｎｇＦｉｅｌｄ 对字段值改变之前
ＷｉｌｌＣｈａｎｇｅＲｅｃｏｒｄ 对单个记录改变之前
ＷｉｌｌＣｈａｎｇｅＲｅｃｏｒｄｓｅｔ 缓存中的改变对底层表生效之前
ＷｉｌｌＭｏｖｅ Ｍｏｖｅ或Ｍｏｖｅ．．．方法执行之前
注：事件处理模块的函数头几乎都用到了ａｄＲｅａｓｏｎ参数。该参数的取值见ａｄＲｅａｓｏｎ参数用到的常数。
常数
ＡｂｓｏｌｕｔｅＰａｇｅ属性用到的常数
常数 含义
ａｄＰｏｓＵｎｋｎｏｗｎ 数据提供者不支持页面，Ｒｅｃｏｒｄｓｅｔ为空，或数据提供者不能确定页码。
ａｄＰｏｓＢＯＦ 记录指针定位于文件开头（ＢＯＦ属性值为Ｔｒｕｅ）
ａｄＰｏｓＥＯＦ 记录指针定位于文件结尾（ＥＯＦ属性值为Ｔｒｕｅ）
ＣｕｒｓｏｒＬｏｃａｔｉｏｎ属性用到的常数
常数 含义
ａｄＵｓｅＣｌｉｅｎｔ 使用客户端游标库提供的游标。ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ要求客户端游标
ａｄＵｓｅＳｅｒｖｅｒ 使用数据源提供的游标，通常（但非绝对）位于服务器上（默认值）
ＣｕｒｓｏｒＴｙｐｅ属性用到的常数
常数 含义
ａｄＯｐｅｎＦｏｒｗａｒｄｏｎｌｙ 提供单向移动游标和只读Ｒｅｃｏｒｄｓｅｔ（默认值）
ａｄＯｐｅｎＤｙｎａｍｉｃ 提供可滚动游标，可显示其他用户对Ｒｅｃｏｒｄｓｅｔ所做的改动（包括添加新记录）
ａｄＯｐｅｎＫｅｙｓｅｔ 提供可滚动游标，只隐藏其他用户所做的改动，类似于ｄｙｎａｓｅｔ类型的ＤＡＯ．Ｒｅｃｏｒｄｓｅｔ ａｄＯｐｅｎＳｔａｔｉｃ 提供一个位于Ｒｅｃｏｒｄｓｅｔ静态拷贝上的可滚动游标，类似于ｓｎａｐｓｈｏｔ类型的
ＤＡＯ．Ｒｅｃｏｒｄｓｅｔ，但多了可更新特性
ＥｄｉｔＭｏｄｅ属性用到的常数
常数 含义
ａｄＥｄｉｔＮｏｎｅ 无正在进行的编辑操作（默认值）
ａｄＥｄｉｔＡｄｄ 临时添加一条记录，但尚未存入数据库的表中
ａｄＥｄｉｔＩｎＰｒｏｇｒｅｓｓ 当前记录中的数据已经改动，但尚未存入数据库的表中
常数 含义
ａｄＦｉｌｔｅｒＮｏｎｅ 除去已有的过滤器，显示Ｒｅｃｏｒｄｓｅｔ中的所有记录（等效于把Ｆｉｌｔｅｒ属性置为空串，默认值）
ａｄｆｉｌｔｅｒＡｆｆｅｃｔｅｄＲｅｃｏｒｄｓ 只显示上次ＣａｎｃｅｌＢａｔｃｈ、Ｄｅｌｅｔｅ、Ｒｅｓｙｎｃ或ＵｐｄａｔｅＢａｔｃｈ方法执行后所影响的记录
ａｄＦｉｌｔｅｒＦｅｔｃｈｅｄＲｅｃｏｒｄｓ 只当前Ｃａｃｈｅ中的记录，记录条数由ＣａｃｈｅＳｉｚｅ来确定
ａｄＦｉｌｔｅｒＰｅｎｄｉｎｇＲｅｃｏｒｄｓ 只显示已改动但尚未被数据源处理的记录（仅适用于批量更新模式）
ＬｏｃｋＴｙｐｅ属性用到的常数
常数 含义
ａｄＬｏｃｋＲｅｃｏｒｄＯｎｌｙ 指定只读访问（默认值）
ａｄＬｏｃｋＢａｔｃｈＯｐｔｉｍｉｓｔｉｃ 使用批量更新模式而不是默认的立即更新模式
ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ 使用乐观锁（仅在更新过程中才锁定记录或页面）
ａｄＬｏｃｋＰｅｓｓｉｍｉｓｔｉｃ 使用悲观锁（编辑或更新整个过程中均锁定记录或页面）
Ｓｔａｔｅ常数
常数 含义
ａｄＳｔａｔｅＣｌｏｓｅｄ Ｃｏｎｎｅｃｔｉｏｎ（或其他对象）是关闭的（默认值）
ａｄＳｔａｔｅＣｏｎｎｅｃｔｉｎｇ 正在连接数据源的状态
ａｄＳｔａｔｅＥｘｅｃｕｔｉｎｇ Ｃｏｎｎｅｃｔｉｏｎ或Ｃｏｍｍａｎｄ对象的Ｅｘｅｃｕｔｅ方法已被调用
ａｄＳｔａｔｅＦｅｔｃｈｉｎｇ 返回行（ｒｏｗ）到Ｒｅｃｏｒｄｓｅｔ对象
ａｄＳｔａｔｅＯｐｅｎ Ｃｏｎｎｅｃｔｉｏｎ（或其他对象）是打开的（活动的）
Ｓｔａｔｕｓ属性用到的常数（仅适用于Ｂａｔｃｈ或Ｂｕｌｋ Ｒｅｃｏｒｄｓｅｔ操作）
常数 含义
ａｄＲｅｃＯＫ 成功更新
ａｄＲｅｃＮｅｗ 成功添加
ａｄＲｅｃＭｏｄｉｆｉｅｄ 成功修改
ａｄＲｅｃＤｅｌｅｔｅｄ 成功删除
ａｄＲｅｃＵｎｍｏｄｉｆｉｅｄ 无改动
ａｄＲｅｃＩｎｖａｌｉｄ 未保存：Ｂｏｏｋｍａｒｋ属性无效
ａｄＲｅｃＭｕｌｔｉｐｌｅＣｈａｎｇｅｓ 未保存：保存会影响其他记录
ａｄＲｅｃＰｅｎｄｉｎｇＣｈａｎｇｅｓ 未保存：记录引用了一个等待插入操作
ａｄＲｅｃＣａｎｃｅｌｅｄ 未保存：操作被取消
ａｄＲｅｃＣａｎｔＲｅｌｅａｓｅ 未保存：现有记录值阻止了保存
ａｄＲｅｃＣｏｎｃｕｒｒｅｎｃｙＶｉｏｌａｔｉｏｎ 未保存：乐观并发锁发生了问题
ａｄＲｅｃＩｎｔｅｇｒｉｔｙＶｉｏｌａｔｉｏｎ 未保存：操作会影响一致性
ａｄＲｅｃＭａｘＣｈａｎｇｅｓＥｘｃｅｅｄｅｄ 未保存：存在太多的等待改动
ａｄＲｅｃＯｂｊｅｃｔＯｐｅｎ 未保存：打开存贮对象发生冲突
ａｄＲｅｃＯｕｔｏｆＭｅｍｏｒｙ 未保存：内存不足
ａｄＲｅｃＰｅｒｍｉｓｓｉｏｎＤｅｎｉｅｄ 未保存：用户权限不够
ａｄＲｅｃＳｃｈｅｍａＶｉｏｌａｔｉｏｎ 未保存：记录的结构不符合数据库中的定义
ａｄＲｅｃＤＢＤｅｌｅｔｅｄ 未保存或删除：记录已被删除
ｌｎｇＡｆｆｅｃｔＲｅｃｏｒｄｓ参数用到的常数
ａｄＡｆｆｅｃｔＡｌｌ 包括Ｒｅｃｏｒｄｓｅｔ对象的所有记录，那些被Ｆｉｌｔｅｒ属性过滤隐藏的记录也计算在内（默认值）
ａｄＡｆｆｅｃｔＣｕｒｒｅｎｔ 只包括当前记录
ａｄＡｆｆｅｃｔＧｒｏｕｐ 只包括那些符合当前Ｆｉｌｔｅｒ条件的记录
ｖａｒＳｔａｒｔ参数用到的Ｂｏｏｋｍａｒｋ常数
常数 含义
ａｄＢｏｏｋｍａｒｋＣｕｒｒｅｎｔ 从当前记录开始（默认值）
ａｄＢｏｏｋｍａｒｋＦｉｒｓｔ 从第一条记录开始
ａｄＢｏｏｋｍａｒｋＬａｓｔ 从最后一条记录开始
Ｓｕｐｐｏｒｔｓ方法用到的常数
常数 含义
ａｄＡｄｄＮｅｗ 调用ＡｄｄＮｅｗ方法
ａｄＡｐｐｒｏｘＰｏｓｉｔｉｏｎ 设置和得到Ａｂｓｏｌｕｔｅｐｏｓｉｔｉｏｎ和ＡｂｓｏｌｕｔｅＰａｇｅ属性值
ａｄＢｏｏｋｍａｒｋ 设置和得到Ｂｏｏｋｍａｒｋ属性值
ａｄＤｅｌｅｔｅ 调用Ｄｅｌｅｔｅ方法
ａｄＨｏｌｄＲｅｃｏｒｄｓ 获取另外的记录或改变获取记录指针的位置，但不提交未确定的改变
ａｄＭｏｖｅＰｒｅｖｉｏｕｓ 调用ＧｅｔＲｏｗｓ，Ｍｏｖｅ，ＭｏｖｅＦｉｒｓｔ和ＭｏｖｅＰｒｅｖｉｏｕｓ方法（表明是一个双向可滚动游标） ａｄＲｅｓｙｎｃ 调用Ｒｅｓｙｎｃ方法
ａｄＵｐｄａｔｅ 调用Ｕｐｄａｔｅ方法
ａｄＵｐｄａｔｅＢａｔｃｈ 调用ＵｐｄａｔｅＢａｔｃｈ和ＣａｎｃｅｌＢａｔｃｈ方法
ａｄＲｅａｓｏｎ参数用到的常数
常数 含义
ＡｄＲｓｎＡｄｄＮｅｗ 调用了ＡｄｄＮｅｗ方法
ＡｄＲｓｎＣｌｏｓｅ 调用了Ｃｌｏｓｅ方法
ＡｄＲｓｎＤｅｌｅｔｅ 调用了Ｄｅｌｅｔｅ方法
ＡｄＲｓｎＦｉｒｓｔＣｈａｎｇｅ 第一次对记录字段值做了修改
ＡｄＲｓｎＭｏｖｅ 调用了Ｍｏｖｅ方法
ＡｄＲｓｎＭｏｖｅＦｉｒｓｔ 调用了ＭｏｖｅＦｉｒｓｔ方法
ＡｄＲｓｎＭｏｖｅＬａｓｔ 调用了ＭｏｖｅＬａｓｔ方法
ＡｄＲｓｎＭｏｖｅＰｒｅｖｉｏｕｓ 调用了ＭｏｖｅＰｒｅｖｉｏｕｓ方法
ＡｄＲｓｎＲｅｑｕｅｒｙ 调用了Ｒｅｑｕｅｒｙ方法
ＡｄＲｓｎＲｅｓｙｎｃ 调用了Ｒｅｓｙｎｃ方法
ＡｄＲｓｎＵｎｄｏＡｄｄＮｅｗ ＡｄｄＮｅｗ操作被用户取消
ＡｄＲｓｎＵｎｄｏＤｅｌｅｔｅ Ｄｅｌｅｔｅ操作被用户取消
ＡｄＲｓｎＵｎｄｏＵｐｄａｔｅ Ｕｐｄａｔｅ操作被用户取消
ＡｄＲｓｎＵｐｄａｔｅ 调用了Ｕｐｄａｔｅ方法
Ｖｉｓｕａｌ Ｂａｓｉｃ 的数据库编程作者：孙志刚
Ｖｉｓｕａｌ Ｂａｓｉｃ作为应用程序的开发“利器”也表现在数据库应用程序的开发上，它良好的界面和强大的控件功能使数据库编程变得简单多了。但即便如此，数据库应用程序的开发仍然算得上是ＶＢ编程中的难点，这是因为你不仅要熟悉ＶＢ中关于数据库编程方面的知识（当然这是十分简单的）还要了解数据库的知识。所以我们先介绍一下数据库的基本知识，算是学习数据库编程前的热身运动吧！
一、热身运动
首先需要声明是，我们这里介绍的数据库知识都是指的关系数据库。所谓关系数据库就是将数据表示为表的集合，通过建立简单表之间的关系来定义结构的一种数据库。
不管表在数据库文件中的物理存储方式如何，它都可以看作一组行和列，与电子表格的行和列类似。在关系数据库中，行被称为记录，而列则被称为字段。下面是一个客户表的例子。
表１ 客户表
客户号 姓名 地址 城市 街道 邮编
１７２３ Ｄｏｅ Ｊｏｈｎ １２３４ Ｆｆｔｈ Ａｖｅｎｕｅ Ｎｅｗ Ｙｏｒｋ ＮＹ １００４
３３９１ Ｓｍｉｔｈ Ｍａｒｙ ９８７６ Ｍｙｒｔｌｅ Ｌａｖｅｅ Ｂｏｓｔｅｎ ＭＡ ６０７８
３７６５ Ｂｌａｓｅｌ Ｍｏｒｔｉｍｅｒ ２２９６ｊ Ｒｉｖｅｒ Ｒｏａｄ ｐｅｏｒｉａ ＩＬ ７０１１
此表中每一行是一个记录，它包含了特定客户的所有信息，而每个记录则包含了相同类型和数量的字段：客户号、姓名等等。
表 是一种按行与列排列的相关信息的逻辑组，类似于工作单表。
字段 数据库表中的每一列称作一个字段。表是由其包含的各种字段定义的，每个字段描述了它所含有的数据。创建一个数据库时，须为每个字段分配一个数据类型、最大长度和其它属性。字段可包含各种字符、数字甚至图形。
记录 各个客户有关的信息存放在表的行，被称为记录。一般来说，数据库表创建时任意两个记录都不能相同。
键 键就是表中的某个字段（或多个字段），它（们）为快速检索而被索引。键可以是唯一的，也可以是非唯一的，取决于它（们）是否允许重复。唯一键可以指定为主键，用来唯一标识表的每行。例如，在前面的例子中，客户标识号 （客户号） 是表的主键，因为客户号唯一地标识了一个客户。
关系 数据库可以由多个表组成，表与表之间可以以不同的方式相互关联。例如，客户数据库还可以有一个包含某个客户的所有定单的表。它只用“客户号”字段来引用该定单的客户，而不在定单表中的每项重复所有客户信息，如下表所示：
表２ 定货表
定货 客户号 日期 内容 数量
１４７６４ ３３９１ ２／２３／９４ ２７ ￥２２．９５
１４９３２ ３３９１ ３／１７／９４ ４６ ￥９．５７
１５１０８ ８７６５ ２／１５／９６ ２７ ￥２２．９５
在这个表中，客户号字段引用了客户表中的 客户号字段，从而把定单和客户联系起来了。可以看到，客户 ３３９１ （Ｍａｒｙ Ｓｍｉｔｈ） 在 ９４ 年 ２ 月 ２３ 日订购了 ２７ 项，在 ９４ 年 ３ 月 １７ 日订购了 ４６ 项。用来建立关系的键叫做外部键，因为它与“外部”表（客户表）的主键关联。
一对多和多对多关系 上表中的关系类型叫做一对多关系，因为一个客户可以发出多个定单，而某个特定的定单只能是一个客户所发。也可以建立多对多的关系。例如，列出所有可以销售的项（存货）的盘存表：
表３ 盘存表
内容 描述 供应商 费用 盘存
２７ Ｓｔｒａｗ Ｈａｔ Ｇａｒｄｅｎ Ｓｕｐｐｌｙ Ｃｏ． ￥１４．００ ５０
４６ Ｇａｒｄｅｎ ｇｌｏｖｅｓ Ｇａｒｄｅｎ Ｓｕｐｐｌｙ Ｃｏ． ￥４．５０ ７５
１０２ ｈａｎｇｉｎｇ ｆｌｏｒａｌ ｉｎｄｕｓｔｒｉｅｓ ￥６．００ １３７
从盘存表中，可以看到在客户和存货项之间存在多对多的关系。也就是说，一个客户可以订购多个存货项，而一个存货项又能够被多个客户订购。多对多关系是通过两个独立的一对多关系来定义的，公共的“多”表包含了两个其它表的外部键。在该例中，定货ｓ 表与 盘存 表（通过 “内容”）与
Ｃｕｓｔｏｍｅｒ 表（通过 客户号）都相关联。通过这三个表，我们可以看到，Ｍａｒｙ Ｓｍｉｔｈ （客户号 ３３９１） 订购了 Ｓｔｒａｗ Ｈａｔ （“内容” ２７） 和Ｇａｒｄｅｎ Ｇｌｏｖｅｓ （“内容” ４６），而 Ｍａｒｙ Ｓｍｉｔｈ （客户号 ３３９１） 和 Ｍｏｒｔｉｍｅｒ Ｂｌａｓｅｌｆｌａｔｚ （客户号 ８７６５） 都订购了Ｓｔｒａｗ Ｈａｔ （“内容” ２７）。如果把客户表和盘存表的相关字段与 定货表的“定货”字段联结起来，建立一个“关联”表，那么这个关系就更清楚了。
表４ 关联表：按客户号和内容排序
定货号 客户号 姓名 内容 描述
１４７６４ ３３３９１ Ｓｍｉｔｈ Ｍａｒｙ ２７ Ｓｔｒａｗ Ｈａｔ
１４９３２ ３３３９１ Ｓｍｉｔｈ Ｍａｒｙ ４６ Ｇａｒｄｅｎ Ｇｌｏｖｅｓ
１５１６８ ８７６５ Ｂｌａｓｅｌｆａｔｚ Ｍｏｒｔｉｍｅｒ ２７ Ｓｔｒａｗ Ｈａｔ
规范化 数据库设计者的任务就是组织数据，而组织数据的方法，应能消除不必要的重复，并为所有必要信息提供快速查找路径。为了达到这种目标而把信息分离到各种独立的表中去的过程，叫作规范化。
规范化是用许多指定的规则和不同级别的范式来进行规范的复杂过程。该过程的研讨已超出了本文的范围。但是，大多数简单数据库的规范化可以用下面简单的经验规则来完成：包含重复信息的表必须分成独立的几个表来消除重复。
例如，使学生和课程对应的学生数据库，包含了下表所示的信息。
表５
学生 课程 描述 教授
１ ４ Ｉｎｔｒｏｄｕｃｔｉｏｎ ｔｏ Ｐｈｙｓｉｏｌｏｇｙ Ｄａｗｓｏｎ
２ ３ Ａｐｐｌｉｅｄ Ｂａｓｋｅｔｗｅａｉｎｇ Ｃａｒｒｕｔｈ
３ １ Ｐｈｙｓｉｃｓ ｆｏｒ Ｓｈｏｒｔ－定货 ｃｏｏｋｓ Ａｄｍｓ
４ ２ Ｉｎｔｒｏｄｕｃｔｉｏｎ ｔｏ Ｐｈｙｓｉｏｌｏｇｙ Ｄａｗｓｏｎｓ
如果有选学了十二门课程的 １０００ 个学生，每门课程的说明和教师将显示１００多次─ 对选了那门课程的每个学生都要重复一次。要避免这种低效率，应当把表分成两个独立的表来规范化，一个用来表示学生，另一个用来表示课程，如表６，表７所示。
学生 课程
１ ４
２ ３
３ １
４ ４
课程 描述 教授
１ Ｐｈｙｓｉｃｓ ｆｏｒ Ｓｈｏｒｔ－定货 ｃｏｏｋｓ Ａｄｍｓ
２ Ｃｏｕｎｔｅｒｃｕｌｔｕｒｅ Ｓｏｃｉｏｌｏｇｙ Ｂｅｃｋｅｌｙ
３ Ａｐｐｌｉｅｄ Ｂａｓｋｅｔｗｅａｉｎｇ Ｃａｒｒｕｔｈ
４ Ｉｎｔｒｏｄｕｃｔｉｏｎ ｔｏ Ｐｈｙｓｉｏｌｏｇｙ Ｄａｗｓｏｎｓ
表６
表７
现在表被规范化了，所以，要改变特定课程的课程描述或“数据”，只要改变一个记录就可以了。 以上是关于数据库的基本知识，这是学习数据库编程所必须的。虽然数据库技术作为一门学科，其深度
和广度不是这点篇幅能描述的，但作为入门和简单数据库编程应该是足够了。
好了，下面我们就可以开始练练了。我们经常遇到数据库系统是登记系统，不管你是在单位，或是
参加什么组织，登记是免不了的，而且它的结构比较简单，我们就以一个登记系统为例吧。分析一下该
系统所涉及到的数据。
二、磨刀不误砍柴功
对于登记，要跟踪的信息包括：
● 姓名 ● 性别
● 籍贯 ● 年龄
● 出生年月 ● 单位
● 地址 ● 邮政编码
● 电话 ● 传真
当然，可以简单地创建一个表，使得上述的每个数据项对应一个字段。
现在需要给表指派主键，用以唯一标识每一条记录，在登记表中分别添加登记号作为唯一键，这样就保证数据库中的任两条记录都不同了。
对数据库作出以上分析后，我们就可以开始建立数据库了。
三、建营扎寨
在这里我们学习怎样建立数据库，首先需要确定要建立数据库的类型。在Ｖｉｓｕａｌ Ｂａｓｉｃ中通过数据访问控件或数据访问对象（ＤＡＯ）可以访问下列数据库：
１． ＪＥＴ数据库，即Ｍｉｃｒｏｓｏｆｔ Ａｃｃｅｓｓ
２． ＩＳＡＭ数据库，如：ｄＢａｓｅ，ＦｏｘＰｒｏ等
３． ＯＤＢＣ数据库，凡是遵循ＯＤＢＣ标准的客户／服务器数据库。如：Ｍｉｃｒｏｓｏｆｔ ＳＱＬ Ｓｅｒｖｅｒ、Ｏｒａｃｌｅ 一般来说，如果要开发个人的小型数据库系统，用Ａｃｃｅｓｓ数据库比较合适，要开发大、中型的数据库系统用ＯＤＢＣ数据库更为适宜。而ｄＢａｓｅ和ＦｏｘＰｒｏ数据库由于已经过时，除非特别的情况，否则不要
使用。在我们的例子中，当然选用Ａｃｃｅｓｓ数据库了。建立Ａｃｃｅｓｓ数据库有两种方法：一是在Ｍｉｃｒｏｓｏｆｔ Ａｃｃｅｓｓ中建立数据库。点击“新建”按钮就可以建立新的表了（如图１）。这里我们主要介绍第二种方法：使用可视化数据管理器，不需要编程就可创建数据库。可视化数据管理器是一个非常有用的应用程序，它是ＶＢ企业版和专业版附带的，在目录＼．．＼ＤｅｖＳｔｕｄｉｏ＼ｖｂ＼ｓａｍｐｌｅｓ＼Ｖｉｓｄａｔａ下，其界面如下图。 点击菜单“文件”项下“新建”子项“Ｍｉｃｒｏｓｏｆｔ ＡＣＣＥＳＳ”子项的“版本７．０ ＭＤＢ”项。在弹出窗口中输入新建数据库的名称“登记”，出现下面图３所示窗口：
要生成新的表，右键单击数据库窗口弹出菜单，然后选择“新表”命令，在随后出现的“表结构”
对话框中建立所要的字段。每次向表中加入新的字段，单击“增加字段”按钮，会出现图４ 的“增加字段”对话框。
“增加字段”对话框中的选项如表１０所示，根据字段的类型，有些选项是无效的，无法读取。
在我们建立的登记数据库中，各个字段的类型如表１１。
要注意的是，由于字段登记号用来唯一标志记录的，因此，它不能由用户输入。所以在定义该字段
时需要定义为Ｌｏｎｇ数据类型，“自动生成字段”项有效，并选中这一项。这样当用户每输入一条新记录时，系统就会在该字段上自动输入一个与其它记录不同的值。
在ＡＣＣＥＳＳ数据库中，关键字是用索引实现的，作为编程人员在对表类型的记录集编程时，只需调用索引名。在查询时，Ｒｕｓｈｍｏｒｅ技术自动用索引信息优化查询。完成表定义后，点击“增加索引”按钮，弹出
如图５所示窗口。
在窗口中右边有三个选项，其意义如表 １２。
添加索引对话框选项
完成之后如图６。
当然，学会数据库的建立也并非一朝一夕的事，读者不妨多练习一下。下面你就可以运行ＶＢ开始我们的编程了。
四、千里相会
Ｖｉｓｕａｌ Ｂａｓｉｃ 数据库应用程序有三个部分，如图７所示。
用户程序是程序员开发的，也是我们即将用ＶＢ来编写的部分。数据库引擎是数据库驱动程序，使用它程序员可以用统一的格式访问各种数据库，不管这个数据库是本地的 Ｖｉｓｕａｌ Ｂａｓｉｃ 数据库，还是所
支持的其它任何格式的数据库格式，所使用的数据访问对象和编程技术都是相同的。数据库则是我们上
面完成的部分。从这个结构可以看出用户与正在访问的特定数据库无关。那我们在用ＶＢ编写数据库程序时，就需要使程序能够访问指定的数据库。
如果是简单的数据库应用，可以使用 Ｄａｔａ 控件来执行大部分数据访问操作，而根本不用编写代
码。与 Ｄａｔａ 控件相捆绑的控件自动显示来自当前记录的一个或多个字段的数据。
ＤＡＴＡ数据控件
属性
ＣＯＮＮＥＣＴ属性 指定打开的数据库类型，并且包括参数，如用户和口令等。
例如：
打开Ａｃｃｅｓｓ数据库（缺省）
ＣＯＮＮＥＣＴ＝“ＡＣＣＥＳＳ”
打开ＯＤＢＣ数据库
ＣＯＮＮＥＣＴ＝“ＯＤＢＣ；ＤＡＴＡＢＡＳＥ＝？？；ＵＩＤ＝？？；ＰＷＤ＝？？；ＤＳＮ＝？？”
ＤＡＴＡＢＡＳＥＮＡＭＥ属性 确定数据控件访问哪一个数据库。
对于多表数据库它为具体的数据库文件名，例如：ＡＣＣＥＳＳ数据库
ＤＡＴＡＢＡＳＥＮＡＭＥ＝“Ｄ：＼．．．＼ＤＥＭＯ．ＭＤＢ＂
对于单表数据库它为具体的数据库文件所在的目录，而具体文件名放在ＲＥＣＯＲＤＳＯＵＲＣＥ属性中，例如：访问ＦＯＸＰＲＯ数据库文件Ｄ：＼ＦＯＸ＼ＤＥＭＯ．ＤＢＦ
ＤＡＴＡＢＡＳＥＮＡＭＥ＝“Ｄ：＼ＦＯＸ”
ＲＥＣＯＲＤＳＯＵＲＣＥ＝“ＤＥＭＯ”不带文件扩展名
ＲＥＣＯＲＤＳＯＵＲＣＥ属性
确定数据控件的记录集，即：所要访问的数据内容。它可以是一个表名、存储查询名或ＳＱＬ语句。例如：访问Ｒｅｇｉｓｔｅｒ表所有数据 ：
ＲＥＣＯＲＤＳＯＵＲＣＥ＝“Ｒｅｇｉｓｔｅｒ”访问ＲＣ表中１９７３年以前出生的数据：
ＲＥＣＯＲＤＳＯＵＲＣＥ＝“ＳＥＬＥＣＴ ＊ＦＲＯＭ Ｒｅｇｉｓｔｅｒ ＷＨＥＲＥ ［ＢＩＲＴＨＤＡＹ］＜＃１／１／１９７３＃＂
注意：当我们在运行时修改了该属性后，需要调用ＲＥＦＲＥＳＨ方法刷新记录集。
方法
ＲＥＦＲＥＳＨ方法 当我们在运行时修改了Ｒｅｃｏｒｄ－
Ｓｏｕｒｃｅ属性后，需要调用该方法刷新记录集。
ＵＰＤＡＴＥＲＥＣＯＲＤ方法 将绑定在数据控件上的控件的数据写入数据库中。即：当我们修改了数据后调用该方法确定修改。
ＣＡＮＣＥＬＵＰＤＡＴＥ方法 将数据库中的数据重新读到绑定在数据控件上的控件中。即：当我们修改了数据后调用该方法放弃修改。
事件
ＶＡＬＩＤＡＴＥ事件 当我们移动记录集记录指针时发生。例如：我们将记录集记录指针从Ａ移动到记录Ｂ时当产生ＶＡＬＩＤＡＴＥ事件时，记录指针仍在记录Ａ上。
Ｓｕｂ ＸＸＸＸ＿Ｖａｌｉｄａｔｅ（Ａｃｔｉｏｎ Ａｓ ｉｎｔｅｇｅｒ，Ｓａｖｅ Ａｓ ｉｎｔｅｇｅｒ）
其中：
Ａｃｔｉｏｎ 指出如何产生了该事件，如：移动，增加，查询等。
Ｓａｖｅ 表示是否保存已修改的数据。当我们修改了绑定在数据控件的数据，又没有ＵＰＤＡＴＥＲＥＣＯＲＤ，则移动指针时，Ｓａｖｅ＝Ｔｒｕｅ。如果在事件中令Ｓａｖｅ＝Ｆａｌｓｅ，则放弃修改。
例如：
Ｓｕｂ ＸＸＸＸ＿Ｖａｌｉｄａｔｅ（Ａｃｔｉｏｎ Ａｓ ｉｎｔｅｇｅｒ，Ｓａｖｅ Ａｓ ｉｎｔｅｇｅｒ）
Ｉｆ Ｓａｖｅ ｔｈｅｎ
Ｉ＝ ＭｓｇＢｏｘ（＂Ｄａｄａ ｃｈａｎｇｅｄ，Ｓａｖｅ？＂，ｖｂＹｅｓＮｏ）
Ｉｆ Ｉ ＝ ｖｂＮｏ ｔｈｅｎ
Ｓａｖｅ ＝ Ｆａｌｓｅ
Ｅｎｄ ｉｆ
Ｅｎｄ ｉｆ
Ｅｎｄ Ｓｕｂ
Ｒｅｐｏｓｉｔｉｏｎ事件 当我们移动记录集指针时发生。例如：我们将记录集记录指针从Ａ移动到记录Ｂ 时，当产生Ｒｅｐｏｓｉｔｉｏｎ事件时，记录指针已移动到Ｂ上。
通常我们在该事件中显示当前的指针位置。例如：
Ｓｕｂ ＸＸＸＸ＿Ｒｅｐｏｓｉｔｉｏｎ（）
ＸＸＸＸ．Ｃａｐｔｉｏｎ＝？？
ＸＸＸＸ．ＲｅｃｏｒｄＳｅｔ．ＡｂｓｏｌｕｔｅＰｏｓｉｔｉｏｎ ＋ １
Ｅｎｄ Ｓｕｂ
了解了ＤＡＴＡ控件之后我们就可以连接数据库了。现在我们可以编写一个应用程序。因为虽然我们建立了Ｒｅｇｉｓｔｅｒ数据库，但是数据库中却没有数据，我们程序的目的就是向数据库中输入数据。它的运行情况如图８。
各个文本框正好对应着表Ｒｅｇｉｓｔｅｒ的各个字段，在文本框中输入数据，点击“增加”按钮，就完成了一条记录的输入。我们看一下，ＤＡＴＡ控件是怎样和数据库连接起来的，各个文本框又是怎样和ＤＡＴＡ控件捆绑起来的。
在ＤＡＴＡ控件的ＣＯＮＮＥＣＴ属性中，选中“ＡＣＣＥＳＳ”项，在ＤａｔａｂａｓｅＮａｍｅ属性中，输入“Ｃ：＼ＴＥＭＰ＼登记．ｍｄｂ”，在ＲｅｃｏｒｄＳｏｕｒｃｅ属性中，选中“Ｒｅｇｉｓｔｅｒ”，这样就完成了数据库与ＤＡＴＡ控件的连接，也就是完成了与应用程序的连接。
数据库中各个字段又是怎样和文本框连接起来的呢？在ＶＢ中，我们可以将普通控件绑定在数据控件上，来完成自动地显示、更新记录集的数据。常用的可绑定的控件有：Ｌａｂｅｌ，Ｔｅｘｔ，ｃｈｅｃｋＢｏｘ，Ｉｍａｇｅ等。通过设置这些控件的ＤａｔａＳｏｕｒｃｅ和ＤａｔａＦｉｅｌｄ属性来完成绑定。
ＤａｔａＳｏｕｒｃｅ 属性 表示绑定到哪一个数据控件上，程序中我们可能使用多个数据控件。
ＤａｔａＦｉｅｌｄ 属性 表示绑定到记录集的哪一个记录上。
现在我们需要把Ｔｅｘｔ１与表“登记”中的姓名字段连接起来。完成ＤＡＴＡ控件的连接之后，在Ｔｅｘｔ１控件的ＤａｔａＳｏｕｒｃｅ属性中，选中“Ｄａｔａ１”，在ＤａｔａＦｉｅｌｄ属性中，选中“姓名”值。用同样的方法，将各个文本框分别绑定到对应的字段上，就完成了文本框的捆绑。
下面我们编写两个按钮命令，完成其相应的操作了。喂！别着急，还有一个重要的对象没讲呢！
当应用程序启动时，Ｄａｔａ 控件被自动地初始化。如果 Ｃｏｎｎｅｃｔ、ＤａｔａｂａｓｅＮａｍｅ、Ｏｐｔｉｏｎｓ、
ＲｅｃｏｒｄＳｏｕｒｃｅ、Ｅｘｃｌｕｓｉｖｅ、ＲｅａｄＯｎｌｙ 和 ＲｅｃｏｒｄｓｅｔＴｙｐｅ 属性是合法的， Ｍｉｃｒｏｓｏｆｔ Ｊｅｔ 数据库引擎就会试图创建一个新的基于这些属性的 Ｒｅｃｏｒｄｓｅｔ 记录集对象。Ｒｅｃｏｒｄｓｅｔ 对象可以表示表中的记录或者作为查询结果的记录，使用 Ｒｅｃｏｒｄｓｅｔ 对象可以在记录一级上对数据库中的数据进行处理。这在数据库编程中是一个十分重要的，也是比较复杂的对象。
Ｒｅｃｏｒｄｓｅｔ 对象有三种类型：表、动态集、快照，它们之间存在明显的区别。
表类型的 Ｒｅｃｏｒｄｓｅｔ 对象是指当前数据库中的表在创建表类型的记录集时，数据库引擎打开的表。后续的数据操作都是直接对表进行的。只能对单个的表打开表类型的记录集，而不能对联接或者联合查询打开表类型的记录集。与其它类型的 Ｒｅｃｏｒｄｓｅｔ 对象相比，表类型的搜索与排序速度最快。
动态集类型的 Ｒｅｃｏｒｄｓｅｔ 对象可以是本地的表，也可以是返回的行查询结果。它实际上是对一个或者几个表中的记录的一系列引用。可用动态集从多个表中提取和更新数据，其中包括链接的其它数据库中的表。动态集类型具有一种与众不同的特点：不同数据库的可更新联接。利用这种特性，可以对不同
类型的数据库中的表进行可更新的联接查询。动态集和它的基本表可以互相更新。如果动态集中的记录发生改变，同样的变化也将在基本表中反映出来。在打开动态集的时候，如果其他的用户修改了基本表，那么动态集中也将反映出被修改过的记录。动态集类型是最灵活的Ｒｅｃｏｒｄｓｅｔ 类型，也是功能最强的。不过，它的搜索速度与其它操作的速度不及表类型的 Ｒｅｃｏｒｄｓｅｔ。
快照类型的 Ｒｅｃｏｒｄｓｅｔ 对象包含的数据是固定的，它反映了在产生快照的一瞬间数据库的状态。从 Ｍｉｃｒｏｓｏｆｔ Ｊｅｔ 数据源得到的快照是不可更新的，从开放数据库互连 （ＯＤＢＣ） 数据源得到的某些快照是可以更新的，这取决于数据库系统本身的能力。与动态集类型和表类型的 Ｒｅｃｏｒｄｓｅｔ 对象相比，快照的处理开销较少。因此，它执行查询和返回数据的速度更快，特别是在使用 ＯＤＢＣ 数据源时。快照类型保存了表中所有记录的完整复本，因此，如 果记录的个数很多，快照的性能将比动态集慢得多。为了确定快照与动态集哪一个更快，可以先以动态集方式打开记录集，然后再以快照方式打开它。
具体使用什么记录集，取决于需要完成的任务：是要更改数据呢，还是简单地查看数据。例如，如果必须对数据进行排序或者使用索引，可以使用表。因为表类型的 Ｒｅｃｏｒｄｓｅｔ 对象是做了索引的，它定位数据的速度是最快的。如果希望能够对查询选定的一系列记录进行更新，可以使用动态集。如果在特殊的情况下不能使用表类型的记录集，或者只须对记录进行扫描，那么使用快照类型可能会快一些。
一般来说，尽可能地使用表类型的 Ｒｅｃｏｒｄｓｅｔ 对象，它的性能通常总是最好的。
为选择特定的 Ｒｅｃｏｒｄｓｅｔ 类型，把 Ｄａｔａ 控件的ＲｅｃｏｒｄｓｅｔＴｙｐｅ属性设成：
ＲｅｃｏｒｄＳｅｔ记录集属性
ＢＯＦ属性 当记录集记录指针指向第一条记录时返回Ｔｒｕｅ
ＥＯＦ属性 当记录集记录指针指向最后一条记录时返回Ｔｒｕｅ
ＡｂｓｌｏｕｔｅＰｏｓｉｔｉｏｎ属性 返回当前记录集记录指针，第一条记录为０，是只读属性
Ｂｏｏｋｍａｒｋ属性 Ｓｔｒｉｎｇ类型，返回或设置当前记录集记录指针的书签，是可读写属性。每一条记录都有自己唯一的书签，它与记录在记录集中的顺序无关。将Ｂｏｏｋｍａｒｋ属性存放到变量中，后面可以通过将该变量赋值给Ｂｏｏｋｍａｒｋ属性，并返回到这个记录。
注意：程序中使用ＢｏｏｋＭａｒｋ属性重定位记录指针，而不能使用Ａｂｓｌｏｕｔｅｐｏｓｉｔｉｏｎ
ＮｏＭａｔｃｈ属性 当我们使用Ｆｉｎｄ方法查询时如果未找到则返回Ｔｒｕｅ。常与ＢｏｏｋＭａｒｋ属性同时使用。
例如：查找［ＮＡＭＥ］字段中第一个姓李的人
Ｄｉｍ Ｓ Ａｓ Ｓｔｒｉｎｇ
Ｗｉｔｈ ＸＸＸＸ．ＲｅｃｏｒｄＳｅｔ
Ｓ ＝ ．ＢｏｏｋＭａｒｋ
．ＦｉｎｄＦｉｒｓｔ ＂［ＮＡＭＥ］ Ｌｉｋｅ ＇李＊＇＂
ｉｆ ．ＮｏＭａｔｃｈ ｔｈｅｎ
ＭｓｇＢｏｘ ＂数据未找到“
．ＢｏｏｋＭａｒｋ ＝ Ｓ
Ｅｎｄ ｉｆ
Ｅｎｄ Ｗｉｔｈ
记录集方法
ＡｄｄＮｅｗ方法 向记录集增加一条新记录
Ｄｅｌｅｔｅ方法 从记录集中将当前记录删除。在删除后常使用ＭｏｖｅＮｅｘｔ方法移动指针。
例如：
Ｗｉｔｈ ＸＸＸＸ．ＲｅｃｏｒｄＳｅｔ
．Ｄｅｌｅｔｅ
．ＭｏｖｅＮｅｘｔ
ｉｆ ．ＥＯＦ ｔｈｅｎ ．ＭｏｖｅＬａｓｔ
Ｅｎｄ Ｗｉｔｈ
ＭｏｖｅＸＸＸＸ方法
ＭｏｖｅＦｉｒｓｔ 将记录集指针移动到第一条记录上
ＭｏｖｅＬａｓｔ 将记录集指针移动到最后一条记录上
ＭｏｖｅＰｒｅｖｉｏｕｓ 将记录集指针移动到前一条记录上
ＭｏｖｅＮｅｘｔ 将记录集指针移动到下一条记录上
ＦｉｎｄＸＸＸＸ方法
ＦｉｎｄＦｉｒｓｔ在记录集中查询符合条件的第一条记录
ＦｉｎｄＬａｓｔ 在记录集中查询符合条件的最后一条记录
ＦｉｎｄＰｒｅｖｉｏｕｓ 在记录集中查询符合条件的前一条记录
ＦｉｎｄＮｅｘｔ 在记录集中查询符合条件的下一条记录
好了，有了这么充分的知识了，编写两个按钮命令简直是小菜一碟，先来试一下，添一个“增加”命令按钮吧。
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
Ｄａｔａ１．Ｒｅｃｏｒｄｓｅｔ．ＡｄｄＮｅｗ
Ｅｎｄ Ｓｕｂ
哇！怎么这么简单，再看一下“删除”命令按钮
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ２＿Ｃｌｉｃｋ（）
Ｄａｔａ１．Ｒｅｃｏｒｄｓｅｔ．Ｄｅｌｅｔｅ
Ｄａｔａ１．Ｒｅｃｏｒｄｓｅｔ．ＡｄｄＮｅｗ
Ｅｎｄ Ｓｕｂ
就这样行了吗？运行程序吧，ＯＫ！一切正常，迫不及待地输入一条记录，点击“增加”按钮，怎么？出问题了！因为你只有在进行了ＡｄｄＮｅｗ方法后才可以输入数据，好吧，在窗口的初始化时就增加一条新记录吧。
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｉｎｉｔｉａｌｉｚｅ（）
Ｄａｔａ１．Ｒｅｃｏｒｄｓｅｔ．ＡｄｄＮｅｗ
Ｅｎｄ Ｓｕｂ
输入完了数据，我们打算退出程序，很自然的我们执行关闭窗口操作，就顺利地结束了输入工作。真的很顺利吗？打开数据库，看看数据库中的数据，我们发现刚才输入的最后一条记录没有存入数据库中。这个很好解释，每当我们调用ＡｄｄＮｅｗ方法时，它就将输入的记录存入数据库中，而当我们关闭窗口时，刚输入的记录并没有保存到数据库中，那么在关闭窗口之前对ＤＡＴＡ控件进行一次刷新就可以将数据存入数据库中了。
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＱｕｅｒｙＵｎｌｏａｄ（Ｃａｎｃｅｌ Ａｓ Ｉｎｔｅ ｇｅｒ， ＵｎｌｏａｄＭｏｄｅ Ａｓ Ｉｎｔｅｇｅｒ）
Ｄａｔａ１．Ｒｅｆｒｅｓｈ
Ｅｎｄ Ｓｕｂ
到了这里，我们似乎可以稍稍轻松了一点，这个窗口的功能差不多完成了。但是我不得不给你提出一个忠告：在数据库系统中，应尽量将错误在应用级上处理。这句话看起来似乎有点抽象，实际上用在这个程序中就简单多了。在表Ｒｅｇｉｓｔｅｒ中，我们将出生日期定义为Ｄａｔｅ／Ｔｉｍｅ类型，如果在程序运行时，在该字段对应的文本框中输入的不是Ｄａｔｅ／Ｔｉｍｅ格式，在向数据库提交数据时会出现什么情况呢？数据库会向用户报告错误信息。然而这样对应用程序并不好，这样的错误应该由用户程序处理，而不是交给数据库去处理，所以在数据提交之前就应该检查该字段的输入是否合法。
Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｅｘｔ３＿ＬｏｓｔＦｏｃｕｓ（）
Ｉｆ ＩｓＤａｔｅ（Ｔｅｘｔ３．Ｔｅｘｔ） Ｏｒ Ｔｅｘｔ３．Ｔｅｘｔ ＝ ＂＂ Ｔｈｅｎ ＇检查是否输入合法数据
Ｅｘｉｔ Ｓｕｂ
Ｅｎｄ Ｉｆ
ＭｓｇＢｏｘ （＂输入错误，请输入你出生的年月日！＂）