Блог

Я переношу интерфейсное / серверное приложение MS Access на серверный интерфейс MS Access / sql server.

Одна часть этого приложения (в оригинальной форме) использует VB для импорта CSV-файла в таблицу во внешнем интерфейсе, а затем выполняет различные инструкции SQL для объединения содержимого этой таблицы в некоторые внутренние таблицы.

Я полагаю, что в новой среде, поскольку более эффективно выполнять процесс слияния в хранимой процедуре, моя стратегия должна быть

1. Откройте соединение с серверной частью
2. Создайте временную таблицу в этом соединении
3. Создайте tabledef в VB и попытайтесь подключить его к этой временной таблице
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 amp; "[leadID] [int] IDENTITY(1,1) PRIMARY KEY CLUSTERED,[Title] [nvarchar](255) NULL,[Firstname] [nvarchar](50) NULL,"
    SQL = SQL amp; "[Lastname] [nvarchar](50) NULL,[Sex] [nvarchar](10) NULL,[House] [nvarchar](50) NULL,"
    SQL = SQL amp; "[Address1] [nvarchar](50) NULL,[Address2] [nvarchar](50) NULL,[Street] [nvarchar](50) NULL,"
    SQL = SQL amp; "[Town_City] [nvarchar](50) NULL,[County] [nvarchar](50) NULL,[Postcode] [nvarchar](10) NULL,"
    SQL = SQL amp; "[Email] [nvarchar](50) NULL,[Allow_email] [nvarchar](5) NULL,[Telephone] [nvarchar](20) NULL,"
    SQL = SQL amp; "[Allow_tel] [nvarchar](5) NULL,[Cons_period] [nvarchar](20) NULL,[When] [nvarchar](20) NULL,"
    SQL = SQL amp; "[Procedure] [nvarchar](20) NULL,[Consultation] [nvarchar](10) NULL,[Info_pack] [nvarchar](10) NULL,"
    SQL = SQL amp; "[Source] [nvarchar](20) NULL,[Further_info] [nvarchar](255) NULL,[Callback] [nvarchar](50) NULL,"
    SQL = SQL amp; "[Date_added] [nvarchar](30) NULL,[Date_added_dt] [datetime] NULL,[Callback_range] [tinyint] NULL,"
    SQL = SQL amp; "[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».

Что это за сообщение об ошибке и почему я его получаю

Другой альтернативой было бы вообще не использовать связанную таблицу, а вместо этого использовать сквозной запрос, который возвращает временную таблицу. Скорее всего, вам придется писать это на лету, но как только он вернет правильную временную таблицу, ее можно использовать в качестве источника записи формы или отчета.

Я нередко создавал сохраненные запросы, которые заменяют связанные таблицы, хотя я никогда не делал этого с помощью сквозного подключения к временной таблице.