即効テクニック |
他のデータベース内のテーブルにリンクしたテーブルを作成します。 ●準備● ここでは他のデータベース「出席者名簿1.mdb」内のテーブル「量子力学」を自データベース「NorthWind.mdb」にリンクさせます。 テーブル「量子力学」 学生番号 出席者名 0002 田中 和明 0003 平野 彩子 0004 葛城 孝史 0006 新田 哲也 0007 山本 雅治 0008 内野 義昭 0010 稲垣 友子 ●サンプルプログラム● Private Sub Dao_Link1() 'リンクの作成 Dim DB As Database Dim tbl As TableDef Set DB = OpenDatabase("D:\NorthWind.mdb") 'リンクテーブル「量子力学出席者」を作成 Set tbl = DB.CreateTableDef("量子力学出席者") 'リンク元の設定 tbl.Connect = ";DATABASE=D:\出席者名簿1.mdb" tbl.SourceTableName = "量子力学" 'リンク元テーブル名 DB.TableDefs.Append tbl DB.Close Set DB = Nothing Set tbl = Nothing End Sub NorthWind.mdb」内にリンクテーブル「量子力学出席者」が作成されていることを確認してください。