第10章 Access数据库应用程序

10.1.2 记录操作
RecordSet对象封装的修改数据方法
方法名
描述
ADDNEW Delete Update
添加一个新记录，同时将记录指针 定位在那里
将数据集中记录指针当前所指的记 录删除
将当前修改的记录保存到数据库中
Refresh 重新装入数据库中的记录
Cancel
取消正在输入的信息，恢复此前数 据库状态
'第四步，在数据集中增加一行空白记录 rst.AddNew '第五步，输入数据 rst.Fields(“YHM") = "USER" rst.Fields(“MM") = "password" '第六步，保存数据 rst.Update '第七步，关闭数据库 rst.Close cn.Close End Sub
Private Sub Command0_Click() '第一步，定义相关变量 Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strsql As String '第二步，设置连接 Set cn = CurrentProject.Connection '第三步，让记录集从连接获取数据 strsql = "select * from 供应商" rst.Open strsql, cn, adOpenDynamic, adLockOptimistic, adCmdText

'第四步，定位到在数据集中第一条记录 rst.MoveFirst Do While Not rst.EOF
MsgBox rst.Fields("GYSMC") rst.MoveNext Loop '第五步，关闭数据库 rst.Close cn.Close End Sub
例题10.4 由于实行供应商的末位淘汰制，现在需要将 编号为“9”的供应商信息删除。
'第三步，让记录集从连接获取数据
strsql = "select * from 用户"
rst.Open strsql, cn, adOpenDynamic, adLockOptimistic
Open方法的四个参数：
Source,ActiveConnection,CursorType,LockType
第10章 Access数据库应用程序
Access数据库应用程序中连接数据库讲 数据作为程序的数据源，实现在程序中 访问数据库中的数据。 Micorsoft Office VBA通过Microsoft Jet数据库引擎工具来支持对数据库的访 问。
10.1 在程序中访问数据库
ActiveX数据对象—ADO(ActiveX Data Object)
'第四步，定位到在数据集中第一条记录
rst.MoveFirst
Do While Not rst.EOF
If rst.Fields("BH") = 9 Then
rst.Delete
End If
Exit do
rst.MoveNext
Loop
'第五步，关闭数据库
rst.Close
cn.Close
End Sub
方法，将记录集的记录指针向后移动一条记录 方法，将记录集的记录指针移动到最后一条记录上
例题10.3 在窗体上放置一个命令按钮，单击命令按钮 后，依次显示每个供应商名称。
Private Sub Command0_Click() '第一步，定义相关变量 Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strsql As String '第二步，设置连接 Set cn = CurrentProject.Connection '第三步，让记录集从连接获取数据 strsql ="select * from 供应商" rst.Open strsql, cn, adOpenDynamic, adLockOptimistic, adCmdText
10.2 VBA程序的调试
开发错误
语法错误 逻辑错误
错误
运行时错误
10.2.1 VBA程序运行错误处理
VBA提供On Error GoTo 语句来控制当有错误 发生时程序的处理.
一般语法格式: On Error GoTo 标号
On Error Resume Next
On Error GoTo 0
（例“简Adc题用称act户1Dea0sA”as.O1c的表c。早e使中Ds期用s当AOo版A前b和D本j记eOA包c录组Dt)括O的件，共数用连享据户接某访名数些问和据数对真库据象实库类姓，型名显。。示
Private Sub 命令0_Click() '第一步，定义相关变量 Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strsql As String '第二步，设置连接 Set cn=CurrentProject.Connection
断点：在过程的某个特定语句上设置一个位置 以中断程序的执行。断点的设置和使用贯穿在程序 调试运行的整个过程。
可以在任何可执行语句或赋值语句处设置断点， 但不能在声明语句和注释行处设置断点；不能在程 序运行时设置断点，只有在编辑程序代码或程序处 于挂起状态时才可以设置断点。
断点的设置和取消有3种方式：
10.1.3 遍历记录集中的记录
属性或方法名 EOF
移动记录指针方法
描述
属性，标志数据集的记录指针是否在文件尾
BOF
属性，标志数据集的记录指针是否在文件头
MoveFirst
方法，将记录集的记录指针移动到第一条记录上
MovePrevious 方法，将记录集的记录指针向前移动一条记录
MoveNext Movelast
Command:表示一个命 令
RecordSet:表示数据操 作返回的记录集
Field:表示记录集中的字 段数据信息
Error:表示数据提供程序 出错时的扩展信息
Error(s) Connection Command RecordSet
Field(s)
10.1.1 访问记录集中的字段
例：访问当前记录的姓名字段 xingming=RecordSet.Fields(1) xingming=RecordSet.Fields("YHM")
10.2.3 调试方法和技巧
(4)运行到光标处 运行到当前光标。方法：选择“调试”菜单中的 “运行到光标处”命令。
(5)设置下一条语句 自由设置下一步要执行的语句。方法：选择要执 行的下一条语句，单击鼠标右键，选择“设置下 一条语句”命令。
10.2.3 调试方法和技巧
2.暂停执行代码 “中断”或设置“断点”。
3.On Error GoTo 0语句 作用：关闭错误处理，继续执行后面的程序。
如果没有用On Error GoTo 语句捕捉错误，或 利用On Error GoTo 0 关闭错误处理，则在错误发 生后会出现一个对话框，显示出相应的错误代码。
10.2.2 “调试”工具栏及功能
临时的挂起称为中断模式。可以单击工具栏上 的“中断”按钮。
例题10.2 使用ADO组件连接数据库，向“用户”表添 加一条记录，用户名为“USER”，密码为 “password”。
Private Sub Command0_Click() '第一步，定义相关变量 Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strsql As String '第二步，设置连接 Set cn = CurrentProject.Connection '第三步，让记录集从连接获取数据 strsql = “select * from 用户" rst.Open strsql, cn, adOpenDynamic, adLockOptimistic, adCmdText
例题10.5 经过一段时间后，库存中的“梦洁四件套”销售了20 套，编写程序将库存表中该商品的库存数量减去20。
Private Sub Command0_Click() '第一步，定义相关变量 Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strsql As String '第二步，设置连接 Set cn = CurrentProject.Connection '第三步，让记录集从连接获取数据 strsql = "select * from 供应商" rst.Open strsql, cn, adOpenDynamic, adLockOptimistic, adCmdText
'第四步，定位到在数据集中第一条记录 rst.MoveFirst Do While Not rst.EOF
If rst.Fields(“SPMC”) = "梦洁四件套" Then
rst.Fields("KCSL") = rst.Fields("KCSL") -20
End If rst.MoveNext Loop '第五步，关闭数据库 rst.Close cn.Close End Sub
3.查看变量值 (1)在“代码窗口”中查看数据 (2)在“本地窗口”中查看数据 (3)在“监视窗口”中查看变量和表达式 (4)在“立即窗口”中查看结果