ms-access - 链接表 ms access 2010 更改连接字符串

Question

我正在处理一个现有的 MS Access 2010 项目，该项目具有到 Sql Server 数据库的链接表链接。

当我将鼠标悬停在链接表上时，我可以看到一个连接字符串 'ODBC;DRIVER=SQL Server;SERVER=10.0.0.1;UID=testdb;APP=Microsoft Office 2003;WSID=abc;TABLE=dbo.user'
这看起来像一个无 dsn 的链接表。

题

连接字符串在哪里？如何更改它(示例数据库名称)？

如何创建类似的无 dsn 链接表？每当我创建链接表时，Access 2010 总是强制我选择\创建一个 dsn(文件或机器)。

Answer 1

打印所有连接字符串:

Dim tdf As TableDef
Dim db As Database

    Set db = CurrentDb

    For Each tdf In CurrentDb.TableDefs
        If tdf.Connect <> vbNullString Then
           Debug.Print tdf.Name; " -- "; tdf.SourceTableName; " -- "; tdf.Connect
        End If
    Next

要创建链接表:

With CurrentDb
    ''If the table does not have a unique index, you will need to create one
    ''if you wish to update.
    Set tdf = .CreateTableDef("LocalName")
    tdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=10.0.0.1;" _
      & "UID=testdb;APP=Microsoft Office 2003;WSID=abc;TABLE=dbo.user"
    tdf.SourceTableName = "TABLE_NAME"
    .TableDefs.Append tdf
    .TableDefs.Refresh
End With

要更改链接:

    Set db = CurrentDB
    Set tdf = db.TableDefs("MyTable")
    tdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=10.0.0.1;" _
      & "UID=testdb;APP=Microsoft Office 2003;WSID=abc;TABLE=dbo.user"
    tdf.RefreshLink