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

子过程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  613
问题 子过程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://www.kaotiyun.com/show/E10p777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)