? ? 學(xué)生基本上調(diào)得差不多了，我發(fā)現(xiàn)我遇到了了很多錯誤，在這里做一下總結(jié)。

1.3021

這個錯誤幾乎是我遇到最多的錯誤，只要一沒有數(shù)據(jù)，就會蹦出來這個錯誤。誒，看到了嗎？我這句話點出了這個錯誤的癥結(jié)所在，就是沒有數(shù)據(jù)，數(shù)據(jù)庫查詢不到數(shù)據(jù)，所謂，”萬變不離其宗“，只要知道了這一點，我們就能很快的解決這個錯誤。

---

在學(xué)生里，這個錯誤經(jīng)常在那里出現(xiàn)呢？

在點了修改學(xué)籍信息窗體，但是數(shù)據(jù)庫里還沒有學(xué)生信息時，這個錯誤就出現(xiàn)了，或者你將所有的記錄刪除了，

那，我們該如何應(yīng)對呢？

---

?Dim mrc As ADODB.Recordset
? ? Dim txtsql As String
? ? Dim msgtext As String
? ??
? ? txtsql = "select * from class_Info "
? ? Set mrc = ExecuteSQL(txtsql, msgtext)
? ? If mrc.EOF And mrc.BOF Then
? ? ? ? MsgBox "沒有數(shù)據(jù)，請?zhí)砑?#xff01;", 0 + 48, 提示
? ? ? ? frmaddclassinfo.Show
? ? ? ? Exit Sub
? ? Else
? ? ? ? frmmodifyclassinfo.Show
? ? End If

?

我?guī)缀跤眠@段代碼吃遍了天下，只要我出現(xiàn)3021，我就會首先想到用這段代碼來解決。

其二：是在刪除數(shù)據(jù)的時候，刪除兩條以上的記錄時不會出現(xiàn)錯誤，但在刪除最后一條記錄時便會發(fā)生錯誤。 ??
法1、利用錯誤處理語句，（前提：雖然點擊刪除按鈕后出錯，但是重新打開時記錄已經(jīng)被刪除了）?
?

?

On Error GoTo 1

?1:
? ? If Err = 3021 Then
? ? ? ? MsgBox "已經(jīng)沒有數(shù)據(jù)了，請?zhí)砑訑?shù)據(jù)", vbOKOnly + vbExclamation, "提示"
? ? ? ? Unload Me
? ? ? ? frmaddclassinfo.Show
? ? End If
? ? Else
? ? ? mrc.Bookmark = mybookmark
? ? ? Call viewdata
? ? End If

法2、編寫判斷語句判斷是否為最后一條記錄
?

?Private Sub deleteCommand_Click() ??

myBookmark = mrc.Bookmark ??
? ? str2$ = MsgBox("是否刪除當(dāng)前記錄？", vbOKCancel, "刪除當(dāng)前記錄") ??

If str2$ = vbOK Then ? ? ? ? ?mrc.MoveNext ? ? ??
? ? ? ? ? ? ? ? ? ’判斷是否為最后一條記錄 ??

If mrc.EOF Then

?? mrc.MovePrevious

If mrc.BOF Then ? ?? '若是，則刪除，避免執(zhí)行語句call viewdata

? ?? mrc.MoveNext

? ?? mrc.Delete

? ?? Msgbox "記錄已經(jīng)為空，"? vbokonly? + vbexclamation,? "警告"

? ?? unload me ?

else

? ?? mrc.movefirst

? ?? mybookmark=mrc.bookmark

? ?? mrc.movelast

? ? ? mrc.delete

? ? ? mrc.bookmark=mybookmark ??

? ? ? mrc.close

2.91

?這個錯誤我早有耳聞了，果然，我還是遇見了，這個錯誤大多數(shù)與自己是否細(xì)心有關(guān)，比如SQL語句引號不完整，SQL語句有誤，多了空格，少了空格，都會出現(xiàn)這個錯誤。

我這里出錯，就是因為我寫的SQL語句不完整，正確的應(yīng)該是

txtSQL = "select * from student_Info where student_ID = '" & comboSID.Text & "'"

3.3265

這個錯誤倒是不常見，

?不過，我在這里出錯，完全是自己不細(xì)心，grade年級的信息怎么能在添加成績信息的窗體中出現(xiàn)呢。刪掉就可以了。

4.越界問題

當(dāng)你輸入的數(shù)據(jù)大于或超過數(shù)據(jù)庫所要求的范圍時，比如說，字符串限制為10的情況下打入了11個數(shù)字，就會出現(xiàn)這個錯誤。

? ? ? ??

?

?

總結(jié)

以上是生活随笔為你收集整理的【学生】错误集锦的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。