如何将 Access tabledef 链接到 SQLServer 中的临时表

Question

我正在将 MS Access 前端/后端应用程序移植为 MS Access 前端/sql server 后端。

该应用程序的一部分（原始形式）使用VB将CSV文件导入到前端的表中，然后运行各种SQL语句将该表的内容合并到一些后端表中。

我认为在新环境中，因为在存储过程中执行合并过程更有效，所以我的策略应该是

1. 打开到后端的连接
2. 在该连接上创建一个临时表
3. 在VB中创建一个tabledef并尝试将其连接到这个临时表
4. 使用 DoCmd.TransferText （正如我在原始表中所做的那样）将 CSV 文件导入到由表 def 链接到的表中
5. 在打开的连接上执行存储过程，将临时表数据合并到后端的永久表中。

我认为我已成功执行步骤 1 和 2，但我不确定。我可以在 SQL Server Management Studio 中看到临时表，但尝试打开列失败并出现错误（当我使用 Management Studio 创建临时表时，它也会失败并出现相同的错误，所以我认为这是 Management Studio 问题） 。

我使用与启动应用程序时链接所有永久表相同的代码来执行步骤 3，但这一点不起作用。最后，我通过在非临时表上运行步骤 5 来证明它是有效的。

我为此使用的代码如下，

    Set conn = New ADODB.Connection
    conn.Open getStrConn

    'First create a temporary table on the server for the web site leads
    SQL = "CREATE TABLE [dbo].[#WebSiteLeads]("
    SQL = SQL & "[leadID] [int] IDENTITY(1,1) PRIMARY KEY CLUSTERED,[Title] [nvarchar](255) NULL,[Firstname] [nvarchar](50) NULL,"
    SQL = SQL & "[Lastname] [nvarchar](50) NULL,[Sex] [nvarchar](10) NULL,[House] [nvarchar](50) NULL,"
    SQL = SQL & "[Address1] [nvarchar](50) NULL,[Address2] [nvarchar](50) NULL,[Street] [nvarchar](50) NULL,"
    SQL = SQL & "[Town_City] [nvarchar](50) NULL,[County] [nvarchar](50) NULL,[Postcode] [nvarchar](10) NULL,"
    SQL = SQL & "[Email] [nvarchar](50) NULL,[Allow_email] [nvarchar](5) NULL,[Telephone] [nvarchar](20) NULL,"
    SQL = SQL & "[Allow_tel] [nvarchar](5) NULL,[Cons_period] [nvarchar](20) NULL,[When] [nvarchar](20) NULL,"
    SQL = SQL & "[Procedure] [nvarchar](20) NULL,[Consultation] [nvarchar](10) NULL,[Info_pack] [nvarchar](10) NULL,"
    SQL = SQL & "[Source] [nvarchar](20) NULL,[Further_info] [nvarchar](255) NULL,[Callback] [nvarchar](50) NULL,"
    SQL = SQL & "[Date_added] [nvarchar](30) NULL,[Date_added_dt] [datetime] NULL,[Callback_range] [tinyint] NULL,"
    SQL = SQL & "[UcFname] [nvarchar](1) NULL,[UcLname] [nvarchar](50) NULL,[UcPcode] [nvarchar](10) NULL);"

    conn.Execute SQL

    For Each td In CurrentDb.TableDefs
        If td.name = "WebsiteLeads" Then
            CurrentDb.TableDefs.Delete "WebsiteLeads"
        End If
    Next
    'link to the table just created
    Set td = CurrentDb.CreateTableDef("WebsiteLeads",dbAttachSavePWD , "[dbo].[#WebSiteLeads]", getStrConn)

    CurrentDb.TableDefs.Append td
    importProgress = 0.1    'Update Progress bar
    DoEvents

    'Import our text file
    DoCmd.TransferText acImportDelim, "Leads Import v2", "WebsiteLeads", txtFileName
    importProgress = 0.3    'Update Progress bar
    DoEvents

    'We are going to do the rest as Access stored procedure

    Set leadsRS = conn.Execute("EXEC dbo.LeadsImport;")
    importProgress = 0.9    'Update Progress bar
    DoEvents

但它失败并

        CurrentDb.TableDefs.Append td

显示错误消息“无法找到可安装的 ISAM”。

这个错误消息是什么，为什么我会收到它

Answer 1

另一种选择是根本不使用链接表，而是使用返回临时表的直通查询。您可能必须即时编写它，但是一旦它返回正确的临时表，它就可以用作表单或报表的记录源。

我经常创建替换链接表的已保存查询，尽管我从未使用连接到临时表的直通来完成此操作。