过程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
【 】
rs.Update
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
程序空白处【 】应该填写的语句是( )

  • Afd=fd+1
  • Brs=rs+1
  • C工龄=工龄+1
  • Drs.fd=rs.fd+1
参考答案: A
解题思路: 使用ADO技术将"工龄"字段赋给变量fd,从而实现将教师表中工龄字段都加1的操作。