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

admin2018-12-22  32

问题 子过程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
    ca.Close
    Set rs=Nothing
    Set cn=Nothing
    End Sub
    程序中    内应填写的语句是

选项 A、Notrs.EOF
B、rs.EOF
C、Notcn.EOF
D、cn.EOF

答案A

解析 EOF函数的作用是判断是否到达记录的结尾,在到达结尾前,该函数的返回值都是False,本题需要对当前库中“教师表”的工龄字段都加1,使用Do While…Loop循环结构,依次取出每条语句,条件语句用于判断记录指针是否到达记录集的结尾,如果没有,rs.EOF返回false,Not rs.Eof返回true,则继续向下移动记录指针,如果记录指针到达记录集的结尾,rs.EOF返回true,Not rs.EOF返回false,结束循环。
转载请注明原文地址:https://kaotiyun.com/show/ScMp777K
0

最新回复(0)