Min、Max 関数の使用例

次の例では、Orders テーブルを使用して、イギリスに出荷した注文の運送料の最低額と最高額を取得します。

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

Sub MinMaxX()

    Dim dbs As Database, rst As Recordset

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

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

    Set dbs = OpenDatabase("Northwind.mdb")

    ' イギリスに出荷した注文の運送料の

    ' 最低額と最高額を取得します。

    Set rst = dbs.OpenRecordset("SELECT " _

        & "Min(Freight) AS [Low Freight], " _

        & "Max(Freight)AS [High Freight] " _

        & "FROM Orders WHERE ShipCountry = 'UK';")

    ' Recordset を作成します。

    rst.MoveLast

    ' EnumFields を呼び出し、Recordset の内容を

    ' 出力します。Recordset オブジェクトと必要な

    ' フィールド幅を渡します。

    EnumFields rst, 12

    dbs.Close

End Sub