已知一个名为“学生”的Access数据库，库中的表“stud“存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stub” 表中添加学生记录，对应“学号”、“姓名”和“籍贯”的四个文本框的名称分别为tNo\tName、tSex 和tRes.当单击窗体中的“增加“命令按钮名称为Commandl．时，首先判断学号是否重复，如果不重复则向“stud“表中添加学生记录：如果学号重复，则给出提示信息。Private Sub Form_Load．、打开窗口时，连接Access数据

题目

已知一个名为“学生”的Access数据库，库中的表“stud“存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stub” 表中添加学生记录，对应“学号”、“姓名”和“籍贯”的四个文本框的名称分别为tNo\tName、tSex 和tRes.当单击窗体中的“增加“命令按钮名称为Commandl．时，首先判断学号是否重复，如果不重复则向“stud“表中添加学生记录：如果学号重复，则给出提示信息。

Private Sub Form_Load．

、打开窗口时，连接Access数据库

Set ADOcn=CurrentProject,Connection

End Sub

Dim ADOcn As New ADODB.Conneetion

Private Sub Commandl_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, 【14】 Then

‘如果该学号的学生记录已经存在，则显示提示信息

MsgBox”你输入的学号已存在，不能增加！“

Else

‘增加新学生的记录

strSQL=“Insert Into stud 学号，姓名，性别，籍贯．”

strSQL=strSQL+”Values‘”+tNo+”‘,’”+tName+” ‘,’“+tSex”‘，’+tRes+” ‘．”

ADOen.Execute 【15】

MsgBox “添加成功，请继续！”

End If

ADOrs.Close

Set ADOrs=Nothing

End Sub

相似考题

1.（ 14 ）己知一个名为 “ 学生 ” 的 Access 数据库，库中的表 “ stud ” 存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向 “ stud ” 表中添加学生记录，对应 “ 学号 ” 、“ 姓名 ” 、 “ 性别 ” 和 “ 籍贯 ” 的四个文本框的名称分别为 tNo 、tName 、 tSex 、 tRes 。当单击窗体中的 “ 增加 ” 命令按扭（名称为 Command1 ）时，首先判断学号是否，如果不重复则向 "stud" 表中添加学生记录；如果学号重复，则给出提示信息。请依据所要求的功能，将如下程序补充完整。Private Sub Form_LoadO，打开窗口时，连接 Access 数据库Set ADOcn ＝ CurrentProject.ConnectionEnd SubDim ADOcn As New ADODB.ConnectionPrivate Sub Commandl Click （），增加学生记录Dim strSOL As StringDim ADOrs As New AUU0t3xecorasetSet ADOrs.ActiveConnection 二 ADOcnADOrs.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 IfADOrs.Close

2.基于数据库中的学生表、成绩表、任课表：学生（学号，姓名，性别，出生日期，系名）成绩（学号，课程名，成绩）任课（课程名，任课教师名）用SQL语言中的CREATE语句创建一个含有学号、姓名、性别、系名、课程名、成绩、任课教师名的学生成绩视图．

3.设有学生表：STUD(学号，姓名，性别，年龄，专业)，将学号为“20030019”的学生从该表中删除掉的语句是______。A．DELETE STUD WHERE学号="20030019"B．DELETE FROM STUD WHERE学号="20030019"C．DELETE TABLE STUD WHERE学号="20030019"D．DELETE FROM WHERE 学号="20030019"

4.在考生文件夹下建立数据库ks7，并将自由表SCOt加入数据库中。(2)按下面给出的表结构。给数据库添加表stud：字段字段名类型宽度小数1 学号字符型 22 姓名字符型 83 出生日期日期型 84 性别字符型 25 院系号字符型 2(3)为表stud建立主索引，索引名为“学号”，索引表达式为“学号”，为表scor建立普通索引，索引名为“学号”，索引表达式为“学号”。(4)stud表和scor表必要的索引已建立，为两表建立永久性的联系。

题目

相似考题

更多“已知一个名为“学生”的Access数据库,库中的表“stud“存储学生的基本信息,包括学号、姓名、性别和籍贯 ”相关问题

相关内容