Microsoft Access Club >ADOX入門講座 >このページ >次頁 < 前項  サイト内検索
 

ADOXを用いてテーブル名を取得する : ADOX入門講座



CatalogオブジェクトのTablesコレクションには、各種のTableオブジェクトが含まれています。Tableオブジェクトの種類を調べるには、付属するTypeプロパティを用います。Accessの標準テーブルを求めるには、TypeプロパティにTABLEを指定します。なお、テーフル名の取得は、Tableオブジェクトに付属するNameプロパティを利用します。

留意点
  • テーブル名の取得は参照のみ可能です。テーブル名の変更等はできません。

Typeプロパティの一覧

Typeプロパティに設定するTablesコレクションのオブジェクト一覧は以下のようになります。

種類 意味
TABLE Accessの標準テーブル
VIEW Accessのパラメータを含まない選択クエリ
LINK ODBCデータリソース以外からリンクされたテーブル
ACCESS TABLE Accessのシステムテーブル
SYSTEM TABLE Microsoft Jet システムテーブル
PASS-THROUGH ODBCデータリソースからリンクされたテーブル

ADOXを用いてテーブル名を取得する

このプロシージャを実行すると、メッセージボックスにテーブル名の一覧が表示されます。テーブル毎のデータバックアップや削除などでテーブル名を指定する際に利用されるといいでしょう。

Sub MyTableName()

On Error GoTo エラー

    Dim Cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim strmsg As String
    
    Set Cat = New ADOX.Catalog
    Cat.ActiveConnection = CurrentProject.Connection 'カレントデータベースに接続
    
    For Each tbl In Cat.Tables
        If tbl.Type = "TABLE" Then ' --- A
            strmsg = strmsg & vbNewLine & "・" & tbl.Name
        End If
    Next tbl
    
    MsgBox strmsg
    Set Cat = Nothing
    
    Exit Sub
    
エラー:
    
    MsgBox Err.Number & vbNewLine & Err.Description, vbCritical
    Exit Sub

End Sub
解説
  1. Tablesコレクションのオブジェクトタイプに、TABLEを指定しているので標準テーブル名のみ取得することができます。

2005/08/30

ページの先頭へ 前ページへ戻る


ADOXを用いてテーブル名を取得する : ADOX入門講座


 

-Microsoft Access Club-

注目のモンスター専用サーバーからお買い得プランまで幅広くそろえています。cPanel、PLESK、WEBMINまでお任せ下さい。
注目のモンスター専用サーバーからお買い得プランまで幅広い。
cPanel、PLESK、WEBMINまでお任せ下さい。