学生管理系统问题集锦一

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