VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/09/25(Wed) 13:22
投稿者： とろ
Ｅメール：
ＵＲＬ：
タイトル： Re: ADOでテーブルの存在の確認

> ADO接続でAccess2000のMDBの中に、指定のテーブルがあるかどうか確認したいのですが、
> SQL文で結果セットを取得する前に確認する方法はないでしょうか。

ADOX (ADO Ext) も使って良いならば、下のようにすることもできます。

  Dim oConnection As ADODB.Connection
  Dim oCatalog    As ADOX.Catalog
  Dim oTable      As ADOX.Table
  
  Set oConnection = New ADODB.Connection
  oConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Sample.mdb;"
  
  Set oCatalog = New ADOX.Catalog
  oCatalog.ActiveConnection = oConnection
  
  For Each oTable In oCatalog.Tables
    Debug.Print oTable.Name
  Next
  
  oConnection.Close
  
  Set oTable = Nothing
  Set oCatalog = Nothing
  Set oConnection = Nothing

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -