戻る

ADOX で SQL Server のテーブル一覧を取得する

概要

ADO と ADOX を組み合わせて SQL Server のテーブル一覧を取得します。

サンプル

「参照設定」で [Microsoft ActiveX Data Objects 2.1 Library] に参照します。
「参照設定」で [Microsoft ADO Ext 2.1 for DDL and Security] に参照します。

ADOX で SQL Server のテーブル一覧を取得する
		' ADO + ADOX で SQL Server のテーブル一覧を取得する          Dim cnn As New ADODB.Connection     Dim cat As New ADOX.Catalog     Dim tbl As ADOX.Table          cnn.Open "Provider=SQLOLEDB;Data Source=(local);" & _              "Initial Catalog=pubs;", "sa", ""          cat.ActiveConnection = cnn ' テーブル一覧を取得する接続先を指定          ' ＤＢ(pubs)のテーブルコレクション内をループする     For Each tbl In cat.Tables              If tbl.Type = "TABLE" Then ' 通常のテーブルの場合だけ             Debug.Print tbl.Name   ' テーブル名を出力する         End If              Next

©2000 VBMANIA All rights reserved.