VB初心者友の会 - Q&A掲示板過去ログ

> 例えば、『ある mdb ファイルの中に
> sample というテーブルが存在しなかった場合には、
> sample というテーブルを作成する』
> という操作をしたいのですが。
> 
> 現在は、 sample というテーブルがあるものとして処理を行い、
> OpenRecordset("select ..... from sample")
> の所で、エラーが発生したら、テーブルがなかったのだなぁ、
> と分かるので、そこで改めて
> sample というテーブルを作成するようにしています。
> 
> しかし、この方法だと不可能な点があるので、
> エラートラップを使わずに、前もって存在するテーブルを知りたいのです。
> どうか、ご教授願います。

　ADOXというものを使うと簡単です。
　「Microsoft ADO Ext.2.1 for DDL and Security」に参照設定を行います。

 Dim xCatalog As ADOX.Catalog
 Dim xTable As ADOX.Table

 Set xCatalog = New ADOX.Catalog
 Set xCatalog.ActiveConnection = cn ' 別に作成したADODB.Connection

 For Each xTable In xCatalog.Tables
     If xTable.Type = "TABLE" Then
         Debug.Print xTable.Name
     End If
 Next

　これでテーブル名の一覧が、イミディエイトペインに出力されます。
　OpenSchemaでもできたと思いますが、こちらの方が簡単だと思います。

> 　ADOXというものを使うと簡単です。
> 　「Microsoft ADO Ext.2.1 for DDL and Security」に参照設定を行います。
> 
>  Dim xCatalog As ADOX.Catalog
>  Dim xTable As ADOX.Table
> 
>  Set xCatalog = New ADOX.Catalog
>  Set xCatalog.ActiveConnection = cn ' 別に作成したADODB.Connection
> 
>  For Each xTable In xCatalog.Tables
>      If xTable.Type = "TABLE" Then
>          Debug.Print xTable.Name
>      End If
>  Next
> 
> 　これでテーブル名の一覧が、イミディエイトペインに出力されます。
> 　OpenSchemaでもできたと思いますが、こちらの方が簡単だと思います。

回答ありがとうございました。でも．．．

ADODB の使い方が分かりません。
『Microsoft ActiveX Data Objects 2.0 Library』を参照設定しないと使えないですよね？

ヘルプを開こうとしても、ファイルがありませんというメッセージが出てしまいます。

> ADODB の使い方が分かりません。
> 『Microsoft ActiveX Data Objects 2.0 Library』を参照設定しないと使えないですよね？
ではなくて、
>> 　「Microsoft ADO Ext.2.1 for DDL and Security」に参照設定を行います。
ですよ。

多分、以下のコメントを見て、
>>  Set xCatalog.ActiveConnection = cn ' 別に作成したADODB.Connection
誤解されたのでしょうけれど、ADODBを参照設定しなくても、ADOXは使えます。

その場合、Connectionオブジェクトを渡す代わりに、単純に接続文字列だけを渡すようにすればＯＫです。
    xCatalog.ActiveConnection = 接続文字列

開発環境が、Access2000であるならば、最初からADODBが組み込まれているはずなので、
    Set xCatalog.ActiveConnection = CurrentProject.Connection
というのもアリです。


でもって、レイトバインドなら、参照設定すらいらなくて、
>>  Dim xCatalog As ADOX.Catalog
>>  Dim xTable As ADOX.Table
これはそれぞれ、As Objectに変更し、

>>  Set xCatalog = New ADOX.Catalog
ここを、Set xCatalog = CreateObject("ADOX.Catalog") にすれば、そのまま動きます。


……それと、使っているのがMDBが、Access97形式なのであれば、
ADOXなんて使わずに、DAOのTableDefオブジェクトを使うのが無難です。


> ヘルプを開こうとしても、ファイルがありませんというメッセージが出てしまいます。
ヘルプをインストールしていないのでしょう、きっと。(^^;
バージョンにもよりますが、「ADO260.CHM」だとか、「ADO210.CHM」などというファイルのハズです。

> その場合、Connectionオブジェクトを渡す代わりに、単純に接続文字列だけを渡すようにすればＯＫです。
>     xCatalog.ActiveConnection = 接続文字列
> 
> 開発環境が、Access2000であるならば、最初からADODBが組み込まれているはずなので、
>     Set xCatalog.ActiveConnection = CurrentProject.Connection
> というのもアリです。

　そんな簡単な技があったとは知りませんでした。精進します。ありがとうございます。