采用 DAO 完成对"教学管理.mdb"文件中"学生表"的学生年龄都加 1 的操作,程序空白处应填写的语句是
Sub SetAgePlus()
Dim ws As DAO.Workspace
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
___________
fd = fd + 1
rs.Update
rs.MoveNext
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
Sub SetAgePlus()
Dim ws As DAO.Workspace
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
___________
fd = fd + 1
rs.Update
rs.MoveNext
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
rs.Edit
举一反三
- 下列程序的功能是返回当前窗体的记录集: Sub GetRecNum() Dim rs As Object Set rs = 【】 MsgBox rs.RecordCount End Sub 为保证程序输出记录集(窗体记录源)的记录数,括号内应填入的语句是
- 阅读下面T-SQL语句,对变量赋值时存在错误的是( )。 A: DECLARE @rs INT,<br/>@ms MONEY SET @rs=9245 SET @ms=$3.23 B: DECLARE @rs INT,<br/>@ms MONEY SELECT @rs=9245,<br/>@ms=$3.23 C: DECLARE @rs INT, @ms MONEYSELECT @rs=9245SELECT @ms=$3.23 D: DECLARE @rs INT,<br/>@ms MONEYSET @rs=786,<br/>@ms=$3.23
- MIPS32指令系统中的（ ）指令能够将寄存器Rs中的值按位取反，并存入Rd寄存器。 A: NOT Rd,Rs B: NOR Rd,Rs,R0 C: Xor Rd,Rs,-1 D: Sub Rd,R0,Rs
- RS触发器要求状态由0 → 1其输入信号为( )。 A: RS=01 B: RS=×1 C: RS=×0 D: RS=10
- 为了使钟控RS触发器的次态为1,RS的取值应为( )。 A: RS=0 B: RS=01 C: RS=10 D: RS=11
内容
- 0
LCD1602写命令时() A: RW=0；RS=0 B: RW=0；RS=1 C: RW=1；RS=0 D: RW=1；RS=1
- 1
【单选题】RS—232C 的机械特性规定使用的连接器类型为__________。 A. DB — 15 连接器 B. DB — 25 连接器 C. DB —20 连接器 D. RJ— 45 连接器
- 2
基本RS触发器中,不允许的输入是 A: RS=00 B: RS=01 C: RS=10 D: RS=11
- 3
同步RS触发器约束方程为（ ）。 A: RS=1 B: RS=0 C: 不确定
- 4
RS触发器的约束条件为（） A: RS =1 B: R+S=1 C: R+S=0 D: RS=0