子过程Plus完成对当前库中“学生表”的年龄字段都加1的操作。 Sub Plus() Dim WS As DAO.Workspace Dim db As DAO.Database Dim rs As DAO.Recordse

admin2017-10-24  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 Not rs.EOF
    rs.Edit
    fd=td+1
    rs.Update
    []
    Loop
    rs.Close
    db.Close
    Set rs=Nothing
    Set db=Nothing
    End Sub
    程序空白处[]应该填写的语句是

选项 A、rs.MoveNext
B、cn.MoveNext
C、db.MoveNext
D、fd.MoveNext

答案A

解析 本题考查的是如何使用ADO数据库技术操作数据库。其中,RecordSet对象rs是用来表示来自基本表或命令执行结果的记录集。rs更新完一条记录之后,需要使指针往后移动下一个记录上(注:MoveNext,移动到下一个记录的位置),所以应选择选项A。
转载请注明原文地址:https://jikaoti.com/ti/oq10FFFM
0

随机试题
最新回复(0)