MDB 内のテーブル一覧の取得

  OpenSchema メソッド



  
Set Cn = CreateObject("ADODB.Connection")
strConnection = _
	"Provider=Microsoft.Jet.OLEDB.4.0;" & _
	"Data Source=c:\temp\販売管理B.mdb;"

	cn.Open strConnection

Set Rs = Cn.OpenSchema( 20 )
' Set Rs = Cn.OpenSchema( 20, Array( Empty, Empty, Empty, "TABLE" ) )

strData = ""
For i = 0 to Rs.Fields.Count - 1
	if i <> 0 then
		strData = strData & " : "
	end if
	strData = strData & Rs.Fields( i ).Name
Next
Wscript.Echo strData

Do while NOT Rs.EOF
	strData = ""
	For i = 0 to Rs.Fields.Count - 1
		if i <> 0 then
			strData = strData & " : "
		end if
		strData = strData & Rs.Fields( i ).Value
	Next
	Wscript.Echo strData
	' 2 : テーブル名
	' 3 : 種別
	Rs.MoveNext
Loop

Rs.Close
Cn.Close
  



  実行結果



TABLE_NAMETABLE_TYPE
IADDRESS TABLE
IBOARD TABLE
ICIRCUL TABLE
ICOMMENT TABLE
ICOMPANY TABLE
IERRMES TABLE
IEST TABLE
IGROUP TABLE
IMEMBER TABLE
ISCH TABLE
LOG TABLE
MAILDAT TABLE
MAILIDX TABLE
MSysAccessObjects ACCESS TABLE
MSysACEs SYSTEM TABLE
MSysObjects SYSTEM TABLE
MSysQueries SYSTEM TABLE
MSysRelationships SYSTEM TABLE
NOTICE TABLE










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