スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
Access2000に登場したADO(Microsoft ActiveXデータオブジェクト）を使って他のAccessに接続し、テーブルを参照する方法です。

●詳細●
エラーの処理ルーチンを有効にします。
オブジェクト変数の宣言を行います。
オブジェクトへの参照を代入します。
Accessデータベースに接続するために接続情報を設定します。
C:My documents\access講習会\演習１.mdb　に接続します。
Accessデータベースに接続
商品テーブルを参照して、参照のみ可能なレコードセットを取得します。
商品番号が25のレコードを検索します。
商品名と単価をフォームに表示します。
レコードセットを閉じます。
オブジェクト変数を削除します。
エラー処理でメッセージを表示し､処理を継続します。

●サンプルプログラム●
Private Sub 照会_Click()

On Error GoTo Err_cancel

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset


Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.jet.oleDB.4.0; " _
 & "Data source=C:\My Documents\access講習会\演習１.mdb"
 
cn.Open


rs.Open "商品テーブル", cn, adOpenKeyset, adLockReadOnly, adCmdTableDirect
        
Let rs.Index = "商品番号"
rs.Seek 25, adSeekFirstEQ
              
Let Me![商品名] = rs("商品名")
Let Me![単価] = rs("単価")
              

rs.Close
       
cn.Close

Exit_shoukai:
  Set cn = Nothing
  Exit Sub
  
Err_cancel:
  MsgBox (Err.Number & "," & Err.Description)
  Resume Exit_shoukai
           
            
End Sub

●注意●
Accsessデータベースに接続するには、ConnectionStringプロパティに "Provider=Microsoft.jet.oleDB.4.0; " _ & "Data source=データベースファイル名"を設定します。