已知一个名为“学生”的Access数据库,库中的表“Stud’’存储学生的基本信息,包括学号、姓名、性别和籍贯。下面程序的功能是:通过下图所示的窗体向“Stud”表中添加学生记录,对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、t

admin2009-03-17  34

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

选项

答案EOF strSQL

解析 EOF指示当前记录位置位于Recordset对象的最后一个记录之后。属性返回布尔型值。使用BOF和EOF属性可确定Recordset对象是否包含记录,或者从一个记录移动到另一个记录时是否超出Recordset对象的限制。如果EOF属性为True,则没有当前记录。执行IF语句如果表中已有相同学号的记录,则显示“你输入的学号已存在,不能增加!”如果没有则向表中添加录入的记录s仕SQL。
转载请注明原文地址:https://jikaoti.com/ti/bAc0FFFM
0

最新回复(0)