戻る

DAO で ODBC リンクテーブルを作成する

概要

DAO を使用して Accessデータベースに ODBC リンクテーブルを作成します。
Database オブジェクトの CreateTableDef メソッドを実行します。
下のサンプルは SQL Server に接続するリンクテーブルを作成する例です。

サンプル

「参照設定」で [Microsoft DAO 3.5 Object Library] に参照します。

　 DAO で ODBC リンクテーブルを作成する

Private Sub CreateLinkTable()

    ' DAO を使用して ODBC リンクテーブルを作成する
    Dim db As DAO.Database
    Dim td As DAO.TableDef
    
    ' データベースを開く（新規作成の場合は CreateDatabase ）
    Set db = DBEngine.OpenDatabase("C:\My Documents\db1.mdb")
    
    ' テーブルの定義
    ' 引数 保存するテーブル名, 属性, リンク先テーブル名, 接続文字列
    Set td = db.CreateTableDef("リンクテーブル", dbAttachSavePWD, _
                               "publishers", _
                               "ODBC;Driver={SQL Server};" & _
                               "Server=(local);UID=sa;PWD=;Database=pubs;")
    
    ' ローカル SQL Server内 pubsデータベースの publishersテーブルへリンクしています
    
    db.TableDefs.Append td 'テーブルに加える
    
End Sub

©2000 VBMANIA All rights reserved.