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对象模型来实现。

只是学习了一些皮毛，不对的地方欢迎大家指正！