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

admin2015-07-01  30

问题 子过程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
0

最新回复(0)