WHERE 句の使用例

次の例では、Employees テーブルに Salary フィールドがあると仮定しています。このフィールドは実際の Northwind データベースの Employees テーブルにはありませんので注意してください。

次の例では、"King" という氏名を持つ各レコードの LastName と FirstName フィールドを選択します。

この例では、EnumFields プロシージャを呼び出しています。EnumFields プロシージャの内容は SELECT ステートメントの例の中にあります。

Sub WhereX()

    Dim dbs As Database, rst As Recordset

    ' この下の行を、使用しているコンピュータ上の

    ' Northwind のパスに変更してください。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' "King" という氏名を持つレコードを

    ' Employees テーブルから選択します。

    Set rst = dbs.OpenRecordset("SELECT LastName, " _

        & "FirstName FROM Employees " _

        & "WHERE LastName = 'King';")

    ' Recordset を作成します。

    rst.MoveLast

    ' EnumFields を呼び出し、

    ' Recordset の内容を出力します。

    EnumFields rst, 12

    dbs.Close

End Sub