ExcelでDAOを使いデータベースソフトを作ってみよう Step 3　MDBファイルにデータを追加する　AddNewメソッド

シート画面

Excelの実行画面
「MDBファイルにデータを追加」ボタンをクリックするとE6：F7の「名前」と「フリガナ」を追加します。
追加する顧客データ

追加されたMDBファイル「顧客マスター」テーブル
「名前」フィールド、「フルガナ」フィールドにセルのデータが追加されています。
顧客テーブルのデータ

シートのVBAコード

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

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

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

Step 3 MDBファイルにデータを追加する AddNewメソッド

シート画面

シートのVBAコード

Step 3　MDBファイルにデータを追加する　AddNewメソッド