DAO を使用して Accessデータベース(MDB)を作成する方法

◆概要

　この資料は、Visual Basic 6.0でDAO を使用して Accessデータベース(MDB)を作成する方法について説明します。


　DAO を使用して Accessデータベースを作成するには、CreateDatabase メソッドを使います。具体的には、CreateDatabase メソッドの第1引数にデータベース名、第2引数に文字列比較の順序の基準の形式、第3引数にデータベースの形式指定を指定します。

この例では、第2引数には日本語を基準とした比較を選択するdbLangJapaneseを指定しています。


このサンプルコードを利用するには、「参照設定」で [Microsoft DAO 3.51 Object Library] を選択しておくことが必要です。

Option Explicit

Private Sub Command1_Click()
    Call CreateDB
End Sub

Sub CreateDB()
    Dim strDatabase As String   ' 作成するデータベース名
    Dim wsDb As Workspace       ' Workspaceクラスのオブジェクト変数
    Dim dbDb As Database        ' Databaseクラスのオブジェクト変数

    strDatabase = App.Path & "\" & "AddressBook.mdb"
    
    ' Workspacesコレクションのオブジェクト変数に代入
    Set wsDb = DBEngine.Workspaces(0)
    
    ' データベースファイルがすでに存在するかどうかを確認し、
    ' 存在すれば削除する
    If Dir(strDatabase) <> "" Then Kill strDatabase
    
    ' Access95形式データベースファイルを作成
    Set dbDb = wsDb.CreateDatabase(strDatabase, dbLangJapanese, _
              dbVersion30)
    
    'オブジェクトを閉じる
    dbDb.Close
    wsDb.Close
End Sub


▼ページトップへ