Access数据库实用教程第8章.ppt

MoveFirst：将游标移到第1条记录。 MoveLast：将游标移到最后1条记录。 MoveNext：将游标移到下一条记录。 MovePrevious：将游标移到上一条记录。 8.7 VBA的数据库编程 * Public Sub Output() Dim MyRS As ADODB.Recordset Set MyRS = New ADODB.Recordset Dim strSQL As String strSQL = Select * From 课程 MyRS.Open strSQL, CurrentProject.AccessConnection, adOpenKeyset Do While Not MyRS.EOF Debug.Print MyRS(课程编号), MyRS(课程名称) MyRS.MoveNext Loop MyCnn.Close End Sub 下面的程序使用对象MyRS在立即窗口逐个输出“课程”表中的数据。注意这里的MyRS对象使用了当前数据库的连接。 * 插入、删除和更新记录集中的数据 8.7 VBA的数据库编程 格 式： recordset.AddNew FieldList, Values （1）AddNew方法 作用是在Recordset对象中添加一条记录 * （2）Delete方法 作用是删除Recordset对象中的一条或多条记录。 格式是： recordset.Delete AffectRecords AffectRecords 可选，表示删除数据的范围，默认值为当前记录。 （3）Update方法 作用是将Recordset对象中对当前记录的修改保存到数据库中。 8.7 VBA的数据库编程 * Public Sub Add() Dim MyRS As ADODB.Recordset Set MyRS = New ADODB.Recordset Dim strSQL As String Dim str课程编号 As String, str课程名称 As String 暂存输入的字段值 strSQL = Select * From 课程 MyRS.Open strSQL, CurrentProject.AccessConnection, adOpenKeyset, adLockOptimistic str课程编号 = Trim(InputBox(请输入课程编号:)) 输入 str课程名称 = Trim(InputBox(请输入课程名称:)) If str课程编号 And str课程名称 Then MyRS.AddNew 添加空白记录 MyRS(课程编号) = str课程编号 将已输入的数据填入记录集 MyRS(课程名称) = str课程名称 MyRS.Update 更新数据库 End If MyRS.Close End Sub 下面的程序演示了向“课程”表中添加新记录的过程 * 例8-14 修改“系统登录”窗体，使其可验证多个用户 解题思路： （1）首先应在数据库中增加一张表“管理员”，保存各个用户的用户名和口令 （2）然后修改“确定”按钮的单击事件代码。在登录时将输入的用户名和口令与表中的数据逐个比较，如果找到相同的记录，则说明该用户是合法用户，并打开“学生管理模块”窗体，否则给出提示，等待重新输入。 8.7 VBA的数据库编程 * Private Sub cmd确定_Click() Dim RS As ADODB.Recordset Dim strSQL As String Dim name As String, pass As String Set RS = New ADODB.Recordset 文本框不能为空 If IsNull(Trim(Me.txt用户名)) Or IsNull(Trim(Me.txt口令)) Then DoCmd.Beep MsgBox 用户名和口令不能为空! Else name = Trim(Me.txt用户名) pass = Trim(Me.txt口令) strSQL = Select * from 管理员 where 用户名= name and 口令= pass RS.Open strSQL, CurrentProject.AccessConnection