( 14 )己知一个名为 “ 学生 ” 的 Access 数据库,库中的表 “ stud ” 存储 学生的基本信息,包括学号、姓名 、 性别和籍贯 。 下面程序的功能是 : 通过下图所示的窗体向 “ stud ” 表中添加学生记录 , 对应 “ 学号 ” 、“ 姓名 ” 、 “ 性别 ” 和 “ 籍贯 ” 的四个文本框的名称分别为 tNo 、tName 、 tSex 、 tRes 。 当单击窗体中的 “ 增加 ” 命令按扭(名称为 Command1 )时, 首先判断学号是否,如果不重复则向 "stud" 表中添加学生记录;
如果学号重复,则给出提示信息。
请依据所要求的功能,将如下程序补充完整。
Private Sub Form_LoadO
,打开窗口时,连接 Access 数据库
Set ADOcn = CurrentProject.Connection
End Sub
Dim ADOcn As New ADODB.Connection
Private Sub Commandl Click ()
,增加学生记录
Dim strSOL As String
Dim ADOrs As New AUU0t3xecoraset
Set ADOrs.ActiveConnection 二 ADOcn
ADOrs.Open "Select 学号 From Stud Where 学号= ” ,+ tNo + ' ,一 ' ,
If Not ADOrs. 【 14 】 Then
· 如果该骊的学生记录己经存在,则显示提示信息
MsgBox ” 你输入的学号己存在,不能增加! ”
Else
' 增加新学生的记录
strSOL 二 "Insert Into stud (字兮, ir'E=G , 11350 , FIABW )
‘ strSQL 一 strSQL + "Values (一 +tNo+"' , '"+tName+"' , '"+tSex+" · , '"+tRes+" ),,
ADOcn.Execute 【 15 】
MsgBox ” 添加成功,请继续! ”
End If
ADOrs.Close
第1题:
在数据库应用软件Access中,建立数据库“销售.mdb”,如图14-9所示。在数据库中添加数据表“2007年销售表.dbf”。

要求:
(1)快速的用Access建立数据库且输入记录。
(2)在窗体设计中,将数据表的内容与一个列表框进行绑定,如图14-10所示。






第2题:
试题2
在“教学管理”数据库中有“学生”“课程”“教师”和“选课成绩”四张表。按要求创建查询。
(1) 以“教学管理”数据库中的“学生”和“选课成绩”表为数据源,创建一个生产表查询,将成绩在90分以上的学生的“学生编号”和“姓名”,“性别”“年龄”和“成绩”存储到一个新表中,“学生编号”按降序排列。新表名为“90分以上学生情况”,查询的名称为“生成90分以上学生情况表”。
(2) 以“教学管理”数据库中的“学生”“课程”和“选课成绩”表为数据源建立一个查询,查找每个班英语(二)的平均成绩并显示其班级号和平均成绩。假设,“学生编号”中的前4位表示班级号。查询命名为“每班英语平均分”。
第3题:
在数据库ex38中创建一个存储过程,手写程序或执行后拍图上传。 创建一个存储过程,名为p_ex1,用于实现当任意给定表student中的一个学生的姓名或学号时,即可修改表中该学生的姓名为此给定的姓名。
第4题:
建立项目文件,文件名为“xm”。
2、将数据库“学生管理”添加到新建项目“xm”中。
3、将考生文件夹下的自由表“学生”添加到数据库中。
4、建立表“学生”和表“成绩”之间的关联。
第5题:
一个Access数据库中的表可以导出到另一个Access数据库中。