首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
已知一个名为“学生”的Access数据库,库中的表“Stud’’存储学生的基本信息,包括学号、姓名、性别和籍贯。下面程序的功能是:通过下图所示的窗体向“Stud”表中添加学生记录,对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、t
已知一个名为“学生”的Access数据库,库中的表“Stud’’存储学生的基本信息,包括学号、姓名、性别和籍贯。下面程序的功能是:通过下图所示的窗体向“Stud”表中添加学生记录,对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、t
admin
2009-03-17
59
问题
已知一个名为“学生”的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全国计算机二级
相关试题推荐
有如下类及函数的定义:classWow{intk;public:Wow(intn=0):k(n){}intincre(){return++k;}
有如下类定义:classAA{inta;public:AA(intn=0):a(n){}};classBB:publicAA{
使用VC6打开考生文件夹下的源程序文件modi3.cpp。其中定义的类并不完整,按要求完成下列操作,将类的定义补充完整。完成以下功能:(1)完成类Rect的构造函数,实现对变量left、fight、top、bottom的初始化,缺省值都为0,请在注释∥*
有如下类定义:classMyClass{public:MyClass(doubled=0.0):val(d){}______________/
对于长度为n的线性表,在最坏情况下,下列各排序法所对应的比较次数中正确的是()。
下列排序方法中,最坏情况下比较次数最少的是()。
使用VC6打开考生文件夹下的源程序文件modi3.cpp,通过把类Distance定义为类Point的友元类,来实现计算两点之间距离的功能。其中定义的类并不完整,按要求完成下列操作,将类的定义补充完整。(1)把类CDistance定义为类CPoi
使用VC6打开考生文件夹下的源程序文件modi3.cpp。其中定义的类并不完整,按要求完成下列操作,将类的定义补充完整。(1)定义私有数据成员year、month、day,分别用于年、月、日,它们都是int型的数据,请在注释//********1
关于虚函数,以下说法正确的是()。
下列程序将x、y和z按从小到大的顺序排列,横线处应添加语句()。template<classT>voidfun(){Ta:if(x>y){a=x;x=y;y=a;}if(y>z){a=y;y=z;z=a;}if(x>
随机试题
下列关于行政诉讼中证据的说法正确的是:()
长期借款筹资与长期债券筹资相比,其特点是()。
企业降低经营风险的途径一般有()。
(2017年)甲公司为支付货款,向乙公司签发一张以A银行为承兑人、金额为100万元的银行承兑汇票。A银行作为承兑人在汇票票面上签章,甲公司的股东B公司在汇票上以乙公司为被保证人,进行了票据保证的记载并签章。甲公司将汇票交付给乙公司工作人员孙某。孙某将该汇
创新型国家的研发投入占GDP的比例在()以上。
遗传素质为个体的发展提供了巨大的、潜在的可能性,制约着儿童身心发展的水平和阶段,所以遗传素质对人的发展起决定作用。()
下列关于经纬线的说法,错误的是()。
建立虚拟局域网的主要原因(35)。
Somanyrepresentatives______,theconferencehadtobeputoff.
SophyBrentcametovisitmenearlyeveryday.Shemademefeeluneasymostofthetime.Shesmoked【C1】______andneverusedana
最新回复
(
0
)