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

admin2021-09-06  26

问题 子过程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
程序空白处【  】应该填写的语句是

选项 A、fd = fd + 1
B、rs = rs + 1
C、工龄 = 工龄 + 1
D、rs.fd = rs.fd + 1

答案A

解析 fd是记录集的属性字段"工龄"集合,该题是对工龄进行操作,所以是对fd值进行修改。因此,本题应选择A选项。
转载请注明原文地址:https://jikaoti.com/ti/qW90FFFM
0

最新回复(0)