2. 计算机
  3. 子过程Plus完成对当前库中"教师表"的工龄字段都加1的操作。 Sub Plus( ) Dim ws As DAO.Workspace Dim db As DAO.Database Dim rs As DAO.Recordset

子过程Plus完成对当前库中"教师表"的工龄字段都加1的操作。 Sub Plus( ) Dim ws As DAO.Workspace Dim db As DAO.Database Dim rs As DAO.Recordset

admin2015-07-01  56
问题 子过程Plus完成对当前库中"教师表"的工龄字段都加1的操作。
Sub Plus( )
   Dim ws As DAO.Workspace
   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 【  】
      rs.Edit
      fd = fd + 1
      rs.Update
      rs.MoveNext
   Loop
   rs.Close
   db.Close
   Set rs = Nothing
   Set db = Nothing
End Sub
程序空白处【  】应该填写的语句是
选项 A、Not rs.EOF
B、rs.EOF
C、Not db.EOF
D、db.EOF
答案A
解析 本题考查的是如何使用ADO数据库技术操作数据库。其中，RecordSet对象rs是用来表示来自基本表或命令执行结果的记录集。Do while 循环用于更记录集中的记录，EOF表示记录指针是否位于最后一条记录之后。当条件满足时，即没有到达最后一条记录时，执行循环体，满足的条件的只有A选项。因此，本题应选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/esgp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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