用VBA刷新ODBC连接表,也就是SQL SERVER表

最新推荐文章于 2023-12-18 18:25:33 发布

原创最新推荐文章于 2023-12-18 18:25:33 发布 · 3.1k 阅读

2 ·

CC 4.0 BY-SA版权

001 Access VBA 专栏收录该内容

50 篇文章

订阅专栏

本文介绍了一段使用VBA编写的公共函数，该函数能够遍历Access数据库中的所有表定义，并针对具有特定属性的表更新其连接字符串。这段代码特别适用于需要修改数据库连接配置的情况。

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

Public Function flashTbl()
    Dim db As DAO.Database
    Dim tbl As TableDef
    Dim a As String
    Dim b As String
    Dim d As String

     a = "sa" '数据库用户
     b = "123456" '数据库口令
     d = "CJGL2005" '数据库名称
     Set db = CurrentDb
        For Each tbl In db.TableDefs
            If tbl.Attributes = 536870912 Then
                tbl.Connect = "FILEDSN=D:\用户目录\我的文档\CJGL2005.dsn;UID=" & a & ";PWD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN"
                tbl.Attributes = dbAttachSavePWD
                tbl.RefreshLink
            End If
    Next
End Function