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 "カーソルロケーション : 使用しない
"
Case adUseServer
Response.Write "カーソルロケーション : サーバー
"
Case adUseClient
Response.Write "カーソルロケーション : クライアント
"
End Select
'オブジェクトを閉じる
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
Topへ