首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
教师管理数据库有数据表"teacher",包括"编号"、"姓名"、"性别"和"职称"四个字段。下面程序的功能是:通过窗体向teacher表中添加教师记录。对应"编号"、"姓名"、"性别"和"职称"的4个文本框的名称分别为:tNo、tName、tSex和tT
教师管理数据库有数据表"teacher",包括"编号"、"姓名"、"性别"和"职称"四个字段。下面程序的功能是:通过窗体向teacher表中添加教师记录。对应"编号"、"姓名"、"性别"和"职称"的4个文本框的名称分别为:tNo、tName、tSex和tT
admin
2021-04-27
75
问题
教师管理数据库有数据表"teacher",包括"编号"、"姓名"、"性别"和"职称"四个字段。下面程序的功能是:通过窗体向teacher表中添加教师记录。对应"编号"、"姓名"、"性别"和"职称"的4个文本框的名称分别为:tNo、tName、tSex和tTitles。当单击窗体上的"增加"命令按钮(名称为Command1)时,首先判断编号是否重复,如果不重复,则向"teacher"表中添加教师记录;如果编号重复,则给出提示信息。
有关代码如下:
Private ADOcn As New ADODB.Connection
Private Sub Form_Load()
’打开窗口时,连接Access本地数据库
Set ADOcn =
End Sub
Private Sub Command0_Click()
’追加教师记录
Dim strSQL As String
Dim ADOcmd As New ADODB.Command
Dim ADOrs As New ADODB.Recordset
Set ADOrs.ActiveConnection = ADOcn
ADOrs.Open "Select 编号 From teacher Where 编号=’" + tNo + "’"
If Not ADOrs.EOF Then
MsgBox "你输入的编号已存在,不能新增加!"
Else
ADOcmd.ActiveConnection = ADOcn
strSQL = "Insert Into teacher(编号,姓名,性别,职称)"
strSQL = strSQL + "Values(’" + tNo + "’,’" + tname + "’,’" + tsex + "’,’" + ttitles + "’)"
ADOcmd.CommandText = strSQL
ADOcmd.Execute
MsgBox "添加成功,请继续!"
End If
ADOrs.Close
Set ADOrs = Nothing
End Sub
按照功能要求,在横线上应填写的是( )。
选项
A、CurrentDB
B、CurrentDB.Connention
C、CurrentProject
D、CurrentProject.Connection
答案
D
解析
由于变量ADOcn定义为ADODB连接对象,因此,当初始化为连接当前数据库时要使用Set ADOcn=CurrentProject.Connection。因为CurrentDb是DAO.Database的对象,而CurrentProject才是适用于ADO.Connection的对象。
转载请注明原文地址:https://kaotiyun.com/show/UgSp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在关系模式A(S,SN,D)和B(D,CN,NM)中,关系A的主键是S,关系B的主键是D,则属性D在关系A中称为
某系统结构图如下图所示(n≥5),该系统结构图的最大扇出数是
软件生存周期中,解决软件“怎么做”的阶段是
在快速排序法中,每经过一次数据交换(或移动)后
定义学生、教师和课程的关系模式S(S#,Sn,Sd,Dc,Sa)(其属性分别为学号、姓名、所在系、所在系的系主任、年龄);C(C#,Cn,P#})(其属性分别为课程号、课程名、先修课);SC(S#,C#,G)(其属性分别为学号、课程号和成绩)。包含对非主属
在定义表中字段属性时,对要求输入相对固定格式的数据,例如电话号码010-65971234,应该定义该字段的
在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码:PrivateSubCommand1Click()m=3.14n=Len(Str$(m)+Space(3))Me!Text1=nE
在窗体中抬起鼠标按钮,触发的事件是
InputBox函数的返回值类型是
将一个数转换成相应字符串的函数是
随机试题
患者,女性,48岁。近2年来月经周期紊乱,经期长短不一,经量时多时少。诊断性刮宫示子宫内膜简单型增生过长,诊断为围绝经期无排卵性功血。针对该患者的治疗措施,不妥的是
A.黄芩、蔓荆子B.柴胡、川芎C.吴茱萸、藁本D.葛根、白芷E.羌活、川芎太阳经的引经药为
A.小婴儿低热,突然憋喘,肺部有明显哮喘音B.急起稽留高热,咳嗽喘憋,面色灰白,早期肺部体征不明显C.热型不定,刺激性咳嗽较突出,肺部X线病灶呈游走性D.弛张高热,中毒症状明显,皮肤可见猩红热样皮疹,肺部体征出现早E.发热不规则,咳嗽,无气促或发绀
可复性牙髓炎选用的盖髓剂是A.氢氧化钙B.抗生素+激素C.玻璃离子粘固粉D.聚羟酸锌粘固粉E.氧化锌丁香油糊剂
下列房产中,可以免征房产税的有()。
甲公司是增值税一般纳税人,适用增值税税率为17%,发生的有关债务重组经济业务如下:(1)2016年1月1日与丙银行协商并达成协议,将丙银行于2015年1月1日贷给甲公司的3年期,年利率为9%,本金为500万元的贷款进行债务重组,丙银行对该项贷款未计提减值
中国人民解放军军歌是()。
某班同学在一次测验中,全班平均分为75分,女生的平均成绩为84分,这比男生的平均成绩高20%,全班人数可求.(1)男生比女生多80%,女生得分之和为1200多分(2)男生共有27%人
销售库中有"产品表"(产品编码,产品名称,单价),另有"新品表"(产品编码,产品名称,单价)。根据产品编码,一件产品只在"新品表"中出现,则要将该产品追加到"产品表"中;如果一件产品在"产品表"和"新品表"中同时出现,则用"新品表"中的单价修改"产品表"中
ExchangeRates:ABriefHistoryofExchangeRatesForcenturies,thecurrenciesoftheworldwerebackedbygold.Thatis,a
最新回复
(
0
)