這個窗體可是出現(xiàn)了很多個問題，例如實時錯誤91錯誤，實時錯誤3021錯誤，這些就是比較常見的錯誤，下面對于這些錯誤有了一些認(rèn)識，來分享一下
一、實時錯誤91錯誤

1.引起的原因
1.ODBC連接沒成功
2.VB模塊中連接數(shù)據(jù)庫的代碼，用戶名，密碼和ODBC不同步
3.代碼中語句出錯，連接不到數(shù)據(jù)庫中所要連接的表
2.具體的解決方法：
第一個原因在前面已經(jīng)說過了，可以參照前一篇博客https://blog.csdn.net/TGB__15__ZYB/article/details/86599501；第二種原因就是檢查VB模塊中連接數(shù)據(jù)庫的代碼，用戶名，密碼，保證與ODBC上的同步；第三種原因檢查查詢表的代碼是否寫錯，注意空格，之后檢查代碼中的表的名字和記錄的名字是否與數(shù)據(jù)庫中的一致。這樣大致就可以解決了。
關(guān)于數(shù)據(jù)庫查詢語句空格的說明：
二、關(guān)于實時錯誤“-2147217887”

1.引起的原因
大多數(shù)是輸入的數(shù)據(jù)違反了數(shù)據(jù)庫的約束條件、字段大小超過限制提交的數(shù)據(jù)個數(shù)、字段數(shù)據(jù)類型不匹配、自動編號指定了值、或者自動編號未作自動賦值、字段不允許為空值等。
2.解決方法
打開SQL Server2014軟件，登錄數(shù)據(jù)庫，按照如圖所示知道要編輯的屬性右擊，點擊修改

在彈出框的列屬性中修改長度，是否空值，點擊保存即可

如果無法保存，找到菜單欄里的工具，點擊工具，點擊選項，找到設(shè)計器，將“阻止保存要求重新創(chuàng)建表的更改”前面的“?”點掉，點擊確定即可保存

三、實時錯誤“3021”

1.引起錯誤的原因：
由于沒有考慮最后一條記錄而刪除了以及本來數(shù)據(jù)庫中就沒有記錄而導(dǎo)致的錯誤。
2.解決方法：
1.加on error goto dataerr語句，編輯dataerr函數(shù)
2.在代碼中對BOF、EOF進(jìn)行說明和限制，具體用法如下：
If mrc.BOF Then
表示：當(dāng)前指針的位置是在第一行記錄之前，則…
If mrc.EOF Then
表示：當(dāng)前指針的位置是在最后一行記錄之后，則…
If Not mrc.EOF Then
表示：當(dāng)前指針的位置沒有到達(dá)最后一條記錄
If Not mrc.BOF then
表示：當(dāng)前指針的位置沒有到達(dá)第一條記錄
If Not (mrc.BOF AND mrc.EOF) Then
表示：指針位于RecordSet 的當(dāng)中（并非是最后一條和第一條） ，說明一定有記錄。
If mrc.BOF AND mrc.EOF Then
表示：沒有任何記錄
if mrc.EOF=true then = if mrc.EOF then

四、實時錯誤364

1. 引起的原因：
由于對象已經(jīng)刪除，但是其他窗體仍然調(diào)用該對象，注意執(zhí)行順序，本窗體中在多文檔界面中點擊修改學(xué)籍信息在沒有記錄的情況下彈出3021錯誤，在修改學(xué)籍信息窗體中加入相關(guān)代碼時，會彈出364錯誤
2.具體解決方式：
在多文檔界面對修改學(xué)籍信息的菜單進(jìn)行編輯，添加相關(guān)代碼即可，本例中相關(guān)代碼是當(dāng)點擊修改學(xué)籍信息時判斷數(shù)據(jù)庫中是否有記錄如果沒有彈出對話框警告，代碼如下

Dim mrc As ADODB.RecordsetDim txtSQL As StringDim MsgText As StringDim strxueji As VbMsgBoxResulttxtSQL = "select*from student_Info" 'SQL語句Set mrc = ExecuteSQL(txtSQL, MsgText) '執(zhí)行查詢操作If mrc.BOF And mrc.EOF Thenstrxueji = MsgBox("沒有任何學(xué)籍信息！", vbOKOnly, "警告")If strxueji = vbOK ThenUnload frmModifysinfoEnd IfElsefrmModifysinfo.ShowEnd If

總結(jié)

以上是生活随笔為你收集整理的学生信息管理系统模块问题篇的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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