動態鏈接

Question

我試圖讓錶鏈接到後端在啓動Access 2010中，

下面是代碼：

dbs.TableDefs(intLoop - 1).Connect = ";DATABASE=" & strBack & strBackEnd 
Debug.Print (dbs.TableDefs(intLoop - 1).Connect) 
dbs.TableDefs(intLoop - 1).RefreshLink 

現在的連接是一個文件上C：或D：驅動器取決於PC設置。但不是連接到文件，而是打開系統DNS選擇器窗口。

任何線索爲什麼？路徑有效，數據庫有效。

Answer 1

在評論你解釋：

數據庫具有本地表，連接到MDB文件的混合和鏈接 到SQLServer的。

可以處理該組合通過檢查每個TableDef的.Connect財產，只有改變那些鏈接到另一個Access數據庫。

Dim dbs As DAO.Database 
Dim tdf As DAO.TableDef 

Set dbs = CurrentDb 
For Each tdf In dbs.TableDefs 
    With tdf 
     If .Connect Like ";DATABASE=*" Then 
      .Connect = ";DATABASE=" & strBack & strBackEnd 
      .RefreshLink 
     End If 
    End With 
Next 

該建議假設鏈接已經存在，而您只是試圖改變它們的連接屬性。如果您需要從頭開始創建鏈接，請使用包含每個鏈接表信息的本地表格，然後使用該信息驅動鏈接創建。