Seekメソッドは、Findメソッドと同じく指定した条件に一致するレコードを検索し ます。Findメソッドとの相違点は、検索するテーブルフィールドにインデックスが設定されていることが条件になります。

留意点

• RecordsetオブジェクトのOpenメソッドの引数OptionにadCmdTabledirectを指定する必要があります。
• 検索方法を事前に指定することができます。

Findメソッドの構文

Seekメソッドの構文は、以下のような組み合わせになります。

Recordsetオブジェクト + .（ドット） + Seekメソッド+ （半角） +
Keyvalues+ ,（カンマ） + Seekoption

サンプルテーブルの作成

サンプルテーブルを以下のように作成します。テーブル名は、T_sampleテーブルです。

Seekメソッドを用いた検索方法

このプロシージャは、T_Sampleテーブルから社員名が「田中邦子」のレコードをSeekメソッドを用いて求め、メッセージボックスに表示します。

Sub ADO_Seek()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim vardat As Variant
    Dim strmsg As String
    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    
    rs.Open "T_Sample", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    
    vardat = InputBox("検索する社員名を入力して下さい。") ' --- A
    If vardat = "" Then Exit Sub ' --- B
    rs.Index = "PrimaryKey"
    rs.Seek vardat, adSeekFirstEQ
    
    If rs.EOF Then
        strmsg = "該当データがありません。" ' --- B
    Else
        strmsg = strmsg & rs!売上日 & " ： " & rs!社員名 & " ： " & _
					rs!性別 & " ： " & rs!売上額 & "円"
    End If
    
    MsgBox strmsg
    
    rs.Close: Set rs = Nothing
    cn.Close: Set cn = Nothing

End Sub

解説

1. InputBoxを用いてユーザーに検索語を入力させます。
2. ユーザーが検索後を入力しなかった場合は、以降の処理をキャンセルします。
3. EOFプロパティがTrueになった場合、つまり最後まで検索が終了した場合はメッセージを表示させます。

実行結果

1. プロシージャを実行します。
2. InpuBoxが開きますので、田中邦子と入力します。

3. 以下の検索が実施され、メッセージボックスが開きます。

関連ページ

• カレントレコードの検索_テーブルタイプ ： DAO入門講座
• Supportメソッドの利用 ： ADO入門講座

2005/06/25