2. 计算机
  3. 下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白处填写适当的语句，使程序实现所需的功能。 Private sub SetAgePluS1_Click()Dim db As Dao．Database Dim rs As Da

下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白处填写适当的语句，使程序实现所需的功能。 Private sub SetAgePluS1_Click()Dim db As Dao．Database Dim rs As Da

admin2013-01-07  43
问题 下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白处填写适当的语句，使程序实现所需的功能。
Private sub SetAgePluS1_Click()Dim db As Dao．Database
Dim rs As Dao．Recordset
Dim fd As Dao．Field
Set db=CurrentDb()
Set rs=-db．OpenRecordset(”学生表”)
Set fd=rs．Fields("年龄")
Do While Not rs．EOF
rs．Edit
fd=__________
rs．Update
_________
Loop
rs．Close
db．Close
Set rs=Nothing
Set db=Nothing
End Sub
选项
答案fd+1 rs．MoveNext
解析 本题考查程序设计和连接对象使用的综合知识。在本题中首先定义了连接对象，由于fd这个变量实际上是当前记录“年龄”这个字段的值，在循环内应该使得fd自加1，所以在第一个空白处应该填入fd+1；由于循环要保证修改数据表内每一条记录，当打开一个数据表时当前记录为第一条记录，随后应该在循环中移动当前记录指针来遍历整个数据表，rs是当前打开的数据表，数据表的MoveNext方法可以使当前记录指针下移一条记录，所以在第二个空白处应该填入rs．MoveNext。
转载请注明原文地址:https://jikaoti.com/ti/7zw0FFFM
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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