VBScript でAccessデータベースのスキーマを取得する

VBScript でAccessデータベースのスキーマを取得するサンプルです。データベースに存在するテーブル名やテーブル内のフィールド名を取得します。





Dim oConn
Dim oRS

 Set oConn = CreateObject("ADODB.Connection")

 
 oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\mdb\diary.mdb"

 Set oRS = oConn.OpenSchema(4)

 while not oRS.EOF
str_message=str_message & oRS("Table_Name")
str_message=str_message & " " & oRS("Column_Name")
str_message=str_message & " " & oRS("Data_Type")
str_message=str_message & " " & oRS("Character_Maximum_Length")
str_message=str_message & vbCrlf

oRS.movenext
 Wend
msgbox str_message