スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
ADOX(ActiveX Data Object eXtentions)のCatalogオブジェクトを使用してデータベース内のビューの名称を取得します。
ビューの名称の取得はCatalogオブジェクトのViewオブジェクトのNameプロパティを用います。
ここではデータベース内の全てのビューの名称を一覧表示させています。但し、ここで表示されるビューは選択クエリのみでユニオンクエリ、パラメータクエリ、クロス集計クエリなどは表示されません。

Public Sub GetQueryName()
 Dim cn As New ADODB.Connection
 Dim cat As New ADOX.Catalog
 Dim vew As ADOX.View
 
 Set cn = New ADODB.Connection
 cn.ConnectionString = _
    "Provider=microsoft.jet.oledb.4.0;" & _
    "Data Source=D:\NorthWIND.MDB"
  cn.Open
 Set cat.ActiveConnection = cn
 
 For Each vew In cat.Views
  Debug.Print vew.Name
 Next vew
   
 cn.Close
 Set cn = Nothing
 Set cat = Nothing
End Sub