2. 计算机
  3. 在“管理系统．accdb”文件中有“职工表”，采用ADO，将表中所有女职工的退休年龄加5，程序如下： Sub SetAgePlus() Dim cn As New ADODB．Connection’连接对象 Dim rs As Ne

在“管理系统．accdb”文件中有“职工表”，采用ADO，将表中所有女职工的退休年龄加5，程序如下： Sub SetAgePlus() Dim cn As New ADODB．Connection’连接对象 Dim rs As Ne

admin2021-06-03  84
问题 在“管理系统．accdb”文件中有“职工表”，采用ADO，将表中所有女职工的退休年龄加5，程序如下：
    Sub SetAgePlus()
    Dim cn As New ADODB．Connection’连接对象
    Dim rs As New ADODB．Recordset’记录集对象
    Dim fd As ADODB．Field’字段对象
    Dim strConnect As String’连接字符串
    Dim strSQL As String’查询字符串
    Set cn=CurrentProject．Connection
    strSQL=’’Select退休年龄from职工表where性别=’女’’’
    rs．Open strSQL，cn，adOpenDynamic，adLockOptimistic，adCmdText
    Set fd=rs．Fields(’’退休年龄’’)
    Do While Not rs．EOF
    fd=fd+5
    【    】
    rs．MoveNext
    Loop
    rs．Close
    cn．Close
    Set rs=Nothing
    Set cn=Nothing
    End Sub
    程序【    】处应填写的是(    )。
选项 A、rs．Edit
B、rs．Update
C、Edit
D、Update
答案B
解析 程序中“Do While Not rs．EOF”中“rs．EOF”表示文件记录是否是该查询结果集的最后一条记录，如果是，则返回真，如果不是，则返回假。“rs．Edit”表示该结果集处于编辑状态“rs．Update”表示将上面的字段数据操作进行更新，只有执行了该更新操作，结果集中的数据才会被修改“rs．MoveNext”表示从结果集的当前记录移动到下一条记录上。“rs．Update”是SQL语句中用来更新查询的关键字。
    综上所述，故应选择B选项。
转载请注明原文地址:https://www.kaotiyun.com/show/OdSp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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