次の例では、ブラジルにあるすべての仕入先と得意先の名前、およびその所在都市を取得します。
この例では、EnumFields プロシージャを呼び出しています。EnumFields プロシージャの内容は SELECT ステートメントの例の中にあります。
Sub UnionX()
Dim dbs As Database, rst As Recordset
' この下の行を、使用しているコンピュータ上の
' Northwind のパスに変更してください。
Set dbs = OpenDatabase("Northwind.mdb")
' ブラジルにあるすべての仕入先と得意先の
' 名前、および所在都市を取得します。
Set rst = dbs.OpenRecordset("SELECT CompanyName," _
& " City FROM Suppliers" _
& " WHERE Country = 'Brazil' UNION" _
& " SELECT CompanyName, City FROM Customers" _
& " WHERE Country = 'Brazil';")
' Recordset を作成します。
rst.MoveLast
' EnumFields を呼び出し、Recordset 内容を
' 出力します。Recordset オブジェクトと必要な
' フィールド幅を渡します。
EnumFields rst, 12
dbs.Close
End Sub