Access VBA： ADOXで新規データベースファイルの作成
ADOXとはADOの拡張機能です。
Access VBAでADOXを使うと、データベース、テーブル、クエリを新規に作成したり、既存のテーブルやクエリの構造を変更することができます。■ 実行前の準備
VBE画面のメニュー「 ツール 」-「 参照設定 」で[ Microsoft ADO Ext. 2.8 for DDL and Security 」
のチェックをONにします。
■ 実行Access画面
「 ADOXでデータベースを新規作成 」ボタンで作成を開始します。
作成されますと、「データベースファイルを新規作成しました。」とメッセージが表示されます。
■ 作成されたデータベース
中身は空です。
■ Access VBA 実行コード例
Option Compare Database
Option Explicit
Private Sub コマンド0_Click()
Dim ca As New ADOX.catalog
Dim sfina As String
sfina = "c:\adoxtest.mdb"
ca.create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfina
MsgBox "データベースファイルを新規作成しました。"
End Sub
Option Explicit
Private Sub コマンド0_Click()
Dim ca As New ADOX.catalog
Dim sfina As String
sfina = "c:\adoxtest.mdb"
ca.create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfina
MsgBox "データベースファイルを新規作成しました。"
End Sub
Home 
Tips メニューCopyright(C) FeedSoft