学生管理系统问题集锦一

 问题1：当数据库中记录为空时，打开“修改学籍信息”窗体会报错

 解决方法：

 '检测此时student_Info表中记录集是否为空
 '如果为空，则打开”添加学籍信息“窗体
 '如果不为空，则打开“修改学籍信息”窗体
 Private Sub modifysinfoMenu_Click()
     
     '定义数据库连接的字符串
     Dim strTxtsql As String            
     Dim strMsgtxt As String
     '创建用于检测student_Info表记录是否为空的对象
     Dim rstObjcount As ADODB.Recordset
     '创建记录Msgbox返回值的对象
     Dim intMsg As Integer
    
     '数据库连接语句
     strTxtsql = "select * from student_Info"
     '得到student_Info的记录集，并将其赋给rstObjcount
     Set rstObjcount = ExecuteSQL(strTxtsql, strMsgtxt)
    
     '检测student_Info表中记录是否为空
     If rstObjcount .RecordCount = 0 Then
         intMsg= MsgBox("记录集为空，是否现在就填写", vbOKCancel, "警告")
      
         '如果选择是，则打开“添加信息”窗体
         If  intMsg = vbOK Then
              frmAddsinfo.Show
              Exit Sub
         Else
            Exit Sub
         End If


     Else
         frmModifysinfo.Show
  End If

 End Sub

 在主窗体frmMain的“修改学籍信息”菜单命令下添加如下代码