ACCESS课件(第9章模块与VBA程序设计)(数据库编程)

P301
➢ 使用命令对记录集中的记录或字段进行操作：
Do While Not rs.EOF …… rs.MoveNext
Loop
➢ 关闭记录集和数据库，并回收所占内存：
rs.Close db.Close Set rs = Nothing Set db = Nothing
举例 P301
【例1】创建一个窗体：要求单击其中的命令按钮后， 将“学生”表中Flag字段的值加1。（DAO窗体-1）
还可以将一个字段表达式赋予字段，如 rs.Fields("Flag")=Year(Date)-Year(rs.Fields("出生日期") )
举例 P301
➢ 命令按钮“退出”的Click事件代码：
rs.Close db.Close Set rs = Nothing Set db = Nothing DoCmd.Close
举例 P301
【例2】创建一个窗体。要求能在“学生信息表”中实 现记录的转移。 （DAO窗体-记录转移）
举例 P301
➢ 窗体的通用区域代码： Public ws As Workspace Public db As Database Public rs As Recordset Public fd As Field
举例 P301
➢ 窗体的“加载”（Load）事件代码：
Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase(" C:\选课管理.accdb ") Set rs = db.OpenRecordset("学生") Me.TxtXH = rs.Fields("学号") Me.TxtXM = rs.Fields("姓名") Me.TxtXB = rs.Fields("性别")
例：Set rs = db.OpenRecordSet("学生信息表" )
Close方法 关闭数据库。
语法： 数据库变量名. Close
例：db.Close
DAO中的一些重要属性和方法
P301
➢ RecordSet对象
BOF属性 当RecordSet对象建立后，系统自动会生成一个指 示器，并指向RecordSet对象中的第一条记录，该指示 器称为记录指针。记录指针可以通过Move方法移动。 当BOF属性值为True时，表示记录指针已经指到记 录集的顶部（第一条记录之前）。
P301
Seek方法 该方法也是将记录指针指向符合条件的记录。 与Find方法所不同的是：在使用Seek方法之前需 要先建立索引。通过Seek方法给出的关键字与索引 表达式的比较，将记录指针指向符合条件的记录。
（4）利用DAO访问数据库
P301
通过DAO编程实现对数据库访问时，通常按以下的 步骤进行：
在Access模块设计时要想使用DAO和各个访问 对象，首先应该增加一个对DAO库的引用。
VBE环境
【工具】菜单
【引用】命令
Microsoft DAO 3.6 Object Library Microsoft Office 14.0 Access Database Engine Object Library
语法：
工作区变量名. OpenDatabase( 数据库文件名 )
例：Set db = ws.OpenDatabase("C:\选课管理.accdb " )
DAO中的一些重要属性和方法
P301
➢ Database对象
OpenRecordSet方法 创建一个新的RecordSet对象。
语法：
数据库变量名. OpenRecordSet( 表或查询名 )
语法：
记录集变量名.Delete
例：rs.Delete
DAO中的一些重要属性和方法
P301
Move及其系列方法
当要对RecordSet对象中的某一条记录进行操作时
，必须先将记录指针指向该记录。Move方法即用于记
录指针的移动。
语法：
记录集变量名.MoveFirst
记录集变量名.MoveLast
记录集变量名.MoveNext
➢ Field(s)（字段） 表示记录集中的字段数据信息（或字段集） 。
➢ QueryDef(s)（数据库查询） 表示数据库的查询信息（集） 。
注释（3）
P301
➢ Error(s)（错误信息） 表示数据库提供程序出错时的扩展信息（集） 。
对象名的尾字符为“ s ”的那些对象是集合对象， 集合对象的下一层包含其成员。
记录集变量名.FindNext 条件表达式 记录集变量名.FindPrevious 条件表达式
注：FindNext是从当前记录开始查找表中满足条件 的下一条记录；FindPrevious 是从当前记录开始查找 表中满足条件的前一条记录。
例：rs.FindFirst 性别 = "男"
DAO中的一些重要属性和方法
记录集变量名.MovePrevious
记录集变量名.Move n
例：rs.MoveNext
rs.Move 3
rs.Move -1
DAO中的一些重要属性和方法
P301
Find方法
将记录指针指向符合条件的记录。
语法：
记录集变量名.FindFirst 条件表达式
记录集变量名.FindLast 条件表达式
➢ 创建对象变量
➢ 给对象变量赋值
➢ 通过调用对象的方法或设置属性进行操作
➢ 关闭记录集和数据库，并将其从内存中释放
利用DAO访问数据库
P301
➢ 创建对象变量：
Dim ws As Workspace Dim db As Database Dim rs As RecordSet Dim fd As Field
➢命令按钮“打开表”的Click事件设置为一个宏： 操作： OpenTable 参数： 学生
举例 P301
➢ 命令按钮“操作字段”的Click事件代码：
Do While Not rs.EOF rs.Edit fd = fd + 1 rs.Update rs.MoveNext
Loop 语句： fd = fd + 1 可以改为：rs.Fields( "Flag" ) = rs.Fields( "Flag" ) + 1
DAO对象变量的声明和赋值
P301
②对象变量的赋值
语法格式： Set 对象变量名 = 指定对象名
【例】
Set ws = DBEngine.Workspace(0) Set db = ws.OpenDatabase("D:\选课管理.accdb") Set rs = db.OpenRecordset("学生") Set fd = rs.fields ("学号")
➢ 给对象变量赋值：
Set ws = DBEngine.Workspaces( 0 )
Set db = ws.OpenDatabase( <数据库文件名> ) Set rs = db.OpenRecordSet( <表名/查询名> ) Set fd = rs.Field( <记录集中的字段名> )
利用DAO访问数据库
（1）DAO模型结构
DBEngine
Epace
Databases Groups Users
Database
P301
Containers QueryDefs RecordSets
Fields Field
注释（1）
P301
➢ DBEngine（数据库引擎）
三种数据库访问接口 P298
VBA主要提供了三种数据库访问接口：
➢ ODBC API（开放数据库互连应用编程接口） 实际编程很少直接进行ODBC API的访问。
➢ DAO（数据访问对象）（Data Access Objects） 提供一个访问数据库的对象模型，利用定义的一
系列的数据访问对象，实现对数据库的访问。
End Sub
（3）DAO中的一些重要属性和方法 P301
➢ Workspaces对象
用户通常使用DBEngine对象的属性自动创建一 个默认的工作区对象，引用该工作区可以使用 Workspaces( 0 )命令。
例：Set ws = DBEngine.Workspaces( 0 )
OpenDatabase属性 用来打开一个已有的数据库。
举例 P301
➢ 窗体类模块的通用区域代码： Public ws As Workspace Public db As Database Public rs As Recordset Public fd As Field
举例 P301
➢ 窗体的“加载”（Load）事件代码： Set ws = DBEngine.Workspaces( 0 ) Set db = ws.OpenDatabase("C:\选课管理.accdb" ) Set rs = db.OpenRecordset("学生") Set fd = rs.Fields("Flag")
EOF属性 当该属性值为True时，表示记录指针已经指到记录 集的底部（最后一条记录之后）。
DAO中的一些重要属性和方法
P301
RecordCount属性 返回RecordSet对象中的记录数。
AddNew方法 在打开的记录集中增加一条新记录。
语法： 记录集变量名.AddNew
例：rs.AddNew