2. 计算机
  3. 采用ADO对“职工管理．acCdb”文件中“职工表”的字段“退休年龄”加5。 Sub SetAgePlus() Dim cn As New ADODB．Connection’连接对象 Dim rs As New ADODB．Rec：ordset’记

采用ADO对“职工管理．acCdb”文件中“职工表”的字段“退休年龄”加5。 Sub SetAgePlus() Dim cn As New ADODB．Connection’连接对象 Dim rs As New ADODB．Rec：ordset’记

admin2018-06-11  72
问题 采用ADO对“职工管理．acCdb”文件中“职工表”的字段“退休年龄”加5。
Sub SetAgePlus()
  Dim cn As New ADODB．Connection’连接对象
  Dim rs As New ADODB．Rec：ordset’记录集对象
  Dim fd As ADODB．Field’字段对象
  Dim strConnect As String’连接字符串
  Dim strSQL As String’查询字符串
  Set cn=CurrentProject．Coni：tection
  strSQL="Select退休年龄from职工表"
  rs．Open slrSQL， c=n， adOpenDynainic， aclLockOptimistic， 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．Edit
B、rs．Update
C、Edit
D、Update
答案B
解析 程序中“Do While Not rs．FJOF”中“rs．EOF”表示文件记录是否是该查询结果集的最后一条记录，如果是，则返回真，如果不是，则返回假。“rs．Edit”表示该结果集处于编辑状态“rs．Update”表示将上面的字段数据操作进行更新，只有执行了该更新操作，结果集中的数据才会被修改“rs．MoveNext”表示从结果集的当前记录移动到下一条记录上。“Update”是SQL语句中用来更新查询的关键字。故选择B选项。
转载请注明原文地址:https://kaotiyun.com/show/EDMp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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