In 演算子の使用例

次の例は、Northwind.mdb データベースの Orders テーブルを使用して、Lancashire と Essex へ出荷されたすべての注文とその出荷日を含めるクエリを作成します。

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

Sub InX()

    Dim dbs As Database, rst As Recordset

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

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

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Orders テーブルから、[ShipRegion] の値が

    ' Lancashire または

    ' Essex であるレコードを選択します。

    Set rst = dbs.OpenRecordset("SELECT " _

        & "CustomerID, ShippedDate FROM Orders " _

        & "WHERE ShipRegion In " _

        & "('Lancashire','Essex');")

    ' Recordset を作成します。

    rst.MoveLast

    ' EnumFields を呼び出し

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

    EnumFields rst, 12

    dbs.Close

End Sub