连接到链接表

Question

使用代码连接到链接表。 我有一些来自 SQL 服务器的链接表；它们通过 ODBC 连接链接。密码不与连接一起保存。当我在 Access table-view 中双击表时，会提示输入用户名和密码。输入密码后，我可以查看表中的数据。

我的问题是，在以这种方式打开表格之前，我尝试使用代码访问表格。我尝试做的是使用 ADODB 打开包含链接表中数据的记录集，例如：

Dim rst as new ADODB.Recordset
Dim sql as string
Sql = “SELECT * FROM LinkedTable”
rst.Open sql, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

在之前没有访问该表的情况下运行此代码将生成此错误：错误# -2147467259, ODBC: connection to dns-name failed。

所以，我的问题是，有没有什么方法可以使用打开数据库时可以运行的代码连接到数据库？这也将有助于用户，因为他们不必记住 SQL 服务器的密码。

Answer 1

您似乎混合了两种可能无法一起工作的技术，即通过 ODBC 和 ADODB 记录集链接表。您是否尝试在链接表上打开 DAO 记录集？

Dim rst as DAO.Recordset
Dim sql as string
Sql = “SELECT * FROM LinkedTable”
set rst = currentDb.openRecordset(sql,<your parameters>)

您当然可以通过 2 个 ADODB 连接来使用 ADODB 记录集，一个连接到您的访问文件，另一个连接到您的 SQL 服务器：

Dim rsSQL as ADODB.recordset, _
    rsACCESS as ADODB.recordset, _
    connectionSQL as ADODB.connection, _
    connectionACCESS as ADODB.connection

set connectionSQL = New ADODB.connection
set connectionACCESS = New ADODB.connection

connectionSQL.properties(...) = enumerate your SQL parameters
connectionACCESS.properties(...) = enumerate your ACCESS parameters (use currentproject.accessConnection if your access tables are local tables only)

set rsSQl = New ADODB.recordset
set rsACCESS = New ADODB.recordset

rsSQL.open "SELECT * FROM ...", connectionSQL, <other parameters>
rsACCESS.open "SELECT * FROM ...", connectionACCESS, <other parameters>

可以将 ADO 记录集链接到 Access 中的表单和组合框。但是，在创建表单时，该技术必须主要通过 VBA 代码进行管理（您必须编写“打开”事件，例如set me.recorset = ...），而标准的“链接表”技术可以通过用户轻松使用 -友好的“表单设计”界面。

Answer 2

您可以在代码中使用连接字符串，这很简单，因为您已经在使用 ADO：http://www.connectionstrings.com/

您需要找出您要链接到的 SQL Server 版本。