使用VBA重新链接ODBC表

最新推荐文章于 2023-05-04 16:32:02 发布

cxygs5788

最新推荐文章于 2023-05-04 16:32:02 发布

阅读量622

点赞数

CC 4.0 BY-SA版权

文章标签：数据库字符串 python mysql js ViewUI

原文链接：https://bytes.com/topic/access/insights/876985-relinking-odbc-tables-using-vba

本文介绍了一段VBA代码，用于自动重新连接Access数据库中的ODBC链接表。此功能有助于解决链接断开的问题，并简化了DSN名称或数据库服务器更改后的编辑工作。代码在系统启动时运行，确保所有ODBC链接表始终保持最新状态。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

由于我的许多项目都涉及使用odbc链接的后端数据源，所以我发现这段代码非常有用。我通常会触发它以像AutoExec宏一样在系统启动时运行。它可以避免由于链接断开而造成的任何麻烦，并且如果DSN名称或数据库服务器发生更改，则唯一需要进行的编辑就是连接字符串。


Function relinkTables()
Dim tdf As DAO.TableDef 
    For Each tdf In CurrentDb.TableDefs
        ' check if table is a linked table
        If Len(tdf.Connect) > 0 Then
            tdf.Connect = "odbc connection string to the DSN or database"
            tdf.RefreshLink
        End If
    Next 
End Function

注意：如果除通过odbc连接的链接表之外，还有其他链接表，则必须在代码中允许它们。

像往常一样，欢迎您提出所有建议，批评和增强意见:)

玛丽