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

admin2018-12-05  24

问题 子过程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
fd=fd+1
rs.Updte
【    】
Loop
rs.Close
ca.Close
Set rs=Nothing
Set cn=Nothing
End Sub
程序空白处【    】应该填写的语句是

选项 A、rs.MoveNext
B、cn.MoveNext
C、rs.Next
D、cn.Next

答案A

解析 本题考查的是如何使用ADO’数据库技术操作数据库。其中,RecordSet对象rs是用来表示来自基本表或命令执行结果的记录集。rs更新完一条记录之后,需要使指针往后移动下一个记录上(注:MoveNext,移动到下一个记录的位置)。因此本题应选择选项A。
转载请注明原文地址:https://jikaoti.com/ti/a110FFFM
0

最新回复(0)