学生管理系统问题集锦一

 问题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的“修改学籍信息”菜单命令下添加如下代码