Access2000に登場したADO(Microsoft ActiveXデータオブジェクト）を使って
レコードを変更する方法をご紹介します。

　ADOは今後、Access以外のデータベースを扱う場合にも、共通のコーディングで
同じ処理を実現できるので、いったんそのルールを覚えてしまえば、今後もさまざまな
場面で活用することができるでしょう。

● 詳細 ●

(1) ADOではコネクションというオブジェクトを使ってデータベースに接続します。
    カレントのデータベースを開くにもコネクションの指定が必要です。
   
(2) Recordsetオブジェクトを使うためには、まずオブジェクト変数の宣言を行い、
    次に宣言したオブジェクト変数にオブジェクトの参照を割り当てる処理が必要に
    なります。ここでは宣言と同時に新規オブジェクトへ参照を代入しています。

(3) カレントデータベースに接続します。

(4) 商品テーブルを参照して､編集可能なレコードセットを取得します。

(5) 検索に使用するインデックス名をRecordsetオブジェクトのIndexプロパティ
    に設定する

(6) 商品テーブルの中から商品番号が1234のレコードを検索します。

(7) レコードの内容を変更します。

(8) レコードを保存するには、Updateメソッドを実行する必要があります。

(9) レコードセットを閉じます。

(10)オブジェクト変数を削除します。

(11)データベースの接続を終了します

(12)オブジェクト変数を削除します。


● サンプル ●

Private Sub 登録_Click()
　 Dim cn 　As ADODB.Connection
   Dim rs   As New ADODB.Recordset
          
   Set cn =  CurrentProject.Connection

   rs.Open "商品テーブル",cn,adOpenKeyset,adLockOptimistic,adCmdTableDirect
   
　 Let rs.Index = "商品番号"
   rs.Seek 1234, adSeekFirstEQ 
                 
   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で新規作成すると上記ライブラリを含めた４つのライブラリが
    チェックされています。

    ADOではFind系のメソッドを利用してレコードを検索するか、Seekメソッドを利用して
    高速にレコードの検索を行います。