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

子过程Plus完成对当前库中"教师表"的工龄字段都加1的操作。 Sub Plus( ) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset

admin2015-07-01  76
问题 子过程Plus完成对当前库中"教师表"的工龄字段都加1的操作。
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  ’
    Set fd = rs.Fields("工龄")
    Do While 【    】
        fd = fd + 1
        rs.Update
        rs.MoveNext
    Loop
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub
程序空白处【   】应该填写的语句是
选项 A、Not rs.EOF
B、rs.EOF
C、Not cn.EOF
D、cn.EOF
答案A
解析 本题考查的是如何使用ADO数据库技术操作数据库。其中，RecordSet对象rs是用来表示来自基本表或命令执行结果的记录集。Do while 循环用于更记录集中的记录，EOF表示记录指针是否位于最后一条记录之后。当条件满足时，即没有到达最后一条记录时，执行循环体，满足的条件的只有A选项。因此，选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/xsgp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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