用代码刷新ODBC连接表

最新推荐文章于 2021-02-19 06:19:13 发布

低调的嚣张的程序员

最新推荐文章于 2021-02-19 06:19:13 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： 001 Access VBA 文章标签：数据库 odbc

本文链接：https://blog.youkuaiyun.com/zeephom/article/details/72877775

001 Access VBA 专栏收录该内容

50 篇文章

订阅专栏

本文介绍了一段使用VBA更新数据库链接的代码实现过程。该代码通过遍历当前数据库的所有表定义，查找属性为特定值的表，并更新其连接字符串。适用于需要定期更新外部数据库连接的应用场景。

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

Private Sub btnLink_Click()
    Dim db As DAO.Database
    Dim tbl As TableDef
    Dim a As String
    Dim b As String
    Dim d As String

     a = "sa" '数据库用户
     b = "" '数据库口令
     d = "CJGL2005" '数据库名称
     Set db = CurrentDb
        For Each tbl In db.TableDefs
            If tbl.Attributes = 536870912 Then
                tbl.Connect = "FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\恒林帐套001.dsn;UID=" & a & ";PWD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN"
                tbl.Attributes = dbAttachSavePWD
                tbl.RefreshLink
            End If
        Next
End Sub