VB中基于ADO的数据库访问

VB中常用的数据库访问接口有三种,即DAORDOADO三种对象模式。三种模式的具体解释见上篇文章:

DAO/RDO/ADO,ODBC,OLEDB之间的关系

本篇文章我们重点介绍一下ADO的应用。

一:ADO的简介

ADOActiveX Data Object)是由微软公司开发的最新的数据库访问接口技术,因为ADO技术对OLEDBObject Link and Embedding DataBase)进行了封装并实现了OLEDB所有的功能,所以ADO通过OLEDB可以访问任何类型的数据源,并且减少了编程量。ADO访问数据库的体系可以概括为:

计算机生成了可选文字: ADO、OLEDB、数据库十·应用程序十

二:基本流程:

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连接数据库的大概步骤,而实际应用时应根据具体情况灵活应用,有时可能只需执行部分步骤即可达到要求。

三:具体方法

计算机生成了可选文字: 三个独立主要对象和四个依赖于独立对象的非独立对象集合,他们的关系:圃矿”。对象模型Connection(连接对象)Command(命令对象)Recordset(记录集对象)Field(字段对象)parameter(参数对象)propertv(属性对象)Error(错误对象)才,了了z返回或者设置空间的数据源饭基于“”。的数据库访问,一Oat日SOUrCe返回或设置控件使用的数据源中的特定数据集(使用与多个数据集)OataMenberADOData控件返回或设置绑定控件使用的特定字段一OataField设置从数据源获得数据时的自动化格式OataFOrnlat

VB中,使用ADO访问数据库主要有两种方式:一种是使用ADO Date控件,通过对控件的绑定来访问数据库中的数据。一种是使用ADO对象模型,即编程访问方式(上面的举得例子就是这种方式)

1.使用ADO Data控件

可以快速建立数据绑定控件和数据提供者之间的连接。

在实现数据访问时,只需设置好ADO Data控件的数据相关的属性,无需编写程序代码或者只需少量的代码就可以实现数据访问,同时也可以结合DataGrid控件来实现数据的显示和修改。

具体步骤不在呈现!

2.使用ADO对象模型访问数据库

如上图,ADO对象模型共包括七个对象,三个主要对象和四个依赖于主要对象的对象集合,他们的关系可以概括为:

计算机生成了可选文字: C',n'Ic'tl',nl二fr',fsl"r',p'rtl心%L'omn1a:l‘盆l"Jf舀m亡ICrSI'l。,l、‘rtIc、kc‘。、rdcdI:IcldsPr.,伴rll七sPr.,PCrll七,

下面我们举一个简单的例子,访问数据库并执行一个简单的查询命令:

声明变量:

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对象模型好。在使用时我们应该根据具体情况而定,用ADO Data控件访问小型的数据库应用程序,而大型的数据库应用程序的开发采用ADO对象模型来实现。

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

  • 3
    点赞
  • 9
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值