ADO（ActiveXDataObjects）是Microsoft提供和建议使用的新型的数据访问接口，具体实现为Automation。这样，程序员可以在各种支持Automation的开发环境下方便地访问ADO对象，如VisualBasic、VisualC++、VisualJ++及Delphi等。ADO被实现为O LED B之上的一个薄层，这使得ADO可以有更快的访问速度，更易使用，同时更节省资源。值得注意的是，对于VisualStudio6.0的用户而言，现在提供的ADO2.0要比VisualStudio5.0时代的ADO1.5更加完整。这意味着程序员可以更为广泛地使用ADO接口，甚至在所有的基于Windows平台的数据访问中使用它。好比对RDS（前身是ADC）的支持，可以方便的构建高效的Web应用。

　　一、对ADO对象的主要操作

　　对ADO对象的主要操作，同DAO、RDO库的实现基本相同。主要包含6个方面：

　　1.连接到数据源。这是可选的、通常涉及ADO的Connection对象。

　　2.向数据源提交命令。通常涉及ADO的Command对象。在查询中可以与参数对象（Parameter）协同使用。

　　3.执行命令，好比一个SELECT脚本。

　　4.如果提交的命令有结果返回，可以通过ADO的Recordset对象对结果进行操作，数据存储在缓存中。

　　5.如果合适，可将缓存中被更改的数据更新到物理的存储上。

　　6.提供错误检测。通常涉及ADO的Error对象。

　　以程序员的视角来看，ADO、DAO和RDO三者的对象名称不很相同。但使用ADO对象要比DAO和RDO简单得多。最主要的一点在于，程序员不用像在使用DAO和RDO那样要从对象模型的顶层开始一步步的建立子对象。因此，ADO提供了一种更灵活的编程方式。

　　二、ADO中主要对象的功能

　　Connection对象，表示了一个到数据源的会话。使用Connection对象的成员，可以使用相应的属性打开到数据源的连接，设置游标的位置，设置默认的当前数据库，设置将使用的O LED BProvider，直接提交SQL脚本等。值得注意的是，在提交SQL脚本的任务时，不用建立一个Command对象，就可完成查询。另外，对Connection对象的建立是同其它对象无关的。Command对象，可被用于查询数据库并返回结果在Recordset对象中。也可以进行批操作和操作数据库的结构，当然，这需要使用的O LED BProvider提供相应的支持。另外，可以将一个激活的Connection对象绑定到Command对象的ActiveConnection属性，这使得多个Command对象实例可以共用一个Connection对象。

　　Recordset对象，用来封装查询的结果，可称为结果集。

　　Field对象，用来表达一行结果中各子段的类型和值。

　　Error对象，用来检测和判断在数据库操作中出现的错误，好比连接失败。 在ADO中，许多对象名后多了一个"s"，好比Error->Errors，Field->Fields...。添加"s"意味着是相应对象的Collection（集合）对象，好比Errors是Error对象的Collection对象。Collection有点像数组（Array），但不同 的是，Collection可以以不同类型的数据或对象作为自己的元素，而数组中的各元素通常都是相同类型的。因此，在看到一个对象名最后是"s"，通常表明这是一个Collection对象，好比Errors中的各元素是由Error对象的实例组成的。

　　三、容易的案例

　　现在，我们在经过了前面的铺垫后，终于可以进入写代码的过程了。下面是一系列在VisualBasic中编写的代码片段，其中对ADO的操作完全用代码来实现。在开始前，请不了解ActiveXAutomation的读者牢记，我们正在使用的，是被实现为ActiveXAutomation的ADO组件。1.打开Connect.ion对象

　　打开一个到数据源的连接，即Connection对象的VB代码如下：

Dim cn As ADODB.Connection
’声明ADODB.Connection对象变量
Dim strCN As String
’声明存放连接串的字符串变量
Set cn= New Connection
’实例化Connection对象
’生成连接串（ConnectionString）
strCN="Provider=Microsoft.Jet.Oledb.3.51;
UserID=Admin;"&_
"DataSource=D:\MicrosoftVisual
Studio\VB98\Nwind.mdb;"
cn.Open strCN ’调用Connection对象的要领Open连接数据源

