14
錯誤描述
查詢學資訊時,如果沒有查詢到,要提示沒有查到
錯誤處理
在程式中新增乙個判斷
if not mrc.eof then
………….
else
msgbox "
沒有您所要查詢的資料"
end if 15
錯誤描述
修改班級資訊時,如果修改了一下,然後取消修改了,但是顯示的是修改了以後的資料
錯誤處理
解決辦法
在cmdcancel 後加上
call viewdata
重新新增資料16
錯誤描述
在所有的刪除記錄中,都沒有判斷記錄是否完全刪除
錯誤處理
和前邊的一樣,加上判斷記錄是否刪除
17,錯誤描述
在修改資料的窗體中,如果記錄為空則出錯
錯誤處理
在form_load中新增判讀語句
if mrc.recordcount = 0 then
msgbox "
記錄為空,無法再提供修改", vbokonly + vbexclamation, "警告"
exit sub
else
mrc.movefirst
call viewdata
mybookmark = mrc.bookmark
mcclean = true
end if
18 錯誤描述
在呼叫iewdata時 保證記錄不為空,
錯誤描述
採用判斷
mrc.recordcount>0
判斷20
錯誤描述
在成績修改中,
刪除**中有查詢記錄集的一段**
錯誤處理
需要提前判斷是否記錄,再movenext
源**為
txtsql = "select * from result_info "
set mrc = executesql(txtsql, msgtext)
mrc.movelast
call viewdata
修改為txtsql = "select * from result_info "
set mrc = executesql(txtsql, msgtext)
'-----------------------------
if mrc.recordcount > 0 then
mrc.movelast
call viewdata
end if
'----------------------------- 21
錯誤描述
在查詢資料時
判斷是否查詢到資料
先end if 後end with
如果先end with
就不會執行end if
導致錯誤
**錯誤處理
if not mrc.eof then
do while not mrc.eof
.rows = .rows + 1
.cellalignment = 4
.textmatrix(.rows - 1, 0) = mrc.fields(0)
.textmatrix(.rows - 1, 1) = mrc.fields(1)
.textmatrix(.rows - 1, 2) = mrc.fields(2)
.textmatrix(.rows - 1, 3) = mrc.fields(3)
.textmatrix(.rows - 1, 4) = mrc.fields(4)
.textmatrix(.rows - 1, 5) = mrc.fields(5)
mrc.movenext
loop
else
msgbox "
沒有找到記錄", , "提示"
end if
end with
22 錯誤描述
在修改資料的時候
主關鍵字,如學號,班號,課程號等不允許修改
錯誤處理
設定器屬性locked 為true
學生資訊管理系統 錯誤除錯及錯誤總結 4
23 錯誤描述 在修改修改資料時候,首先判斷是否關鍵字重複,如果重複在判斷使用者是否要修改 錯誤處理 if mrcc.eof false then str2 msgbox 班號重複,是否確定修改 vbokcancel,警告 if str2 vbok then goto 1 else mrcc.clo...
學生資訊管理系統 錯誤除錯及錯誤總結 4
23 錯誤描述 在修改修改資料時候,首先判斷是否關鍵字重複,如果重複在判斷使用者是否要修改 錯誤處理 if mrcc.eof false then str2 msgbox 班號重複,是否確定修改 vbokcancel,警告 if str2 vbok then goto 1 else mrcc.clo...
VB 學生資訊管理系統6 錯誤除錯
因為站在了巨人的肩膀上，在理解 意思後的除錯中，用到之前的別人的csdn。所以原理查的不是很透徹。這裡總結一下我的問題！1.vb 如下 中mrc.eof false應該怎麼理解呢？set mrc executesql txtsql,msgtext if mrc.eof false then exec...