780
技術社區[雲棲]
學生信息管理係統問題集錦
係統敲完了，也調試完了，在完成係統的過程中遇到不少的問題，做一下總結。
1、With 未設置，實時錯誤‘91’
1）、數據庫的ODBC配置出現錯誤，沒有配置好，與數據庫的連接沒有連接好，就會出現這樣的問題
2）、與代碼中從數據庫中調用數據的語句有關：
前麵的空格不應該有
where
後麵有條件，所以與引號間必須有空格
2、多步OLE DB操作產生錯誤。
出現這個問題時，調試的指針會指在寫的代碼的某一行，
這是因為每一個數據都有各自的數據類型，字段的大小都有限製，但你超出這個限製的時候，就會出現上述的情況！
3、實時錯誤“3021”
出現這個問題的時候，一般是你的數據庫裏麵已經為空，當你繼續執行Form_Load()事件或者在你刪除數據時，把數據庫中的數據已經全部刪除之後，會出現這種情況！對於這種情況，我對Form_Load()和deleteCommand_Click()兩個事件下的過程做了相應的改變
Private Sub From_Load()
txtsql="select * from class_info "
set mrc=ExecuteSQL(txtSQL,MsgText)
If mrc.EOF And mrc.EOF then '指針未在記錄集之中，沒有記錄，說明數據庫為空
MsgBox"數據庫為空，請先添加班級信息！",vbOkonly + vbExclamation,"警告"
mrc.Close
Frame2.Enabled=False '使所有的控件按鈕無法使用
Frame3.enabled=False
Else
mrc.MoveFirst
Call viewData
myBookmark=mrc.Bookmark
mcclean=True
End If
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
Private Sub deleteCommand_Click()
myBookmark = mrc.Bookmark
str2$ = MsgBox("是否刪除當前記錄？", vbOKCancel, "刪除當前記錄")
If str2$ = vbOK Then
mrc.MoveNext '刪除後顯示下一條記錄
If mrc.EOF Then
mrc.MoveFirst
myBookmark = mrc.Bookmark
mrc.MoveLast
mrc.Delete
mrc.Bookmark = myBookmark
txtSQL = "select * from class_info " '重新從數據庫中提取數據，相當於刷新
Set mrc = ExecuteSQL(txtSQL, MsgText) '得到student表，並顯示出來
If mrc.EOF And mrc.BOF Then
MsgBox "數據庫為空，請先添加班級信息！", vbOKCancel, "警告"
mrc.Close '關閉連接
Frame2.Enabled = False
Frame3.Enabled = False
txtClassno.Text = ""
comboGrade.Text = ""
txtDirector.Text = ""
txtClassroom.Text = ""
Else
Call viewData
End If
Else
myBookmark = mrc.Bookmark
mrc.MovePrevious
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
End If
Else
mrc.Bookmark = myBookmark
Call viewData
End If
最後更新：2017-04-03 16:48:51