CompareBookmarks
ブックマーク比較
文法
Recordsetオブジェクト.CompareBookmarks (bookmark1, bookmark2)
パラメータ
bookmark1,2 : 比較対象のブックマーク
機能説明
ブックマークの相対位置関係を取得
比較結果定数
| 定数 | 値 | 説明 |
|---|
| adCompareEqual | 1 | ブックマークは等しい |
| adCompareGreaterThan | 2 | bookmark1が後になる |
| adCompareLessThan | 0 | bookmark1が前になる |
| adCompareNotComparable | 4 | ブックマーク比較不可 |
| adCompareNotEqual | 3 | ブックマークが異なる |
使用例
<![CDATA[
<%
Dim objConn, objRs, Mark1, Mark2
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "sample"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "select * from test"
Mark1 = objRs.Bookmark
objRs.MoveLast
Mark2 = objRs.Bookmark
Response.Write "ブックマーク比較結果<br>"
Select Case objRs.CompareBookmarks(Mark1, Mark2)
Case adCompareLessThan
Response.Write "Mark1 < Mark2"
Case adCompareEqual
Response.Write "Mark1 = Mark2"
Case adCompareGreaterThan
Response.Write "Mark1 > Mark2"
Case adCompareNotEqual
Response.Write "Mark1 <> Mark2"
Case Else
Response.Write "比較できません"
End Select
'オブジェクトを閉じる
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
]]>
Topへ