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

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

admin2021-04-07  31
问题 采用ADO对“职工管理．accdb”文件中“职工表”的字段“退休年龄”加5。
Sub SetAgePlus()
  Dim ca 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
  strOL＝“Select退休年龄from职工表”
  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 ca＝Nothing
End Sub
程序【  】处应填写的语句是(    )。
选项 A、rs．Edit
B、rs．Update
C、Edit
D、Update
答案B
解析 程序中“Do while N0t rs．EOF”中“rs．EOF”表示文件记录是否是该查询结果集的最后一条记录，如果是，则返回真，如果不是，则返回假。“rs．Edit”表示该结果集处于编辑状态“rs．update”表示将上面的字段数据操作进行更新，只有执行了该更新操作，结果集中的数据才会被修改“rs．MoveNext”表示从结果集的当前记录移动到下一条记录上。“update”是SQL语句中用来更新查询的关键字。故选择B选项。
转载请注明原文地址:https://kaotiyun.com/show/nVSp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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