HOME > 即効テクニック > AccessVBA > Access設定 > 他のAccessデータベースに接続する

即効テクニック
Access設定

他のAccessデータベースに接続する

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

●詳細●

  1. エラーの処理ルーチンを有効にします。
    2. 

  2. オブジェクト変数の宣言を行います。
    3. 

  3. オブジェクトへの参照を代入します。
    4. 

  4. Accessデータベースに接続するために接続情報を設定します。
C:My documents\access講習会\演習１.mdb　に接続します。
    5. 

  5. Accessデータベースに接続
    6. 

  6. 商品テーブルを参照して、参照のみ可能なレコードセットを取得します。
    7. 

  7. 商品番号が25のレコードを検索します。
    8. 

  8. 商品名と単価をフォームに表示します。
    9. 

  9. レコードセットを閉じます。
    10. 

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

  11. エラー処理でメッセージを表示し､処理を継続します。


●サンプルプログラム●
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=データベースファイル名"を設定します。
ビジネス統計スペシャリスト VBAエキスパート