首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
要将“职工管理.accdb”文件中“职工情况”表中男职工的“退休年限”字段加上5,程序【】处应填写的 语句是( )。 Sub AgePlus( ) Dim cn As New ADODB. Connection ’连接
要将“职工管理.accdb”文件中“职工情况”表中男职工的“退休年限”字段加上5,程序【】处应填写的 语句是( )。 Sub AgePlus( ) Dim cn As New ADODB. Connection ’连接
admin
2021-06-03
77
问题
要将“职工管理.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
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在软件设计中,不属于过程设计工具的是
下列叙述中正确的是()。
在报表中要输出系统的当前日期,应使用的函数是
下列选项属于栈和队列共同点的是()。
下列叙述中正确的是
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tCollect”,同时还设计出以“tCollect”为数据源的窗体对象“fCollect”。试在此基础上按照以下要求补充窗体设计:(1)将窗体“fCollect”的
子过程Plus完成对当前库中“教师表”的工龄字段都加1的操作。SubPlus()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimfdAsADODB.FieldDi
能够实现从指定记录集里检索特定字段值的函数是
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是()。
在报表设计时,如果只在报表最后一页的主体内容之后输出规定的内容,则需要设置的是
随机试题
在保证凸轮轮廓曲线的最大压力角不超过许用值的前提下,可采用较小的基圆半径。()
能从本质上反映组织成员之间分工协作关系的是()
长期无保护地接触x线的最大不良反应是
A公司向B公司采购材料,收到B公司发来的材料,B公司开出的增值税发票注明的货款300000元,增值税51000元;该材料款A公司上月已预付了货款的50%,收料后一个月开出支票补付余款。A公司在收料时,应()元。
商业银行确立贷款意向后,业务人员向客户索取的贷款申请资料中必须包括其财务报表,下列有关收集财务报表的表述中,错误的是()。
关于小道消息的说法,错误的是()。
业主委员会换届选举后,原业主委员会应当在其任期届满之日起()日内将其保管的档案资料、印章及其他属于业主大会所有的财物移交新一届业主委员会,并做好交接手续。
某位老师在上生物课的时候,总是会让学生自己动手养一些小动物、小植物等,最终的考试成绩也以学生养的东西为标准,导致一些学生非常喜欢上生物课,不再觉得生物课枯燥无味,说明该老师具有()
A、 B、 C、 A
"Tear’emapart!""Killthefool!""Murderthereferee(裁判)!"Thesearecommonremarksonemayhearatvarioussportingevent
最新回复
(
0
)