mdbファイルの新規作成 (ID:76132)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 下記のコードでできました。 ありがとうございました。 'データベースファイルの新規作成 Dim cat As New ADOX.Catalog Dim tbl As New ADOX.Table Dim col As New ADOX.Column Dim strConnect As String ' ADOコネクション文字列の指定 strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFile & ";Jet OLEDB:Engine Type=5;" 'データベースの作成 cat.Create strConnect '新規テーブルの作成 tbl.Name = "アイテムリスト" cat.Tables.Append tbl