单选题 要将“职工管理.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
【答案解析】解析:程序中“Do while Not rs.EOF”中“rs.EOF”表示文件记录是否是该查询结果集的最后一条记录,如果是,则返回真,如果不是,则返回假。“rs.Edit”表示该结果集处于编辑状态“rs.Update”表示将上面的字段数据操作进行更新,只有执行了该更新操作,结果集中的数据才会被修改“rs.MoveNext”表示从结果集的当前记录移动到下一条记录上。“rs.Update”是SQL语句中用来更新查询的关键字,综上所述,故应选择A选项