ACCESSのMDBファイルに接続する
MDBファイルの場合、OLE DBプロバイダに接続するには下記になります。
db.Provider = "Microsoft.Jet.OLEDB.4.0"
接続先は、サンプルとして作成した「顧客管理.mdb」ファイルです。
Homeに戻る >
Excel データベースのTipsへ
設定手順
「Accessファイルを開く」ボタンをクリックすると、MDBファイルに接続し、顧客マスターテーブルのレコード数を取得後、メッセージボックスに表示します。
コード
Option Explicit
'Access Mdbファイルを開く
Private Sub ExMdbImport()
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
'顧客管理のMDBファイルに接続します
Set db = New ADODB.Connection
db.Provider = "Microsoft.Jet.OLEDB.4.0"
db.Open "C:\MyHP\excel2007\Tips\顧客管理.mdb"
'レコードセットを開きます
Set rs = New ADODB.Recordset
rs.Open "T_顧客マスター", db, adOpenStatic
'レコード数の取得
If rs.RecordCount = 0 Then
MsgBox "顧客のレコードが見つかりません。"
Else
MsgBox rs.RecordCount & " 件の顧客レコードが登録されています。(MDB)"
End If
'終了処理
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
Private Sub CommandButton1_Click()
ExMdbImport
End Sub
Homeに戻る >
Excel データベースのTipsへ
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved