學(xué)生信息管理系統(tǒng)-錯誤‘3021’解決.docx

學(xué)生信息管理系統(tǒng)-錯誤3021解決這個錯誤算是發(fā)生最多的一個了。其一：是在打開修改XX信息的窗體時都會遇見的錯誤，經(jīng)網(wǎng)上查詢得知是因為，Recordset里沒有數(shù)據(jù)的原因，當(dāng)首先添加一組信息后，就可以打開修改修改了，但這并沒有解決根本問題。我是這樣修改的：寫一組判斷語句加frmMain的菜單項單擊事件中。?12345678910111213141516171819202122232425262728293031323334sql Private Sub modifycinfoMenu_Click() txtSQL = select * from class_InfoSet mrc = ExecuteSQL(txtSQL, MsgText) 得到class表，并顯示 判斷記錄是否為空，如果為空彈出提示框，確認后彈出添加信息窗體 If mrc.RecordCount = 0 ThenMsgBox 記錄為空，請先添加！, vbOKOnly + vbExclamation, 警告mrc.CloseSet mrc = Nothing frmAddclassinfo.Show Exit Sub ElsefrmModifyclassinfo.Show End If End Sub Private Sub modifycourseMenu_Click() txtSQL = select * from course_InfoSet mrc = ExecuteSQL(txtSQL, MsgText) 得到course表，并顯示 判斷記錄是否為空， If mrc.RecordCount = 0 ThenMsgBox 記錄為空，請先添加！, vbOKOnly + vbExclamation, 警告mrc.CloseSet mrc = Nothing frmAddcourseinfo.Show Exit Sub ElsefrmModifycourseinfo.Show End If End Sub其它幾個做類似修改即可。其二：是在刪除數(shù)據(jù)的時候，刪除兩條以上的記錄時不會出現(xiàn)錯誤，但在刪除最后一條記錄時便會發(fā)生錯誤。法1、利用錯誤處理語句，（前提：雖然點擊刪除按鈕后出錯，但是重新打開時記錄已經(jīng)被刪除了）?1234567891011121314151617181920212223Private Sub deleteCommand_Click() On Error GoTo d_Err myBookmark = mrc.Bookmark 做標(biāo)記 str2$ = MsgBox(是否刪除當(dāng)前記錄？, vbOKCancel, 刪除當(dāng)前記錄) If str2$ = vbOK Then. . . End If d_EXIT: Exit Sub Unload Me d_Err: txtSID.Text = 把各文本框清空(可選) txtName.Text = . . . MsgBox 記錄為空了。, vbOKOnly + vbExclamation, 警告GoTo d_EXIT End Sub法2、編寫判斷語句判斷是否為最后一條記錄。?1234567891011121314151617181920212223242526272829303132333435363738394041424344454647Private Sub deleteCommand_Click() myBookmark = mrc.Bookmark str2$ = MsgBox(是否刪除當(dāng)前記錄？, vbOKCancel, 刪除當(dāng)前記錄) If str2$ = vbOK Thenmrc.MoveNext 判斷是否為最后一條記錄 If mrc.EOF Thenmrc.MovePrevious mrc.MovePrevious If mrc.BOF Then 若是 則刪除，避免執(zhí)行語句call viewdata mrc.MoveNext mrc.DeleteMsgBox 記錄已經(jīng)為空，, vbOKOnly + vbExclamation, 警告Unload Me Elsemrc.MoveFirst myBookmark = mrc.Bookmark mrc.MoveLast mrc.Deletemrc.Bookmark = myBookmark mrc.ClosetxtSQL = select * from class_InfoSet mrc = ExecuteSQL(txtSQL, MsgText) mrc.MoveLast Call viewData End If ElsemyBookmark = mrc.Bookmark mrc.MovePrevious mrc.Deletemrc.Bookmark = myBookmark mrc.ClosetxtSQL = select * from class_InfoSet mrc = ExecuteSQL(txtSQL, MsgText) mrc