2. 计算机
  3. 下列子过程实现对"教师表"中的基本工资涨 10% 的操作。 Sub GongZi( ) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset

下列子过程实现对"教师表"中的基本工资涨 10% 的操作。 Sub GongZi( ) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset

admin2020-09-01  55
问题 下列子过程实现对"教师表"中的基本工资涨 10% 的操作。
Sub GongZi( )
    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.1
B、rs = rs * 1.1
C、基本工资 = 基本工资 * 1.1
D、rs.fd = rs.fd * 1.1
答案A
解析 根据题意，要实现"教师表"中的基本工资涨 10%，只要把基本工资取出来，再乘以1.1，然后写回数据库即可。Sql语句strSQL将"教师表"中的"基本工资"字段查询出来放在rs集合中并将字段值赋给fd变量。通过Do While循环操作将rs结果集中的所有元素遍历一边，并更新rs结果集。因此程序空白处应填入"fd*1.1"，其后的rs.Update即可将更新后的数据保存到数据库，因此选择A选项。
转载请注明原文地址:https://www.kaotiyun.com/show/Egcp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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