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

admin2015-07-01  30

问题 下列子过程实现对"教师表"中的基本工资涨 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://jikaoti.com/ti/WsV0FFFM
0

最新回复(0)