CursorLocation

カーソルサービス設定


文法
Recordsetオブジェクト.CursorLocation


機能説明
カーソルサービスの位置を設定
オープン済みのRecordsetオブジェクトでは設定できません


カーソルロケーション
定数説明
adUseClient 3 クライアントサイドカーソル
adUseNone 1 使用しない
adUseServer 2 サーバーサイドカーソル(デフォルト)

使用例
<% Dim objConn, objRs Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open = "sample" Set objRs = Server.CreateObject("ADODB.Recordset") objRs.CursorLocation = adUseClient objRs.Open "select * from test" Select Case objRs.CursorLocation Case adUseNone Response.Write "カーソルロケーション : 使用しない<br>" Case adUseServer Response.Write "カーソルロケーション : サーバー<br>" Case adUseClient Response.Write "カーソルロケーション : クライアント<br>" End Select 'オブジェクトを閉じる objRs.Close Set objRs = Nothing objConn.Close Set objConn = Nothing %>
Topへ