HOME > 即効テクニック > AccessVBA > データ操作 > Recordsetオブジェクト(ADO)を使ってレコードを追加する

即効テクニック

データ操作

Recordsetオブジェクト(ADO)を使ってレコードを追加する

(Access)
●概要●
Access2000に登場したADO(Microsoft ActiveXデータオブジェクト)を使ってレコードを追加する方法です。

●詳細●
  1. ADOはccessデータベース以外にもSQLサーバーやオラクルにも アクセスすることが目的です。 ADOではコネクションというオブジェクトを使ってデータベースに 接続します。 カレントのデータベースを開くにもコネクションの指定が必要です。
  2. Recordsetオブジェクトを使うためには、まずオブジェクト変数の 宣言を行い、次に宣言したオブジェクト変数に、オブジェクトの 参照を割り当てる処理が必要になります。ここでは宣言と同時に 新規オブジェクトへ参照を代入しています。
  3. カレントデータベースに接続します。
  4. 商品テーブルを参照して、編集可能なレコードセットを取得します。
  5. AddNewメソッドでレコードセットに新しいレコードを追加します。
  6. 商品名フィールドと単価に値を代入しています。
  7. レコードを保存するには、Updateメソッドを実行する必要があります。
  8. レコードセットを閉じます。
  9. オブジェクト変数を削除します。
  10. データベースの接続を終了します
  11. オブジェクト変数を削除します。
●サンプルコード● Private Sub 登録_Click()     Dim cn  As ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection rs.Open "商品テーブル",cn,adOpenKeyset,adLockOptimistic,adCmdTableDirect rs.AddNew rs("商品名") = Me![商品名] rs("単価") = Me![単価] rs.Update rs.Close Set rs = Nothing     cn.Close Set cn = Nothing End Sub ●注意● Visual BasicでADOを利用するためにはデータベースにADOのライブラリーを追加する必要があります。Visual Basic Editorを起動してメニューバーの「ツール」-「参照設定」を選択し、「参照可能なライブラリファイル」の中に、Microsoft ActiveX DataObjects 2.1 Library にチェックがついていることを確認してください。通常、Access2000で新規作成すると上記ライブラリを含めた4つのライブラリがチェックされています。