2. 计算机
  3. 下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白的地方填写适当的语句，使程序实现所需的功能： Private Sub SetAgePlus1_Click() Dim db As DAO.Databas

下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白的地方填写适当的语句，使程序实现所需的功能： Private Sub SetAgePlus1_Click() Dim db As DAO.Databas

admin2009-08-15  52
问题 下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白的地方填写适当的语句，使程序实现所需的功能：
    Private Sub SetAgePlus1_Click()
       Dim db As DAO.Database
       Dim rs As DAO.Recordset
       Dim fd As DAO.Field
       Set db = CurrentDb()
       set rs = db.OpenRecordset("学生表")
       Set fd= rs.Fields("年龄")
       Do While Not rs.EOF
           rs.Edit
           fd =【  】
           rs.Update
            【  】
       Loop
       rs.Close
       db.Close
       Set rs = Nothing
       Set db = Nothing
   End Sub
选项
答案fd+l rs.MoveNext或call rs.MoveNext
解析 下面对DAO部分对象进行说明：
Database对象：表示操作的数据库对象。
RecordSet对象：表示数据库操作返回的记录集。
Field对象：表示记录集中的字段数据信息。
EOF函数：指示当前记录位置位于Recordset对象的最后一个记录之后。属性返回布尔型值，本题要求将当前数据库文件中“学生表”的学生“年龄”都加1。
空1：对“年龄”加1，因此横线处应填入fd+1；
空2：当遍历完一个记录后，记录指针移向下一条，因此横线处应填入rs.MoveNext。
转载请注明原文地址:https://www.kaotiyun.com/show/kEwp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)