State
状態取得
文法
Recordオブジェクト.State
機能説明
Recordオブジェクトの状態設定
オブジェクト状態
| 定数 | 値 | 説明 |
|---|
| adStateClosed | 0 | 閉じている（デフォルト） |
| adStateOpen | 1 | 開いている |
| adStateConnecting | 2 | 接続中 |
| adStateExecuting | 4 | コマンド実行中 |
| adStateFetching | 8 | 行の取得 |
使用例
<![CDATA[
<%
Dim objRd
Set objRd = Server.CreateObject("ADODB.Record")
objRd.Open "http://localehost/"
'表示
Select Case objRd.State
Case adStateClosed
Response.Write "オブジェクト状態 : 閉じている" & "<br>"
Case adStateOpen
Response.Write "オブジェクト状態 : 開いている" & "<br>"
Case adStateConnecting
Response.Write "オブジェクト状態 : 接続中" & "<br>"
Case adStateExecuting
Response.Write "オブジェクト状態 : コマンド実行中" & "<br>"
Case adStateFetching
Response.Write "オブジェクト状態 : 行の取得" & "<br>"
End Select
'オブジェクトを閉じる
objRd.Close
'表示
Select Case objRd.State
Case adStateClosed
Response.Write "オブジェクト状態 : 閉じている" & "<br>"
Case adStateOpen
Response.Write "オブジェクト状態 : 開いている" & "<br>"
Case adStateConnecting
Response.Write "オブジェクト状態 : 接続中" & "<br>"
Case adStateExecuting
Response.Write "オブジェクト状態 : コマンド実行中" & "<br>"
Case adStateFetching
Response.Write "オブジェクト状態 : 行の取得" & "<br>"
End Select
Set objRd = Nothing
%>
]]>
Topへ