ExcelでDAOを使いデータベースソフトを作ってみよう

Option Explicit

Private Sub CommandButton1_Click()
    Dim db As Database
    Dim tbdef As TableDef
    Dim fld As Field

    ' データベースを作成します
    Set db = DBEngine.Workspaces(0).CreateDatabase("C:\excel_sample.mdb", dbLangJapanese)

    'テーブルを作成します
    Set tbdef = db.CreateTableDef("顧客マスター")

    'フィールドを作成します。
    Set fld = tbdef.CreateField("名前", dbText, 20)
    tbdef.Fields.Append fld
    Set fld = tbdef.CreateField("フリガナ", dbText, 20)
    tbdef.Fields.Append fld
    db.TableDefs.Append tbdef

    'データベースを閉じます
    db.Close
    '終了処理を行います
    Set fld = Nothing
    Set tbdef = Nothing
    Set db = Nothing
End Sub