訪問/ vba如何在信息選項卡中啓用服務器管理器按鈕，並使用dsn連接

我正在將舊的Access/VBA數據庫轉換爲Access 2010.在舊項目中，文件 - >信息表單上有一個「服務器」按鈕管理與SQL數據庫的連接。這提供了一個DSN較少的連接。創建數據庫並從舊版本導入後，該按鈕不再存在。我一直無法找到任何這方面的參考，並想知道是否有人使用相同的方法進行連接以及如何創建按鈕。訪問/ vba如何在信息選項卡中啓用服務器管理器按鈕，並使用dsn連接

Server Button

來源

2017-01-26 JFarris

從圖像看來它是一個.adp（Access數據項目）文件，它現在在新版本的Access中不存在。使用某些VBA可以創建ODBC DSN-less連接：https://support.microsoft.com/en-us/help/892490/how-to-create-a-dsn-less-connection-to-sql-server- for-linked-tables-in-access – Fink

這對.adp是正確的，你已經證實了我的想法。反正配置文件更好。謝謝 – JFarris

創建一個按鈕調用此函數。傳遞鏈接表（strName）和DSN名稱（strODBC）的名稱。

Function EditConString(strName$, strODBC$) 

Dim DB As DAO.database 
Dim tdf As DAO.TableDef 

tablename = strName 
'replace with the access link name 

Set DB = CurrentDb() 
Set tdf = DB.TableDefs(tablename) 

tdf.Connect = "ODBC;DSN=" & strODBC 
'replace with the ODBC connection DSN name 
tdf.RefreshLink 

Set tdf = Nothing 
DB.Close 

End Function

來源

2017-01-31 15:49:41 RyanL

訪問/ vba如何在信息選項卡中啓用服務器管理器按鈕，並使用dsn連接

回答

相關問題