Clear
Errorsコレクションの全要素削除
文法
Errorsコレクション.Clear
機能説明
Errorsコレクションの要素を全て削除
使用例
<%
'エラー発生時次行から処理続行
On Error Resume Next
Dim objConn, objRS
'データベース接続
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "test"
'エラー発生
Set objRS = Server.CreateObject("ADODB,Recordset")
objRS.Open "test1"
Response.Write "削除前エラー数 : " objConn.Errors.Count
'エラーコレクションクリア
objConn.Errors.Clear
Response.Write "削除後エラー数 : " objConn.Errors.Count
'オブジェクト開放
objConn.Close
Set objConn = Nothing
%>
Topへ