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

admin2016-08-22  16

问题 要将“职工管理.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
    CH.Close
    Set rs=Nothing
    Set cn=Nothing
    End Sub

选项 A、rs.Update
B、rs.Edit
C、Edit
D、Update

答案A

解析 程序中使用Do While循环对记录集中的记录进行遍历,对年龄值加1后,使用rs.update语句对记录集进行更新并保存年龄的新值,最后使用rs.movenext语句将记录集指针向下移动一次,指向下一条记录,判断循环是否继续执行,故A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/sABD777K
0

最新回复(0)