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

● 詳細 ●
(1) エラーの処理ルーチンを有効にします。
(2) オブジェクト変数の宣言を行います。
(3) オブジェクトへの参照を代入します。
(4) Accessデータベースに接続するために接続情報を設定します。
     C:My documents\access講習会\演習1.mdb に接続します。 
(5) Accessデータベースに接続
(6) 商品テーブルを参照して、参照のみ可能なレコードセットを取得します。
(7) 商品番号が25のレコードを検索します。
(8) 商品名と単価をフォームに表示します。
(9) レコードセットを閉じます。
(10)オブジェクト変数を削除します。
(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講習会\演習1.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=データベースファイル名"を設定します。

Access2000



戻る


Excel Word Access VBA! モーグ