九乡新闻网西安暴雨天空惊现龙:VB通过DAO访问Access数据库2
来源：百度文库 编辑：九乡新闻网 时间：2024/04/27 14:03:15
VB通过DAO访问Access数据库
作者: jay_0218, 出处:博客, 责任编辑: valen, 2010-09-26 07:48DAO就是Database Access Object，数据库访问对象的英文缩写。在VB中提供了两种与Jet数据库引擎接口的方法：Data控件和数据访问对象(DAO)……
Openrecordset 方法
Openrecordset方法用来创建一个新的recordset对象，语法为：
Set recordset 对象变量=数据库变量.openrecordset(来源，种类)
Vb所提供的recordset对象有5种，分别为：表(table)、动态集(dynaset)、快照集(snapshot)、动态(dynamic)、正向(forward-only)，其中经常用的时动态集(dynaset)，它实际上是引用一个或多个表种数据记录的集合，是功能最强的数据记录集合类型
Openrecordset 方法
Set rs = db.OpenRecordset ( " select * from 表名 " )
Set rs = db.OpenRecordset ( “ select * from 表名 ”，dbopendynaset )
Fields集合
Fields集合包括结果集合全部 Field对象，这些 Field对象引用方法为： RS.Fields(I)，其中 I是该 Field对象在中的位置序号，从 0开始计数, RS.Fields(0)表示你的数据库的第一个字段，如：
RS.Fields(I)=”111”
使用数据库
当打开数据库，建立Recordset 记录集后，便可浏览、删除、添加、查找数据库中的内容
使text显示数据如下：
Text1.caption=rs.fields(0)
Text1(I).caption=rs.fields(I)
Recordcount 属性
Recordcount 属性用来记录目前数据记录的数量，如判断数据库是否为空：
以下是代码片段：
If rs.recordcount > 0 then
End if
删除记录
以下是代码片段：
Private Sub cmd_del_Click()
On Error GoTo handle
Dim msg as string msg = "是否要删除记录"& Chr$(10) msg = msg & label(0) ′把删除记录的代号加入msg中
If Msgbox(msg , 17 , "删除记录") <> 1 Then Exit sub rs.delete rs.Movenext
If rs.EOF = True Then
rs.MovePrevious
End if
删除记录(二)
以下是代码片段：
for I = 0 to 11 label(I).caption = rs.Fields(I) & "" next Exit Sub
handle: MsgBox "该记录无法删除!!!" End Sub
On error goto 语法
目的是为了程序运行时，一旦发生错误，即可通过该程序代码，将程序运行流程切换到适当位置，进行适当处理，避免死机
On error goto 的程序代码编写位置，必须在发生错误的程序代码之前，因此，常常将它写在程序或某个程序功能模块的最前面