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

學(xué)生信息管理系統(tǒng)-錯(cuò)誤3021解決這個(gè)錯(cuò)誤算是發(fā)生最多的一個(gè)了。其一：是在打開(kāi)修改XX信息的窗體時(shí)都會(huì)遇見(jiàn)的錯(cuò)誤，經(jīng)網(wǎng)上查詢(xún)得知是因?yàn)?，Recordset里沒(méi)有數(shù)據(jù)的原因，當(dāng)首先添加一組信息后，就可以打開(kāi)修改修改了，但這并沒(méi)有解決根本問(wèn)題。我是這樣修改的：寫(xiě)一組判斷語(yǔ)句加frmMain的菜單項(xiàng)單擊事件中。?12345678910111213141516171819202122232425262728293031323334sql Private Sub modifycinfoMenu_Click() txtSQL = select * from class_InfoSet mrc = ExecuteSQL(txtSQL, MsgText) 得到class表，并顯示 判斷記錄是否為空，如果為空彈出提示框，確認(rèn)后彈出添加信息窗體 If mrc.RecordCount = 0 ThenMsgBox 記錄為空，請(qǐng)先添加！, 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 記錄為空，請(qǐng)先添加！, vbOKOnly + vbExclamation, 警告mrc.CloseSet mrc = Nothing frmAddcourseinfo.Show Exit Sub ElsefrmModifycourseinfo.Show End If End Sub其它幾個(gè)做類(lèi)似修改即可。其二：是在刪除數(shù)據(jù)的時(shí)候，刪除兩條以上的記錄時(shí)不會(huì)出現(xiàn)錯(cuò)誤，但在刪除最后一條記錄時(shí)便會(huì)發(fā)生錯(cuò)誤。法1、利用錯(cuò)誤處理語(yǔ)句，（前提：雖然點(diǎn)擊刪除按鈕后出錯(cuò)，但是重新打開(kāi)時(shí)記錄已經(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、編寫(xiě)判斷語(yǔ)句判斷是否為最后一條記錄。?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í)行語(yǔ)句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