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

admin2015-07-01  31

问题 子过程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 Not rs.EOF
        fd = fd +1
        rs.Update
        【     】
    Loop
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub
程序空白处【   】应该填写的语句是

选项 A、rs.MoveNext
B、cn.MoveNext
C、rs.Next
D、cn.Next

答案A

解析 本题考查的是使用ADO数据库技术操作数据库。选项中RecordSet对象rs是用来表示来自基本表或命令执行结果的记录集。当rs更新完一条记录之后,需要使指针往后移动到下一个记录(注:MoveNext,移动到下一个记录的位置)。因此,本题应选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/Y6gp777K
0

最新回复(0)