如何創建從MDB到SQL Server的鏈接表

Question

我有一個應用程序在通過無線網絡訪問MDB數據庫時遇到問題。

快速解決方案是在所有將其所有表連接到SQL Server數據庫的工作站上有一個本地MDB文件嗎？

這是一種避免必須重新編寫應用程序中的所有數據訪問代碼的方法嗎？

Answer 1

是的，這樣做會很好。我們有許多用這種方式連接的客戶。
然而，這不是一件容易的事。不確定是否所有的努力都會爲自己付出代價。
而且您還有一些新的維護和部署問題。

遵循的步驟是這樣的：

1）遷移你的表到SQLServer的
2）創建ODBC數據源將被用於連接到後端數據庫
3）連接您的表
4）重命名您的連接表以刪除模式限定符（例如「dbo_」），以便您的鏈接表具有與以前相同的名稱。

現在該是測試所有代碼的時候了。
希望你不必重寫任何東西。

真正的問題在於您需要創建與原始ODBC數據源相匹配的客戶端PC。另外，如果您重新分配前端數據庫，則可能需要重新連接來自客戶端PC的所有表。 你需要調用這樣的功能：

Public Function UpdateODBCTables() As Boolean 

    On Error GoTo Exit_On_Error 
    Dim dbs As DAO.Database 
    Dim tdf As DAO.TableDef 
    Dim sDSN As String 
    Dim sDB As String 
    Dim sComputer As String 
    Dim sDesc As String 
    Dim sApp As String 
    Dim strConnect As String 

    sDSN = "YOUR_DSN_NAME" 
    sDB = "YOUR_DATABASE_NAME" 
    sComputer = "YOUR_COMPUTER_NAME" 
    sApp = "YOUR_APP_NAME" 
    sDesc = "DESCRIPTION_OF_YOUR_APP" 

    strConnect = "ODBC;DSN=" & sDSN & ";" & _ 
       "DATABASE=" & sDB & ";" & _ 
       "WSID=" & sComputer & ";" & _ 
       "TrustedConnection=Yes;" & _ 
       "Description=" & sDesc & ";" & _ 
       "APP=" & sApp ";" 
    Set dbs = CurrentDb 
    ' Loop over tabledefs of ODBC type and reconnect 
    For Each tdf In dbs.TableDefs 
     If tdf.Connect <> "" And Left(tdf.Connect, 4) = "ODBC" And Left(tdf.Name, 1) <> "~" Then 
      tdf.Connect = strConnect 
      tdf.RefreshLink 
     End If 
    Next 
    dbs.TableDefs.Refresh 
    UpdateODBCTables = True 

Exit_On_Return: 
    Set dbs = Nothing 
    Exit Function 

Exit_On_Error: 
    MsgBox Err.Description, vbCritical, "YOUR_MESSAGE_TITLE" 
    Resume Exit_On_Return 
End Function