首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数据库的“职工基本情况表”有“姓名”和“职称”等字段,要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句,使程序可以完成指定的功能。 Private Sub command5_Click( ) Dim db As DAO.Dat
数据库的“职工基本情况表”有“姓名”和“职称”等字段,要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句,使程序可以完成指定的功能。 Private Sub command5_Click( ) Dim db As DAO.Dat
admin
2010-11-01
64
问题
数据库的“职工基本情况表”有“姓名”和“职称”等字段,要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句,使程序可以完成指定的功能。
Private Sub command5_Click( )
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim zc As DAO.Field
Dim Count 1 As Integer,Count2 As Integer,Count3 As Integer
Sett db=CurrentDb( )
Set rs=db.OpenRecordset(“职工基本情况表”)
Set zc=rs.Fields(“职称”)
Count1=0:Count2=0:Count3=0
Do While Not______
Select Case zc
Case Is=“教授”
Count1=Count1+1
Case Is=“副教授”
Count2=Count2+1
Case Else
Count3=Count3+1
End Select
______
Loop
rs.Close
se rs=Nothing
Set db=Nothing
MsgBox“教授:”&Count 1&“,副教授:”&Count2&“,其他:”&Count 3
End Sub
选项
答案
rs.EOF rs.MoveNext i
解析
本题考查通过DAO数据集的方式访问数据的方法,本题中逐条读取数据集rs(即职工基本情况表)中的记录,依次去依据职称判断归类并统计。所以,逐条读取记录的。Do While语句终止的条件是已处理到数据集的结尾。第二个空处为读取完一条记录后,读取数据集的下一条记录,应使用MoveNext方法。
转载请注明原文地址:https://kaotiyun.com/show/k6up777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
派生类的构造函数的成员初始化列表中,不能包含()。
以下程序段是函数返回a所指数组中最大的值所在的下标值,横线处的语句为()。fun(int*a,intn){inti,j=0,k;k=j;for(i=j;ia[k])________;return
有如下类定义:classSample{public:Sample(intx):ref(x){}//①Sample():ref
给定程序中,函数fun的功能是:根据形参i的值返回某个函数的值。当调用正确时,程序输出:x1=5.000000.x2=3.000000,x1*x1+x1*x2=40.000000。注意:部分源程序在文件BLANK1.C中。不得
在C++语言系统中,用于输入数据所使用的标识符cin是
下列选项中不属于软件生命周期开发阶段任务的是()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
有如下定义:intb[10]={1,2,3,4,5,6,7,8,9,10),*q=b;则数值为8的表达式是()。
下列选项中不属于软件生命周期开发阶段任务的是()。
随机试题
参与构成颈袢的神经是()
简述肺下界的体表投影。
证属()治法宜()
患者,女性,30岁。4小时前跌伤后昏迷5分钟,清醒后步行回家。1小时前因剧烈头痛,呕吐3次来诊。查体:昏迷,P64次/分,BP180/90mmHg,R18次/分,左瞳孔3mm,右瞳孔2mm,有上、下肢肌力3级。该患者的诊断应考虑为
下列哪一项不属于人身保险根据保障范围的不同所作的划分?()
下列属于相关部委颁布的房地产部门规章的是()等。
几年前李大爷想在树上建个10平方米的房子。在建之前,向有关部门提出申请,该部门回应说没有相关规定。后来房子建好了。最近有网友拍摄了照片放在网上.并称其违反相关规定,有关部门就此召开会议。你是与会者之一,会提出哪些建议?
下列选项中,以《长兴学记》作为学规的维新派学堂是
下列属于“名义中心”型的离岸金融市场的是()。
设A=为A*的特征向量,求A*的特征值λ及a,b,c和A对应的特征值μ.
最新回复
(
0
)