把修改结果保存到数据库中 ● Delete方法 删除记录集中的当前记录 Findfirst方法 自首记录开始向下查询匹配的第一条记录。 Findlast方法 自尾记录开始向上查询匹配的第一条记录。 ● FindPrevious方法 自当前记录开始向下查询匹配的第一条记录。 Find next方法 自当前记录开始向上查询匹配的第一条记录。 方法 该方法只用于对表记录集类型的记录集中的记录进行查找 ● Close方法 关闭记录集并释放系统资源。 10.32Dta控件的应用 使用Data控件和数据绑定控件来编辑、修改、增加、删除数据库中的数据的基本思路 是:在窗体上放置几个文本框,用于编辑表中各个字段的数据。 实现步骤 “添加记录”事件过程的代码: Private Sub cmdAddNew Click PromptS="请输入新记录各字段的值,然后单击数据控件上的左箭头按钮 rc= MsgBox( Prompt$, vbOK Cancel,"添加记录") If rc= vboK then 如果用户单击“确定”按钮 End lf End Sub “添加记录”事件过程的代码 Private Sub cmdDelete Click Prompt$="真的要删除记录吗? rc= MsgBox( PromptS, vbOKCancel,"删除记录") If rc= yboK then 当用户单击了"确定"按钮时 Datal Recordset. Delete 删除当前记录 Datal Recordset. moveNex End If End sub 六、作业把修改结果保存到数据库中。 ⚫ Delete 方法 删除记录集中的当前记录。 ⚫ FindFirst 方法 自首记录开始向下查询匹配的第一条记录。 ⚫ FindLast 方法 自尾记录开始向上查询匹配的第一条记录。 ⚫ FindPrevious 方法 自当前记录开始向下查询匹配的第一条记录。 ⚫ Find Next 方法 自当前记录开始向上查询匹配的第一条记录。 ⚫Seek 方法 该方法只用于对表记录集类型的记录集中的记录进行查找。 ⚫ Close 方法 关闭记录集并释放系统资源。 10.3.2 Data 控件的应用 使用 Data 控件和数据绑定控件来编辑、修改、增加、删除数据库中的数据的基本思路 是：在窗体上放置几个文本框，用于编辑表中各个字段的数据。 实现步骤 “添加记录”事件过程的代码： Private Sub cmdAddNew_Click() …… Prompt$ = "请输入新记录各字段的值，然后单击数据控件上的左箭头按钮" rc = MsgBox(Prompt$, vbOKCancel, "添加记录") If rc = vbOK Then '如果用户单击“确定”按钮 Data1.Recordset.AddNew txtStNo.SetFocus End If …… End Sub “添加记录”事件过程的代码： Private Sub cmdDelete_Click() …… Prompt$ = "真的要删除记录吗？" rc = MsgBox(Prompt$, vbOKCancel, "删除记录") If rc = vbOK Then '当用户单击了"确定"按钮时 Data1.Recordset.Delete '删除当前记录 Data1.Recordset.MoveNext End If …… End Sub 六、作业