Count
Errorsコレクションの要素数取得
文法
Errorsコレクション.Count
機能説明
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へ