Seek
レコードセットをインデックスで検索
文法
Recordsetオブジェクト.Seek Key
パラメータ
[Option]
機能説明
Key : 検索の値
Option : 検索方法
比較方法
| 定数 | 値 | 説明 |
|---|
| adSeekAfter | 8 | 一致するキー直後を検索 |
| adSeekAfterEQ | 4 | 一致するキーまたは直後を検索 |
| adSeekBefore | 32 | 一致するキー直前を検索 |
| adSeekBeforeEQ | 16 | 一致するキーまたは直前を検索 |
| adSeekFirstEQ | 1 | 一致する最初のキーを検索 |
| adSeekLastEQ | 2 | 一致する最後のキーを検索 |
使用例
<![CDATA[
<%
Dim objConn, objRs
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "sample"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "select * from test", objConn, adOpenStatic, adLockBatchOptimistic, adCmdTableDirect
'PrimaryKeyが設定されている必要があります
objRs.Index = "PrimaryKey"
'nameがPrimaryKeyに設定されている場合
objRs.Seek = "渡部"
'データ表示
If objRs.EOF Then
Response.Write "Data Nothing!" & vbCrLf
Else
Response.Write "<table border=1>" & vbCrLf
Response.Write "<tr>" & vbCrLf
For i = 0 to objRs.Fields.Count - 1
Response.Write "<th>" & objRs.Fields(i).Name & "</th>" & vbCrLf
Next
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
For i = 0 to objRs.Fields.Count - 1
Response.Write "<td>" & objRs(i) & "</td>" & vbCrLf
Next
Response.Write "</tr>" & vbCrLf
Loop
Response.Write "</table>" & vbCrLf
'オブジェクトを閉じる
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
]]>
Topへ