要将“职工管理.accdb”文件“职工情况”表中女职工的“退休年限”延长5年,程序【】处应填写的是( )。 Sub AgePlus() Dim cn As New ADODB.Connection’连接对象 Dim rs As

admin2017-09-23  41

问题 要将“职工管理.accdb”文件“职工情况”表中女职工的“退休年限”延长5年,程序【】处应填写的是(    )。
    Sub AgePlus()
    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.Update
B、rs.Edit
C、Edit
D、Update

答案A

解析 程序中“Do while Not rs.EOF”中“rs.EOF”表示文件记录是否是该查询结果集的最后一条记录,如果是,则返回真,如果不是,则返回假。“rs.Edit”表示该结果集处于编辑状态“rs.Update”表示将上面的字段数据操作进行更新,只有执行了该更新操作,结果集中的数据才会被修改“rs.MoveNext”表示从结果集的当前记录移动到下一条记录上。“rs.Update”是SQL语句中用来更新查询的关键字,综上所述,故应选择A选项
转载请注明原文地址:https://jikaoti.com/ti/r3XiFFFM
0

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