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

admin2019-02-19  586

问题 子过程Plus完成对当前库中“教师表”的工龄字段都加1的操作。
Sub Plus()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fd As ADODB.Field
Dim strConnec tAs String
Dim strSQL As String
Set cn=CurrentProject.Connection
strSQL="Select工龄from教师表"
rs.Open strSQL,ca,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、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/E10p777K
0

最新回复(0)