>>755
VBScriptでも作れるぞ。
メモ帳に貼り付けて拡張子を .vbs にして保存し、おもむろに実行しれ。
これは ADOX つかってる。


DBName = "新VIPデータベース.mdb"
CnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & DBName & ";"
Set cat = CreateObject("ADOX.Catalog")
cat.Create CnnString
cat.ActiveConnection = CnnString
Set tbl = CreateObject("ADOX.Table")
tbl.Name = "VIPテーブル"
With tbl.Columns
.Append "VIP10桁", 130, 10
.Append "VIP60文字", 130, 60
.Append "VIP特別価格", 6
End With
cat.Tables.Append tbl