戻る

DAO で 外部MDBファイルへのリンクテーブルを作成する

概要

DAO を使用して外部のMDBファイルを参照するリンクテーブルを作成します。
「参照設定」で[Microsoft DAO 3.5 Object Library] を参照する必要があります。

サンプル

　 DAO で 外部MDBファイルへのリンクテーブルを作成する

Option Explicit

Private Sub cmdLink_Click()
'// MDBファイルを参照するリンクテーブルの作成
'// [Microsoft DAO 3.5 Object Library] を参照設定する

    Dim dbTarget As DAO.Database
    Dim tdNew As DAO.TableDef
    
    Dim strSource As String
    Dim strTarget As String
    
    'リンク先データベースとリンクデータベース名を指定
    strSource = "C:\Program Files\DevStudio\VB\biblio.mdb"
    strTarget = "C:\My Documents\link.mdb"
        
    '新規データベースの作成（
既存のデータベースの場合は OpenDatabase を使用する）
    Set dbTarget = DBEngine.CreateDatabase(strTarget, dbLangJapanese)
    
    '任意の名前でテーブル定義を作成する
    Set tdNew = dbTarget.CreateTableDef("Publishers")
    
    'リンク先のテーブル名を指定する
    tdNew.SourceTableName = "Publishers"
    
    'リンク先のデータベースを指定する（対象がMDBの場合セミコロンの前は省略）
    tdNew.Connect = ";Database=" & strSource
    
    '定義したテーブルをアペンド（追加）する
    dbTarget.TableDefs.Append tdNew
    
End Sub


©2000 VBMANIA All rights reserved.