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

admin2015-07-01  35

问题 子过程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、rs.MovePrevious
C、rs.MoveFirst
D、rs.MoveLast

答案A

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

最新回复(0)