填空题

已知一个名为“学生”的Access数据库，库中的表“stud”存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stud”表中添加学生记录，对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、tName、tSex、tRes。当单击窗体中的“增加”命令按扭(名称为Command1)时， 首先判断学号是否，如果不重复则向“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. (14) Then
’如果该学号的学生记录己经存在, 则显示提示信息
MsgBox"你输入的学号己存在, 不能增加!"
Else
’增加新学生的记录
strSQL="Insert Into stud(学号, 姓名, 性别, 籍贯)
strSQL=strSQL+"Values("+tNo+","+tName+","+tSex+","+tRes+")"
ADOcn.Execute (15)
MsgBox"添加成功, 请继续!"
End If
ADOrs.Close
Set ADOrs＝Nothing
End Sub

点击查看答案