单选题 教师管理数据库有数据表“teacher”,包括“编号”“姓名”“性别”和“职称”4个字段。下面程序的功能是:通过窗体向“teacher”表中添加教师记录。对应“编号”“姓名”“性别”和“职称”的4个文本框的名称分别为:tNo.tName.tSex和tTitles。当单击窗体上的“增加”命令按钮(名称为Commandl)时,首先判断编号是否重复,如果不重复,则向 “teacher”表中添加教师记录;如果编号重复,则给出提示信息。有关代码如下:Private ADOcn As NewADODB.ConnectionPrivate Sub Form_Load()'打开窗口时,连接Access本地数据库Set ADOcn=____End SubPrivate Sub CommandO_Click()'追加教师记录Dim strSQL As StringDim ADOcmd As New ADODB.CommandDim ADOrs As New ADODB.RecordsetSet ADOrs.ActiveConnection=ADOcnADOrs.Open"Select编号From teacher Where编号="'tNo+""'If Not ADOrs.EOFThenMsgBox"你输入的编号已存在,不能新增加!"ElseADOCmd.ActiveConnection=ADOcnStrSQL="Insertlnto teacher(编号,姓名,性别,职称)"StrSQL=StrSQL+"Values(""+tNo+"',""+tname+"',""+tsex+"',""+ttiles+"')"ADOCmd.ActiveConnection=StrSQLADOCmd.ExecuteMsgBox"添加成功,请继续"End IfADOrs.CloseSet ADOrs=NothingEnd Sub按照功能要求,在下划线上应填写的是( )。
【正确答案】 A
【答案解析】解析:由于变量ADOcn定义为ADODB连接对象,因此,当初始化为连接当前数据库时要使用SetADOcn=CurrentProject.Connection。因为CurrentDb是DAO.Database的对象,而CurrentProject才是适用于ADO.Connection的对象,故A)选项正确。