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-06-28  33
问题 子过程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．OpenstrSQL，cn，adOpenDynamic，adLockOptimistic，adCmdText
Setfd=rs．Fields("工龄")
DoWhileNotrs．EOF
【  】
rs．Update
rs．MoveNext
Loop
rs．Close
cn．Close
Set rs=Nothing
Set cn=Nothing
End Sub
程序空白处【    】应该填写的语句是
选项 A、fd=fd+1
B、rs=rs+1
C、工龄=工龄+1
D、rs．fd=rs．fd+1
答案A
解析 程序中“Do While Not rS．EOF”中“rs．EOF”表示文件记录是否是该查询结果集的最后一条记录，如果是，则返回真，如果不是，则返回假。“Set fd=rs．Fields("工龄")”语句为设置“年龄”字段的引用，本题中需要对年龄字段值加1，所以程序空白处应该填上“fd=fd+1”，所以选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/C30p777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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