下列过程的功能是:将当前数据库文件中“学生表”的所有学生“年龄”加1。请在程序横线处填写适当的语句,使程序实现所需的功能。 Private Sub SetAgeplus2_Click() Dim cn AS New ADOD B.Conne

admin2012-12-20  31

问题 下列过程的功能是:将当前数据库文件中“学生表”的所有学生“年龄”加1。请在程序横线处填写适当的语句,使程序实现所需的功能。
    Private Sub SetAgeplus2_Click()
    Dim cn AS New ADOD B.Connection
    Dim rs AS New ADOD B.Recordset
    Dim fd AS ADOD B.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:=__________。
        rs.Update
        rs.__________。
    Loop
    rs.Close
    cn.Close
    Set rs=Nothing
    Set cn=Nothing
End Sub

选项

答案fd+1 MoveNext。

解析 题目要求是将年龄加1,因此fd=fd+1,作为一个Do While循环,要将循环推下去,因此要填写关键词MoveNext。
转载请注明原文地址:https://jikaoti.com/ti/vaw0FFFM
0

最新回复(0)