问题 填空题

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


请依据所要求的功能,将如下程序补充完整。
Private Sub Form_Load()
打开窗口时,连接Access数据库
Set ADOcn=CurrentProject.Connection
End Sub
Dim ADOen AS New ADODB.Connection
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(" "+tNoq+" "," "+tName4+" "," "+tSe +" "," "+tRes+" ")"
ADOcn.Execute______
MsgBox "添加成功,请继续!"
End If
ADOrs.Close
Set ADOrs=Nothing
End Sub

答案

参考答案:EOF strSQL

解析: 判断一个记录集中的内容是否为空可以检测记录集对象的EOF属性,所以第一个空白处应填EOF。Else子句的功能是向stud表添加一条记录,通过调用连接对象的Execute方法可以调用SQL语句,在本题中的字符串strSQL就是准备好的这样一条完成插入功能的SQL语句。

问答题 简答题
填空题