下列子过程的功能是:将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白的地方填写适当的语句,使程序实现所需的功能: Private Sub SetAgePlus1_Click() Dim db As DAO.Databas

admin2009-08-15  32

问题 下列子过程的功能是:将当前数据库文件中“学生表”的学生“年龄”都加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+l rs.MoveNext或call rs.MoveNext

解析 下面对DAO部分对象进行说明:
Database对象:表示操作的数据库对象。
RecordSet对象:表示数据库操作返回的记录集。
Field对象:表示记录集中的字段数据信息。
EOF函数:指示当前记录位置位于Recordset对象的最后一个记录之后。属性返回布尔型值,本题要求将当前数据库文件中“学生表”的学生“年龄”都加1。
空1:对“年龄”加1,因此横线处应填入fd+1;
空2:当遍历完一个记录后,记录指针移向下一条,因此横线处应填入rs.MoveNext。
转载请注明原文地址:https://kaotiyun.com/show/kEwp777K
0

最新回复(0)