VB中基于ADO的数据库访问
在VB中常用的数据库访问接口有三种，即DAO、RDO、ADO三种对象模式。三种模式的具体解释见上篇文章：
DAO/RDO/ADO,ODBC,OLEDB之间的关系
本篇文章我们重点介绍一下ADO的应用。
一：ＡＤＯ的简介
ADO（ActiveX Data Object）是由微软公司开发的最新的数据库访问接口技术，因为ADO技术对OLEDB（Object Link and Embedding DataBase）进行了封装并实现了OLEDB所有的功能，所以ADO通过OLEDB可以访问任何类型的数据源，并且减少了编程量。ADO访问数据库的体系可以概括为：
二：基本流程：
ADO访问数据库的目标是访问、编辑和更新数据源，因此使用ADO进行数据访问时，一般需要经过一下步骤：
（1）创建一个数据源的连接，连接数据库。
Set objCn = NewConnection
strcn ="provider=microsoft.jet.oledb.4.0;persist security info=false;" &_
"data source=" &App.Path & "\实例1.mdb"
objCn.ConnectionString = strcn
objCn.Open
（2）设置一个命令来访问数据源的数据。
（3）执行命令。
Set objCmd = New Command
Set objCmd.ActiveConnection = objCn
With objCmd
.CommandText = "select * from 系统用户where 用户名 like ?" & "and 身份 like ?"
.CommandType = adCmdText
End With
Dim Parm As New Parameter
Set Parm =objCmd.CreateParameter("用户名", adVarChar, adParamInput, 10)
objCmd.Parameters.Append Parm
Set Parm =objCmd.CreateParameter("身份", adVarChar, adParamInput, 10)
objCmd.Parameters.Append Parm
（4）如果命令的执行导致返回数据库中表的某些行，则将他们保存在缓存中，产生相应的数据集对象，以便对其进行操作。
（5）通过数据集对象进行各种操作，包括修改，添加，删除等。
Private Sub Form_Load()
Set objCn = New Connection
objCn.Open "DSN=实例2DSN"
Set objRS = New Recordset
With objRS
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select * from 系统用户",objCn
End With
txtUsername =objRS.Fields("用户名").Value
txtPassword =objRS.Fields("口令").Value
txtMsg = objRS.AbsolutePosition &"/" & objRS.RecordCount '直接跳至某条记录
End Sub
（6）更新数据源，即将修改的结果返回数据源。
objRS.Update
（7）结束连接
Set objRS = Nothing
objCn.Close
Set objCn = Nothing
以上是ADO连接数据库的大概步骤，而实际应用时应根据具体情况灵活应用，有时可能只需执行部分步骤即可达到要求。
三：具体方法
在VB中，使用ADO访问数据库主要有两种方式：一种是使用ADO Date控件，通过对控件的绑定来访问数据库中的数据。一种是使用ADO对象模型，即编程访问方式（上面的举得例子就是这种方式）
1.使用ADO Data控件
可以快速建立数据绑定控件和数据提供者之间的连接。
在实现数据访问时，只需设置好ADO Data控件的数据相关的属性，无需编写程序代码或者只需少量的代码就可以实现数据访问，同时也可以结合DataGrid控件来实现数据的显示和修改。
具体步骤不在呈现！
2.使用ADO对象模型访问数据库
如上图，ADO对象模型共包括七个对象，三个主要对象和四个依赖于主要对象的对象集合，他们的关系可以概括为：
下面我们举一个简单的例子，访问数据库并执行一个简单的查询命令：
声明变量：
Dim objRS AsRecordset '用于保存数据源记录集
Dim objCn AsConnection '用于创建数据源连接
Dim isNeedSave AsBoolean '用于标识是否需要执行保存操作
Private SubForm_Load()
建立数据库连接：
Set objCn = New Connection '实例化Connection对象
strcn ="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\数据库\db1.mdb"
objCn.Open strcn '建立数据库连接
'创建客户端的记录集
Set objRS = New Recordset
With objRS
.CursorLocation = adUseClient '指定游标位置
.CursorType = adOpenStatic '指定使用键集游标
.LockType = adLockOptimistic '指定锁定类型
.Open "SELECT * FROM 系统用户",objCn
End With
'显示第一个记录数据
txtUserName =objRS.Fields("用户名").Value
txtPassword =objRS.Fields("口令").Value
txtMsg = objRS.AbsolutePosition &"/" & objRS.RecordCount
End Sub
’善后工作：
Private SubForm_Unload(Cancel As Integer)
Set objRS = Nothing '释放记录集对象
objCn.Close '释放数据库连接
Set objCn = Nothing '释放连接对象
End Sub
两种ADO数据库访问方式的特点：
（1）使用ADO控件几乎封装了相应代码的所有功能，简化编程。但是也造成了它的灵活性较差，一般一个ADO Data控件只能在同一个数据源上打开一个记录集或者执行一个查询命令。而使用ADO对象模型就要灵活的多，可以建立独立的连接对象，可以在同一个数据源上打开多了记录集或执行多个命令。可动态的指定数据库的来源地。
（2）使用ADO Data控件可以简化操作过程，但功能上有所限制，很多功能都是静态的，在运行时很难改变。而使用ADO对象模型能够自由的控制各种操作。
（3）使用ADO Data控件在数据表记录的浏览、添加。修改上提供了简化操作，但如果数据库过大的话，就会造成效率低下。
也就是说：ＡＤＯ控件最大的优点就是操作简单，但是灵活性和功能以及效率上没有ADO对象模型好。在使用时我们应该根据具体情况而定，用ADO Data控件访问小型的数据库应用程序，而大型的数据库应用程序的开发采用ADO对象模型来实现。
只是学习了一些皮毛，不对的地方欢迎大家指正！