　　以上代码在访问ADO对象时，使用了前绑定（Early-bind），实现前绑定需要从VisualBasic的Project菜单下选择Reference菜单项，并选择MicrosoftActiveXDataObjects2.0Library。在程序中声明的strCN变量中，连接串属性Provider标识了O LED BProvider为O LED BProviderforMicrosoftJet，因为我们访问的是MicrosoftAccess数据文件，使用MicrosoftJetEngine能够获得比ODBC更好的性能。在试验以上代码时有两个地方要谨防。首先，要根据系统安置的O LED BProviderforMicrosoftJet服务选择相应版本，可能是3.51，也有可能存在是4.0。在本例中使用的是3.51版本。如果使用4.0版本，首先需要将Provider属性改为"Microsoft.Jet.Oledb.4.0"；其次，DataSource属性标识了所要访问的数据文件的路径，要根据自己的安置情况作出适当的调整。文件Nwind.mdb通常被VisualStudio默认安置，一般放在Visual Basic的工作目录下。

　　除了O LED B Provider for MicrosoftJet以外，Visual Studio6.0还提供了以下的O LED BProvider，如下所示。

O LED B Provider类型	数据源类型
Microsoft O LED B Provider for ODBC	databases
Microsoft O LED B Provider for Microsoft Index Server	Microsoft(r) Index Server
Microsoft O LED B Provider for Microsoft Active Directory Service	Microsoft(r) Active Directory Service
Microsoft O LED B Provider for SQLServer Microsoft(r) SQLServer	Microsoft O LED B Provider for Oracle
Oracle	databases

　　这意味着使用ADO接口可以方便地访问以上的各种数据源，要做的就是选择适当的O LED B Provider。除了使用Connection对象的Open方法以外，还可通过Recordset对象的Open方法快捷地建立到数据源的连接。这充分体现了ADO的灵活性。

　　2.建立Command对象

Dim cmd As ADODB.Command

Set cmd=New Command’实例化Command对象

　　3.执行查询

　　以Command对象为例。

Dim rs As New ADODB.Recordset

Set cmd.ActiveConnection=cn’绑定激活的Connection对象实例

cmd.CommandText="SELECT*from Customers"’生成SQL脚本

Set rs=cmd.Execute’执行查询

　　上述的代码只是一种查询途径，另外，ADO的Connection对象的Execute方法和Recordset对象的Open方法也提供了查询能力。返回的结果可以被保存在一个Recordset对象实例中以便后续的数据处理和操作。好比：

Dim rs As NewADODB.Recordset

rs.Open cmd,cn,adOpenDymanic,adLockBatchOptimistic
　　另外在SQL脚本的生成方式上，通常可以借助Parameters/Parameter对象来完成。

　　4.显示和操作数据

　　查询结果由Recordset对象封装。对数据的操作可以通过Recordset对象提供的成员（属性和方法）来完成。

rs.MoveFirst

Do While Not rs.EOF’判断EOF标记属性（Endoffile）

Debug.Print rs!CustomerID & vbTab & rs!CompanyName & _

vbTab & rs!ContactName & vbTab & rs!ContactTitle

rs.MoveNext’将游标指针移到下一条记录

Loop

　　上述代码将Recordset中的各行记录打印在Visual Basic的Immediate Window中。为了看到打印的结果，可以在上述代码之后，增加一条Stop语句，以便进入Debug状态。

　　5.更新记录

　　使用Recordset对象来完成Update操作。

　　rs.Close’关闭之前建立的结果集

　　’打开新的结果集，具有写操作权限

rs.Open"Customers",cn,adOpenDynamic,adLockOptimistic,adCmdTable

rs.MoveFirst’虽无必要，但可能是一个良好的习惯

rs!CompanyName="Microsoft"’对相应字段赋予新值

rs.Update’在物理存储上生效

　　除了Update以外，写操作还包含AddNew（添加一条新记录）和Delete（删除一条新记录）。另外，Recordset支持批处理，但这些特征需要由低层的O LED BProvider支持。当写操作出现错误时，可根据错误描述（访问ADO的Error或VisualBasic的Err对象）来判断原因。另外一个需要谨防的是，当使用Recordset对象完成写操作时，需要预先指定Recordset对象实例非只读。

　　6.收尾工作

　　在这个阶段应该显式的释放相应的资源，假如不做的话，通常VisualBasic会自动释放和回收资源。但对于一个有良好编程习惯的程序员而言，应该主动地做收尾工作，就像下面的代码一样。

rs.Close

Set rs=Nothing

Set cmd=Nothing

cn.Close

Set cn=Nothing