CommandTimeout
コマンドのタイムアウト時間を設定
文法
Commandオブジェクト.CommandTimeoutb
パラメータ
有効期限(分)
機能説明
コマンドのタイムアウト時間を設定
デフォルトは30秒
使用例
<%
Dim objConn, objCmd, objRS
'データベース接続
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "sample"
'コマンドオブジェクト作成
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.CommandText = "select * from test"
'コマンドタイムアウト時間設定(10秒)
objCmd.CommandTimeout = 10
Set objRS = objCmd.Execute
'データ表示
Dim i
Do Until objRS.EOF
Response.Write "
"
For i = 0 to objRS.Fields.Count - 1
Response.Write "objRS(i) & "
"
Next
objRS.MoveNext
Loop
'オブジェクト開放
objRS.Close
objConn.Close
Set objCmd = Nothing
Set objRS = Nothing
Set objConn = Nothing
%>
Topへ