錯誤處理和數據庫 在錯誤處理中加入數據庫的執行是很復雜的。假若我們有一個程序,有很多的命令去向數據庫中添加記錄,如果insert/update在程序的最底部執行,如果我們前面又錯誤發生,那就完了!我們就會向數據庫中添加了一個錯誤的信息。因為我們用了On Error Resume Next 一切的錯誤都被忽略了!即使前面出錯,程序依舊會向數據庫中添加數據的。 為避免這種情況,我們就先得做些手腳,正確處理的方法如下:
If Err.Number = 0 And objConnection.Errors.Count = 0 Then
'這里才能執行語句,因為沒有錯誤 Set rstResults = dbData.Execute(txtSql)
End If
更多高級的處理辦法 當一個錯誤發生時,你們也可以顯示更多的錯誤信息。下面是同時處理數據庫和頁面錯誤的例子,有了它我們一下就能發現我們程序中的所有錯誤。(由于有些地方我覺得英文更能說時問題,所以沒有翻譯)。 <% If Err.Number <> 0 Then Response.Clear Select Case Err.Number Case 8 '指定錯誤的Number '在這里處理自定義錯誤
Case Else '一般錯誤
If IsObject(objConnection) Then If objConnection.Errors.Count > 0 Then %>
<B>Database Connection Object</B>
<% For intLoop = 0 To objConnection.Errors.Count - 1 %>