已知一个名为“学生”的Access数据库，库中的表“stud“存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stub” 表中添加学生记录，对应“学号”、“姓名”和“籍贯”的四个文本框的名称分别为tNo\tName、tSex 和tRes.当单击窗体中的“增加“命令按钮名称为Commandl．时，首先判断学号是否重复，如果不重复则向“stud“表中添加学生记录：如果学号重复，则给出提示信息。Private Sub Form_Load．、打开窗口时，连接Access数据库Set ADOcn=CurrentProject,ConnectionEnd SubDim ADOcn As New ADODB.ConneetionPrivate Sub Commandl_Click．、增加学生记录Dim StrSQL As StringDim ADOrs As New ADODB,RecordsetSet ADOrs ,ActiveConnection=ADOcnADOrs.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 IfADOrs.CloseSet ADOrs=NothingEnd Sub
已知一个名为“学生”的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