Access VBA数据库编程ADO 详细.pptVIP

7.5.3 用 ADO 记录集的 Delete 方法删除记录 [ 例 7-7] 对例 7-6 添加如下的单击窗体事件过程： Private Sub Form_Click() rsTeacher.MoveFirst Do While Not rsTeacher.EOF rsTeacher.MoveNext Loop ??獍?硯尠 待删除记录不存在！ End Sub 如果找到“高原” , 进行相关操作，然后退出过程 转 下 页 7.5.3 用 ADO 记录集的 Delete 方法删除记录 If rsTeacher! 姓名 ?尠 高原 Then ???汆条??杳潂? 是否要删除高原？ ?瘠奢獥潎? 删除确认 ) If Flag = vbYes Then 确定删除 rsTeacher.Delete ??????獍?硯尠 记录删除完毕。 rsTeacher.MoveNext 删除记录后设定新的当前记录 If rsTeacher.EOF Then rsTeacher.MoveLast Exit