HOME > 即効テクニック > AccessVBA > データベース・データ保護 > テーブルのリンクの更新(DAO)

即効テクニック

データベース・データ保護

テーブルのリンクの更新(DAO)

(Access 97)
他データベースのテーブルにリンクさせたテーブルを、RefreshLinkメソッドを用いて更新します。ここでは他のデータベース「出席者名簿1.mdb」内のテーブル「量子力学」を自データベース「NorthWind.mdb」にリンクさせたテーブル「量子力学出席者」の内容をまた別のデータベース「出席者名簿2.mdb」内のテーブル「量子力学」に更新させます。

(テーブル)
「出席者名簿2.mdb」のテーブル「量子力学」
 学生番号   出席者名
  0001    森上 偉久馬
  0002    田中 和明
  0004    葛城 孝史
  0006    新田 哲也
  0008    内野 義昭
  0003    平野 彩子
  0009    青木 俊之

●サンプルコード●
Private Sub Dao_Link2()
'リンクの更新
  Dim DB As Database
  Dim tbl As TableDef
  
  Set DB = OpenDatabase("D:\NorthWind.mdb")
  Set tbl = DB.TableDefs("量子力学出席者")
  tbl.Connect = ";DATABASE=D:\出席者名簿2.mdb"
  tbl.RefreshLink

  DB.Close

  Set DB = Nothing
  Set tbl = Nothing
    
End Sub

●動作確認●
「NorthWind.mdb」内リンクテーブル「量子力学出席者」の内容が更新されていることを確認してください。

●補足●
出席者名簿1.mdbと出席者名簿2.mdbのテーブル名は同じであることが必要です。