Microsoft Access Club >VBAのTips解説 >このページ >次頁 < 前項  サイト内検索
 

ADOXを用いて新しいデータベースファイルを作成する方法 : VBAのTips解説



Createオブジェクト<クリエイト>

Createオブジェクトとは、Accessファイルを新規に作成するメソッドです。利用する際には、作成するAccessファイルを保存するフォルダーまでのパスとファイル名を指定します。

  • 書式
Catalog.Create ConnectString
  • 引数
引数 意味 指定
catalog Catalogオブジェクト型のオブジェクトを指定します 省略不可
ConnectionString 接続情報を指定します 省略不可

事例 ) Cドライブに、データベースファイルを新規作成する

Cドライブに、データベースファイルを新規に作成します。

  1. 非連結フォームを作成します。
  2. 実行するコマンドボタンを作成します。

コマンドボタンクリック時イベントプロシージャの作成

コマンドボタンクリック時イベントプロシージャを以下のように作成します。

Private Sub 実行_Click()

   On Error GoTo エラー

   Dim cat As New ADOX.Catalog
   Dim strP As String
   Dim strS As String

   strP = "Microsoft.Jet.OLEDB.4.0"
   strS = "C:\在庫管理.mdb"

   If MsgBox(strS & "を新規作成しますか?", vbYesNo) = vbYes Then
      cat.Create "Provider=" & strP & ";" & "Data Source=" & strS --- A
      MsgBox strS & "を新規作成しました。"
   End If

   Exit Sub

エラー:

   If Err.Number = -2147217897 Then
      MsgBox "既に、" & strS & "が存在します。"
   Else
      MsgBox Err.Number & " : " & Err.Description
   End If

   Exit Sub

End Sub
解説
  1. データベースを新規作成します。

動作確認

  1. フォームをビューモードで開きます。
  2. [実行] ボタンをクリックします。

  1. Cドライブに在庫管理.mdbが新規に作成されます。

ページの先頭へ 前ページへ戻る

 


ADOXを用いて新しいデータベースファイルを作成する方法 : VBAのTips解説


 

-Microsoft Access Club-

注目のモンスター専用サーバーからお買い得プランまで幅広くそろえています。cPanel、PLESK、WEBMINまでお任せ下さい。
注目のモンスター専用サーバーからお買い得プランまで幅広い。
cPanel、PLESK、WEBMINまでお任せ下さい。