Supports

サポート機能調査


文法
Recordsetオブジェクト.Supports(Value)


パラメータ
Value : レコードセットの値


機能説明
パラメータで指定した機能が使えるか調べます。
戻り値がTrue:使用できます/False:使用できません


比較方法
定数値説明
adAddNew 0x1000400 AddNewメソッド
adApproxPosition 0x4000 AblolutePosition・AbsolutePageプロパティ
adBookmark 0x2000 Bookmarkプロティ
adDelete 0x1000800 Deleteメソッド
adFind 0x80000 Findメソッド
adHoldRecords 0x100 保留中に他のレコードを処理
adIndex 0x100000 Indexプロパティ
adMovePrevious 0x200 GetRows･Move･MoveFirst･MovePreviousメソッド
adNotify 0x40000 イベント使用可能
adResync 0x20000 Resyncメソッド
adSeek 0x200000 Seekメソッド
adUpdate 0x1008000 Updateメソッド
adUpdateBatch 0x10000 CacelBatch･UpdateBatchメソッド

使用例
<% Dim objConn, objRs Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open = "sample" Set objRs = Server.CreateObject("ADODB.Recordset") objRs.Open "select * from test" '数値を直接指定する場合 'objRs.Supports (&h1000400) '表示 Response.Write "<table border=1>" & vbCrLf Response.Write "<tr><th>AddNewメソッド</th><td>" & objRs.Supports adAddNew & "</td>" & vbCrLf Response.Write "<tr><th>AblolutePosition・AbsolutePageプロパティ</th><td>" & objRs.Supports adApproxPosition & "</td>" & vbCrLf Response.Write "<tr><th>Bookmarkプロティ</th><td>" & objRs.Supports adBookmark & "</td>" & vbCrLf Response.Write "<tr><th>Deleteメソッド</th><td>" & objRs.Supports adDelete & "</td>" & vbCrLf Response.Write "<tr><th>Findメソッド</th><td>" & objRs.Supports adFind & "</td>" & vbCrLf Response.Write "<tr><th>保留中に他のレコードを処理</th><td>" & objRs.Supports adHoldRecords & "</td>" & vbCrLf Response.Write "<tr><th>Indexプロパティ</th><td>" & objRs.Supports adIndex & "</td>" & vbCrLf Response.Write "<tr><th>GetRows･Move･MoveFirst･MovePreviousメソッド</th><td>" & objRs.Supports adMovePrevious & "</td>" & vbCrLf Response.Write "<tr><th>イベント使用可能</th><td>" & objRs.Supports adNotify & "</td>" & vbCrLf Response.Write "<tr><th>Resyncメソッド</th><td>" & objRs.Supports adResync & "</td>" & vbCrLf Response.Write "<tr><th>Seekメソッド</th><td>" & objRs.Supports adSeek & "</td>" & vbCrLf Response.Write "<tr><th>Updateメソッド</th><td>" & objRs.Supports adUpdate & "</td>" & vbCrLf Response.Write "<tr><th>CacelBatch･UpdateBatchメソッド</th><td>" & objRs.Supports adUpdateBatch & "</td>" & vbCrLf Response.Write "</table>" & vbCrLf 'オブジェクトを閉じる objRs.Close Set objRs = Nothing objConn.Close Set objConn = Nothing %>
Topへ