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

Private Sub CommandButton2_Click()
    Dim db As Database
    Dim rs As Recordset
    
    'データベースを開きます
    Set db = OpenDatabase("C:\excel_sample.mdb")

    'テーブルを開きます
    Set rs = db.OpenRecordset("顧客マスター", dbOpenTable)

    'データを追加します
    rs.AddNew
    'データをセットします
    rs!名前 = ActiveSheet.Range("E6").Value
    rs!フリガナ = ActiveSheet.Range("F6").Value
    rs.Update

    '繰り返します
    rs.AddNew
    rs!名前 = ActiveSheet.Range("E7").Value
    rs!フリガナ = ActiveSheet.Range("F7").Value
    rs.Update

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