首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
教师管理数据库有数据表"teacher",包括"编号"、"姓名"、"性别"和"职称"四个字段。下面程序的功能是:通过窗体向teacher表中添加教师记录。对应"编号"、"姓名"、"性别"和"职称"的4个文本框的名称分别为:tNo、tName、tSex和tT
教师管理数据库有数据表"teacher",包括"编号"、"姓名"、"性别"和"职称"四个字段。下面程序的功能是:通过窗体向teacher表中添加教师记录。对应"编号"、"姓名"、"性别"和"职称"的4个文本框的名称分别为:tNo、tName、tSex和tT
admin
2015-07-01
52
问题
教师管理数据库有数据表"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://jikaoti.com/ti/2YV0FFFM
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
以下不是控件的类型的是
下列关于索引的说法,错误的一项是()。
VBA中不能进行错误处理的语句结构是______.
以下关于主关键字的说法,错误的是______.
窗口事件是指操作窗口时所引发的事件,下列不属于窗口事件的是______.
使用向导创建交叉查询的数据源是()。
从字符串S("abcdefg")中返回子串B("cd")的正确表达式是______。
在下述关于数据库系统的叙述中,正确的是______.
在最坏情况下,堆排序需要比较的次数为【】。
已知程序段:s=0Fori=1To10Step2s=s+1i=i*2Nexti当循环结束后,变量i的值为______,变量s的值为______。
随机试题
慢性浅表性胃炎的临床表现哪项是错误的
作出罚款决定的行政机关应当与收缴罚款的机构分离。
在疾病过程中,出现中性粒细胞核象右移常提示
按照安装和调试的工作顺序和质量形成时间,监理工程师的工作分( )几个阶段。
物业公共建筑和共用设施属于物业管理区域内业主所有,所以()。
( )是公安工作贯彻群众路线的重要方面,是公安机关执法思想的核心。
什么是金融危机?金融危机通过什么渠道扩散?金融危机的危害有哪些?怎样避免金融危机的发生?
Languageusestrategiesarementaloperationsorprocessesthatlearnersunconsciouslyselectandapplywhenattemptingto【M
Marriageis,formanypeople,theirmostimportantrelationship,thesourceofmuchhappiness,and,forsome,evenaddsextraye
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹
最新回复
(
0
)