次の例では、1995 年の第 2 四半期の間に注文のあった各顧客の顧客名と連絡先を列挙します。
この例では、EnumFields プロシージャを呼び出しています。EnumFields プロシージャの内容は SELECT ステートメントの例の中にあります。
Sub SubQueryX()
Dim dbs As Database, rst As Recordset
'
この下の行を、使用しているコンピュータ上の
' Northwind
のパスに変更してください。
Set dbs = OpenDatabase("Northwind.mdb")
' 1995
年の第 2
四半期の間に注文のあった
'
各顧客の顧客名と連絡先を列挙します。
Set rst = dbs.OpenRecordset("SELECT ContactName," _
& " CompanyName, ContactTitle, Phone" _
& " FROM Customers" _
& " WHERE CustomerID" _
& " IN (SELECT CustomerID FROM Orders" _
& " WHERE OrderDate Between #04/1/95#" _
& " And #07/1/95#);")
' Recordset
を作成します。
rst.MoveLast
' EnumFields
を呼び出し、Recordset
の内容を
'
出力します。Recordset
オブジェクトと必要な
'
フィールド幅を渡します。
EnumFields rst, 25
dbs.Close
End Sub