首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
已知一个名为“学生”的Access数据库,库中的表“Stud’’存储学生的基本信息,包括学号、姓名、性别和籍贯。下面程序的功能是:通过下图所示的窗体向“Stud”表中添加学生记录,对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、t
已知一个名为“学生”的Access数据库,库中的表“Stud’’存储学生的基本信息,包括学号、姓名、性别和籍贯。下面程序的功能是:通过下图所示的窗体向“Stud”表中添加学生记录,对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、t
admin
2009-03-17
27
问题
已知一个名为“学生”的Access数据库,库中的表“Stud’’存储学生的基本信息,包括学号、姓名、性别和籍贯。下面程序的功能是:通过下图所示的窗体向“Stud”表中添加学生记录,对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、tName、tSex 和 tRes。当单击窗体中的“增加”命令按钮(名称为Commandl)时,首先判断学号是否重复,如果不重复则向“stud”表中添加学生记录;如果学号重复,则给出提示信息。
请依据所要求的功能,将如下程序补充完整。
Dim ADOcn As New ADODB.Connection
Private Sub Form_Load()
打开窗口时,连接Access数据库
Set ADOcn=CurrentProject.Connection
End Sub
Private Sub Command1_Click()
’增加学生记录
Dim strSQL As String
Dim ADOrs As New ADODB.Recordset
Set ADOrs.ActiveConnection=ADOcn
ADOrs.Open"Select 学号 From Stud Where 学号="+tNO+""
If Not ADOrs.【 】Then
’如果该学号的学生记录已经存在,则显示提示信息
MsgBox "你输入的学号已存在,不能增加!"
Else
增加新学生的记录
strSQL= "Insert Into stud (学号,姓名,性别,籍贯)"
strSQL=strSQL+"Values(’"+tNO+"’,’"+tName+"’,’"+tSex+"’,’"+tRes+"’)"
ADOcn.Execute 【 】
MsgBox"添加成功,请继续!"
End If
ADOrs.Close
Set ADOrs=Nothing
End Sub
选项
答案
EOF strSQL
解析
EOF指示当前记录位置位于Recordset对象的最后一个记录之后。属性返回布尔型值。使用BOF和EOF属性可确定Recordset对象是否包含记录,或者从一个记录移动到另一个记录时是否超出Recordset对象的限制。如果EOF属性为True,则没有当前记录。执行IF语句如果表中已有相同学号的记录,则显示“你输入的学号已存在,不能增加!”如果没有则向表中添加录入的记录s仕SQL。
转载请注明原文地址:https://kaotiyun.com/show/n85p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
使用VC6打开考生文件夹下的源程序文件modi3.cpp。其中定义的类并不完整,按要求完成下列操作,将类的定义补充完整。完成以下功能:(1)完成类Rect的构造函数,实现对变量left、fight、top、bottom的初始化,缺省值都为0,请在注释∥*
有如下类定义:classFather{//基类public:Father(strings):name(s){}private:stri
请使用VC6或使用【答题】菜单打开考生文件夹proj3下的工程proj3,其中声明的CDeepCopy是一个用于表示矩阵的类。请编写这个类的赋值运算符成员函数operator,以实现深层复制。要求:补充编制的内容写在“//*******
下列给定程序中,函数fun的功能是:将S所指字符串中最后一次出现的与t1所指字符串相同的子串替换成t2所指字符串,所形成的新串放在w所指的数组中。要求t1和t2所指字符串的长度相同。例如,当s所指字符串中的内容为“abcdab.fabc”,t1所
下列有关继承和派生的叙述中,正确的是()。
使用VC6打开考生文件夹下的源程序文件modi3.cpp,阅读下列程序说明和代码,功能如下:从屏幕输入数字,然后由大到小插入指定的链中。当输入0时,表示输出的数据已经输入完成,然后把数据打印到屏幕,然后释放内存。其中定义的类并不完整,按
若有函数调用"fun(x*y,3,max(a,b,c))",则fun的实参个数为
给定程序MODll.c中,fun函数的功能是:在任意给定的N个正整数中,从左到右依次逐个取三个数作为一组,按值大小找出该组数的中值,用该中值替换与该组数对应的原三个数中的中间位置的数。处理后原数列中首尾2个数不变。处理后数列在主函数中输出。例如,有10个正
if语句的语法格式可描述为:格式1:if()或格式2:if()else关于上面的语法格式,下列表述中错误的是()。
在E—R图中,用来表示实体联系的图形是()。
随机试题
已知函数f(x)=.试问方程f(x)=x在区间(0,+∞)内有几个实根?
肝棘球蚴病的影像表现错误的是
男性,55岁。急性心肌梗死4周,今晨再发胸痛,持续8小时不缓解,遂来急诊。查体:BP100/60mmHg,心率95次/分,心肺检查无异常,心电图:I、aVL导联ST段弓背向上抬高。血清肌钙蛋白升高。该患者胸痛最可能的原因是
女,55岁。双腕,双手近段指尖关节、掌指关节肿痛3年,晨僵1小时。查体:双腕、双手2~4掌指关节及3~4近端指间关节肿胀,压痛,ANA(-)。患者病变的基本特征是
设f(x)=x2+ax2+bx在x=1处有极小值-2,则必()。
根据1998年11月14日辛央金融工作会议的决定,在()设立中国人民银行总行营业管理部。
Ifyouoftenfeeltiredandthedoctorcan’tfindanythingwrongwithyou,youmaybeinastateofsub-health(亚健康).Subhealthi
下列哪个具体行政行为不在行政复议的范围内?()
规范,是指人们在特定环境下被要求如何行动、如何思维、如何体验的期望,是一种相对固定的行为表现。根据以上的定义,下面哪种行为体现了规范?( )
某二叉树的中序遍历序列为CBADE,后序遍历序列为CBADE,则前序遍历序列为
最新回复
(
0
)