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

admin2021-06-03  26

问题 要将“职工管理.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循环对记录集中的记录进行遍历,对年龄值加1后,使用rs.update语句对记录集进行更新并保存年龄的新值,最后使用rs.movenext语句将记录集指针向下移动一次,指向下一条记录,判断循环是否继续执行,故A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/Uovp777K
0

最新回复(0)