首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
教师管理数据库有数据表“teacher”,包括“编号”、“姓名”、“性别”和“职称”四个字段。下面程序的功能是:通过窗体向teacher表中添加教师记录。对应“编号”、“姓名”、“性别”和“职称”的4个文本框的名称分别为:tNo、tName、tSex和tT
教师管理数据库有数据表“teacher”,包括“编号”、“姓名”、“性别”和“职称”四个字段。下面程序的功能是:通过窗体向teacher表中添加教师记录。对应“编号”、“姓名”、“性别”和“职称”的4个文本框的名称分别为:tNo、tName、tSex和tT
admin
2021-09-06
57
问题
教师管理数据库有数据表“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 CommandO_Click()
’追加教师记录
Dim strSQL As String
Dim ADOcmd As New ADODB.Command
Dim ADOm As New ADODB.Recordset
set ADOrs.ActiveConnection=ADOcn
ADOrs.Open”Select编号From teacher Where编号=”’+tNo+”川
If Not ADOrs.EOF”Fhen
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.Cormention
C、CurrentProject
D、CurrentProject.Connection
答案
D
解析
由于变量ADOcn定义为ADODB连接对象,因此,当初始化为连接当前数据库时要使用Set ADOcn=CurrentProject.Connectiono因为CurrentDb是DAO.Database的对象,而CurrentProject才是适用于ADO.Connection的对象。
转载请注明原文地址:https://kaotiyun.com/show/mPvp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
表中存有学生姓名、性别、班级、成绩等数据,若想统计各个班各个分数段的人数,最好的查询方式是
结构化程序设计强调
在Access中,查询的数据源可以是
下列过程的功能是:通过对象变量返回当前窗体的Recordset属性记录集引用,消息框中输出记录集的记录(即窗体记录源)个数。SubGetRecNum0DimrsAsObjectSetrs=Me.Record.set
若有两个字符串sl="12345",s2="34",执行s=Instr(s1,s2)后,s的值为()。
有三个关系R、S和T如下,则由关系R和S得到关系T的操作是()。
下列关于字段属性的叙述中,正确的是()。
下列四个选项中,不是VBA条件函数的是()。
如果要显示的记录和字段较多,并且希望可以同时浏览多条记录及方便比较相同字段,则应创建的报表类型是()。
软件需求分析阶段的工作,可以分为四个方面:需求获取、编写需求规格说明书、需求评审和()。
随机试题
晶体管的基本结构是在一块半导体上制造()距离很近的PN结。
(2010年)∫xe-2xdx等于()。(选项各式中C为任意常数)
项目施工质量工作计划的内容有()。[2014年真题]
表见代理的构成要件包括()。
请列举《合同法》中合同终止的七种情形。
案例的分析要______。
Interpersonalrelationshipsareimportantbecause______.Helpingasickneighborwithsomerepairworkisanexampleof______
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分别找
Charmistheultimateweapon,thesupremeseduction,againstwhichtherearefewdefenses.Ifyou’vegotit,youneedalmostnot
GoodWritingEducatorsinEnglish-speakingcountrieshavedevelopedasetofbasiccharacteristicsofgoodEnglishwriting—
最新回复
(
0
)