单选题 下列子过程实现对“教师表”中的基本工资涨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 en=CurrentProject.Connection
strSQL="Select 基本工资 from 教师表 "
rs.Open strSQL, cn, adOpenDynamie, adLockOptimisfc, 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
【答案解析】[解析] 根据题意,要实现“教师表”中的基本工资涨10%,只要把基本工资取出来,再乘以1.1,然后写回数据库即可。SQL语句strSQL将“教师表”中的“基本工资”字段查询出来放在rs集合中并将字段值赋给fd变量。通过Do While循环操作将rs结果集中的所有元素遍历一边,并更新rs结果集。因此程序空白处应填入“fd*1.1”,其后的rs.Update即可将更新后的数据保存到数据库。因此选择A选项。