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

admin2015-07-01  36

问题 子过程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
0

最新回复(0)