2. 计算机
  3. 子过程Plus完成对当前库中“教师表”的工龄字段都加l的操作。 Sub Plus() Dim cn As New ADODB．Connection Dim rs As New ADODB．Recordset Dim fd A

子过程Plus完成对当前库中“教师表”的工龄字段都加l的操作。 Sub Plus() Dim cn As New ADODB．Connection Dim rs As New ADODB．Recordset Dim fd A

admin2017-10-24  56
问题 子过程Plus完成对当前库中“教师表”的工龄字段都加l的操作。
    Sub Plus()
    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教师表"
    rs．Open strSQL，cn，adOpenDynamic，adLockOptimistic，adCmdText
    Setfd=rs．Fields("工龄")
    Do WhileNotrs．EOF
    []
    rs．Update
    rs．MoveNext
    Loop
    rs．Close
    cn．Close
    Set rs=Nothing
    Set on=Nothing
    End Sub
    程序空白处[]应该填写的语句是
选项 A、fd=fd+1
B、rs=rs+1
C、工龄=工龄+1
D、rs．fd=rs．fd+1
答案A
解析 程序中“Do While Not rs．EOF”中“rs．EOF”表示文件记录是否是该查询结果集的最后一条记录，如果是，则返回真，如果不是，则返回假。“Set fd=rs．Fields(”工龄”)”语句为设置“年龄”字段的引用，本题中需要对年龄字段值加1，所以程序空白处应该填上“fd=fd+1”，所以选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/qhMp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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