Microsoft Access Club >VBAのTips解説 >このページ >次頁 < 前項  サイト内検索
 

他のデータベースを参照する方法 : VBAのTips解説



OpenDatabaseメソッド(Access97を除く)

OpenDatabaseメソッドとは、Setステートメントを用いて、データベース変数に他のデータベースーの参照を代入するメソッドです。CurrentDbメソッドと異なるところは、開かれたデータベースだけではなく、ネットワーク接続されたデータベースまで操作できるところです。

  • 書式
Set database = workspace.OpenDatabase (dbname, options, read-only, connect)
  • 引数
引数 意味 指定
database Databaseオブジェクトを表すオブジェクト変数を指定します 省略不可
workspace 既存のWorkspaceオブジェクトを表すオブジェクト変数を指定します 省略可。省略した場合は、既存のWorkspaceオブジェクトになります。
dbname 既存のJetデータベースのファイル名、またはODBCデータソースのデータソース名を指定します  
options 共有、排他モードの設定を行います 省略可。省略した場合は、共有モードになります
read-only 読み取り専用権限モード、または読み取り/書き込み権限モードの設定を行います 省略可。省略した場合は、読み取り/書き込み権限モードになります
connect パスワードを含むさまざまな接続情報を指定します 省略可。省略した場合は、設定なしになります

引数の設定値

  • 引数options
意味  
True 排他モードでデータベースを開きます  
False 共有モードでデータベースを開きます

(既定値)

  • 引数read-only
意味  
True データベースを読み取り専用権限で開きます  
False データベースを読み取り/書き込み権限で開きます

(既定値)

関連項目

  1. CurrentDbメソッド(DAO)
  2. FileLen関数

事例 )他ドライブにあるAccessテーブルのフィールド明細を求める

他ドライブにあるAccessテーブルのフィールド明細を求めます。

  1. 非連結フォームを作成します。
  2. 実行するコマンドボタンを新規作成します。

コマンドボタンクリック時イベントプロシージャの作成

コマンドボタンクリック時イベントプロシージャを以下のように作成します。

Private Sub 実行_Click()

    On Error GoTo エラー

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strFileName As String
    Dim strTableName As String
    Dim strMsg As String

    strFileName = "C:\在庫管理.mdb" '--- A
    strTableName = "棚卸"

    Set db = OpenDatabase(strFileName)
    Set rs = db.OpenRecordset(strTableName, dbOpenTable)

    Do Until rs.EOF
        strMsg = strMsg & vbNewLine & rs!ID & " : " & _
        rs!商品名 & " : " & rs!個数 & "個"
        rs.MoveNext
    Loop

    MsgBox strFileName & vbNewLine & strMsg

    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing

    Exit Sub

エラー:

    MsgBox Err.Number & " : " & Err.Description
    Exit Sub

End Sub
解説
  1. C:\在庫管理.mdbの棚卸テーブルでレコードセットを作成します。

実行結果

  1. フォームをビューモードで開きます。

  1. [棚卸品目の確認] コマンドボタンをクリックします。
  2. 棚卸テーブルのレコードがメッセージボックスに表示されます。

ページの先頭へ 前ページへ戻る


他のデータベースを参照する方法 : VBAのTips解説


 

-Microsoft Access Club-

注目のモンスター専用サーバーからお買い得プランまで幅広くそろえています。cPanel、PLESK、WEBMINまでお任せ下さい。
注目のモンスター専用サーバーからお買い得プランまで幅広い。
cPanel、PLESK、WEBMINまでお任せ下さい。