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

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

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

二级Access

NCRE全国计算机二级

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