テーブル名、クエリ名の取得（ADOX）

サイト管理人

7年前

テーブル名の取得

Table.Type プロパティ

【書式】

＜取得＞
object.Type

引数・戻り値

object ・・・対象となる Table オブジェクトを指定します。

戻り値・・・テーブルの種類を表す文字列型（String）の値を返します。

戻り値	テーブルの種類
TABLE	通常のテーブル
VIEW	パラメータなしの選択クエリ
LINK	リンクテーブル（ODBC以外）
ACCESS TABLE	Access システムテーブル
SYSTEM TABLE	Microsoft jet システムテーブル
PASS-THROUGH	リンクテーブル（ODBC）

Catalog.Views コレクション

【書式】

object.Views

引数・戻り値

object ・・・対象となる Catalog オブジェクトを指定します。

Views コレクションでは、パラメータを含まない選択クエリを管理しています。

Catalog.Procedures コレクション

【書式】

object.Columns

object.Procedures

引数・戻り値

object ・・・対象となる Catalog オブジェクトを指定します。

Procedures コレクションでは、アクションクエリやパラメータを含む選択クエリを管理しています。

ADOX で、テーブル名・クエリ名を取得する例

サンプルVBAソース

　
Sub Sample_ADOX_tablequery()

    '参照設定:Microsoft ActiveX Data Objects 6.1 Library
    '参照設定:Microsoft ADO Ext.6.0 for DDL and Security
                    
    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim qry1 As ADOX.View
    Dim qry2 As ADOX.Procedure
    Dim constr As String
    Dim DBFile As String
    Dim strTbl(1 To 6) As String
    Dim strQry(1 To 2) As String
    Dim msg1 As String
    Dim msg2 As Variant
    
    On Error GoTo ErrHandler
    
    'データベースのパスと名前
    
    'Access 2007以降（accdb ファイル）
    DBFile = ActiveWorkbook.Path & "\mydb3.accdb"
    constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile
    
    'Access 2003以前（mdb ファイル）
    'DBFile = ActiveWorkbook.Path & "\mydb2.mdb"
    'ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFile
    
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = constr
    
    'テーブル
    For Each tbl In cat.Tables
        Select Case tbl.Type
            Case "TABLE"
                If strTbl(1) = "" Then strTbl(1) = "【テーブル】"
                strTbl(1) = strTbl(1) & vbCrLf & " " & tbl.Name
            Case "VIEW"
                If strTbl(2) = "" Then strTbl(2) = "【選択クエリ（パラメータなし）】"
                strTbl(2) = strTbl(2) & vbCrLf & " " & tbl.Name
            Case "LINK"
                If strTbl(3) = "" Then strTbl(3) = "【リンクテーブル（ODBC以外）】"
                strTbl(3) = strTbl(3) & vbCrLf & " " & tbl.Name
            Case "ACCESS TABLE"
                If strTbl(4) = "" Then strTbl(4) = "【Access システムテーブル】"
                strTbl(4) = strTbl(4) & vbCrLf & " " & tbl.Name
            Case "SYSTEM TABLE"
                If strTbl(5) = "" Then strTbl(5) = "【Microsoft jet システムテーブル】"
                strTbl(5) = strTbl(5) & vbCrLf & " " & tbl.Name
            Case "PASS-THROUGH"
                If strTbl(6) = "" Then strTbl(6) = "【リンクテーブル（ODBC）】"
                strTbl(6) = strTbl(6) & vbCrLf & " " & tbl.Name
        End Select
    Next tbl
    
    'クエリ
    strQry(1) = "【選択クエリ（パラメータなし）】"
    For Each qry1 In cat.Views
        strQry(1) = strQry(1) & vbCrLf & " " & qry1.Name
    Next
    
    strQry(2) = "【アクションクエリ＆パラメータ付選択クエリ】"
    For Each qry2 In cat.Procedures
        strQry(2) = strQry(2) & vbCrLf & " " & qry2.Name
    Next
    
    msg1 = Join(strTbl, vbCrLf)
    msg2 = Join(strQry, vbCrLf)
    
    MsgBox msg1 & vbCrLf & msg2
    
ErrHandler:
    If Err.Number <> 0 Then
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
    Set cat = Nothing
    Set tbl = Nothing
    Set qry1 = Nothing
    Set qry2 = Nothing

End Sub

Sub Sample_ADOX_tablequery()

'参照設定:Microsoft ActiveX Data Objects 6.1 Library

'参照設定:Microsoft ADO Ext.6.0 for DDL and Security

Dim cat As ADOX.Catalog

Dim tbl As ADOX.Table

Dim qry1 As ADOX.View

Dim qry2 As ADOX.Procedure

Dim constr As String

Dim DBFile As String

Dim strTbl(1 To 6) As String

Dim strQry(1 To 2) As String

Dim msg1 As String

Dim msg2 As Variant

On Error GoTo ErrHandler

'データベースのパスと名前

'Access 2007以降（accdb ファイル）

DBFile = ActiveWorkbook.Path & "\mydb3.accdb"

constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile

'Access 2003以前（mdb ファイル）

'DBFile = ActiveWorkbook.Path & "\mydb2.mdb"

'ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFile

Set cat = New ADOX.Catalog

cat.ActiveConnection = constr

'テーブル

For Each tbl In cat.Tables

Select Case tbl.Type

Case "TABLE"

If strTbl(1) = "" Then strTbl(1) = "【テーブル】"

strTbl(1) = strTbl(1) & vbCrLf & " " & tbl.Name

Case "VIEW"

If strTbl(2) = "" Then strTbl(2) = "【選択クエリ（パラメータなし）】"

strTbl(2) = strTbl(2) & vbCrLf & " " & tbl.Name

Case "LINK"

If strTbl(3) = "" Then strTbl(3) = "【リンクテーブル（ODBC以外）】"

strTbl(3) = strTbl(3) & vbCrLf & " " & tbl.Name

Case "ACCESS TABLE"

If strTbl(4) = "" Then strTbl(4) = "【Access システムテーブル】"

strTbl(4) = strTbl(4) & vbCrLf & " " & tbl.Name

Case "SYSTEM TABLE"

If strTbl(5) = "" Then strTbl(5) = "【Microsoft jet システムテーブル】"

strTbl(5) = strTbl(5) & vbCrLf & " " & tbl.Name

Case "PASS-THROUGH"

If strTbl(6) = "" Then strTbl(6) = "【リンクテーブル（ODBC）】"

strTbl(6) = strTbl(6) & vbCrLf & " " & tbl.Name

End Select

Next tbl

'クエリ

strQry(1) = "【選択クエリ（パラメータなし）】"

For Each qry1 In cat.Views

strQry(1) = strQry(1) & vbCrLf & " " & qry1.Name

strQry(2) = "【アクションクエリ＆パラメータ付選択クエリ】"

For Each qry2 In cat.Procedures

strQry(2) = strQry(2) & vbCrLf & " " & qry2.Name

msg1 = Join(strTbl, vbCrLf)

msg2 = Join(strQry, vbCrLf)

MsgBox msg1 & vbCrLf & msg2

ErrHandler:

If Err.Number <> 0 Then

MsgBox Err.Number & vbCrLf & Err.Description

End If

Set cat = Nothing

Set tbl = Nothing

Set qry1 = Nothing

Set qry2 = Nothing

End Sub

テーブル名の取得

Table.Type プロパティ

引数・戻り値

Catalog.Views コレクション

引数・戻り値

Catalog.Procedures コレクション

引数・戻り値

ADOX で、テーブル名・クエリ名を取得する例

サンプルVBAソース

実行結果