学生信息管理系统-错误‘3021’解决.docxVIP

学生信息管理系统-错误‘3021’解决?这个错误算是发生最多的一个了。?其一：是在打开修改XX信息的窗体时都会遇见的错误，经网上查询得知是因为，Recordset里没有数据的原因，当首先添加一组信息后，就可以打开修改修改了，但这并没有解决根本问题。我是这样修改的：写一组判断语句加frmMain的菜单项单击事件中。??12345678910111213141516171819202122232425262728293031323334[sql] Private Sub modifycinfoMenu_Click()? ???????txtSQL = select * from class_Info?????Setmrc = ExecuteSQL(txtSQL, MsgText)?? 得到class表，并显示? ???????判断记录是否为空，如果为空弹出提示框，确认后弹出添加信息窗体? ????If mrc.RecordCount = 0 Then?????????MsgBox 记录为空，请先添加！, vbOKOnly + vbExclamation, 警告?????????mrc.Close?????????Setmrc = Nothing? ????????frmAddclassinfo.Show? ????????Exit Sub? ????Else?????????frmModifyclassinfo.Show? ????EndIf? EndSub? ???Private Sub modifycourseMenu_Click()? ???????txtSQL = select * from course_Info?????Setmrc = ExecuteSQL(txtSQL, MsgText)?? 得到course表，并显示? ???????判断记录是否为空，? ????If mrc.RecordCount = 0 Then?????????MsgBox 记录为空，请先添加！, vbOKOnly + vbExclamation, 警告?????????mrc.Close?????????Setmrc = Nothing? ????????frmAddcourseinfo.Show? ????????Exit Sub? ????Else?????????frmModifycourseinfo.Show? ????EndIf? EndSub?其它几个做类似修改即可。?其二：是在删除数据的时候，删除两条以上的记录时不会出现错误，但在删除最后一条记录时便会发生错误。?法1、利用错误处理语句，（前提：虽然点击删除按钮后出错，但是重新打开时记录已经被删除了）?1234567891011121314151617181920212223Private Sub deleteCommand_Click()? OnError GoTod_Err? ????myBookmark = mrc.Bookmark???????? 做标记? ????str2$ = MsgBox(是否删除当前记录？, vbOKCancel, 删除当前记录)? ???????If str2$ = vbOK Then???????????.? ??????????.? ??????????.? ????EndIf? d_EXIT:? ?????????Exit Sub? ?????????Unload Me? d_Err:? ????txtSID.Text = ???????????????? ’把各文本框清空(可选)? ????txtName.Text = ???????????.? ??????????.? ??????????.? ????MsgBox 记录为空了。, vbOKOnly + vbExclamation, 警告??????????GoTod_EXIT? ???EndSub?法2、编写判断语句判断是否为最后一条记录。??1234567891011121314151617181920212223242526272829303132333435363738394041424344454647Private Sub deleteCommand_Click()? ????myBookmark = mrc.Bookmark? ????str2$ = MsgBox(是否删除当前记录？, vbOKCancel, 删除当前记录)? ???????????If str2$ = vbOK Then?????????mrc.MoveNext? ?????????????????????’判断是否为最后一条记录? ????????If mrc.EOF Then??????????