通過VBA自動鏈接/刷新MS Access中的ODBC鏈接表

Question

有沒有人知道在MS-Access 2010中自動鏈接和刷新Postgres鏈接表（通過ODBC）的VBA過程？這是因爲我正在尋找無DSN的連接，以便讓用戶更容易。

Answer 1

下面的VBA代碼將創建的PostgreSQL與DSN的連接鏈接的表...

Sub linkTo_PostgreSQL() 
    createLinkedTable_PostgreSQL "public.table1" 
    ' repeat as necessary... 
End Sub 

Sub createLinkedTable_PostgreSQL(PostgreSQL_tableName As String) 
    Dim cdb As DAO.Database, tbd As DAO.TableDef 
    Set cdb = CurrentDb 
    Set tbd = New DAO.TableDef 

    tbd.Connect = "ODBC;Driver={PostgreSQL ODBC Driver(UNICODE)};Server=localhost;Port=5432;Database=linkedDB;Uid=pgUser1;Pwd=pgUser1password;" 
    tbd.SourceTableName = PostgreSQL_tableName 
    tbd.Name = Replace(PostgreSQL_tableName, ".", "_", 1, -1, vbTextCompare) ' e.g. "public.table1"->"public_table1" 
    tbd.Attributes = dbAttachSavePWD 

    cdb.TableDefs.Append tbd 
    Set tbd = Nothing 
    Set cdb = Nothing 
End Sub 

下面的代碼將刷新該鏈接，任何現有的PostgreSQL的鏈接表：

Sub refreshLinked_PostgreSQL() 
    Dim cdb As DAO.Database, tbd As DAO.TableDef 
    Set cdb = CurrentDb 
    For Each tbd In cdb.TableDefs 
     If tbd.Connect Like "ODBC;Driver={PostgreSQL*" Then 
      Debug.Print "Refreshing [" & tbd.Name & "] ..." 
      tbd.RefreshLink 
     End If 
    Next 
    Debug.Print "Done." 
    Set tbd = Nothing 
    Set cdb = Nothing 
End Sub