Ошибка таблицы доступа к данным - PullRequest
Новая
       21

Ошибка таблицы доступа к данным

0 голосов
/ 18 июня 2019

Я запрашиваю данные из базы данных, и мне нужно поместить результаты в другую базу данных Access.

У меня есть код для получения данных, заполнения таблицы данных, а затем подключения к новой базе данных, но я не получаю данные. Таблица Access заполнена (24000 строк +), но данные являются общими, а не данными из таблицы данных. 

   Dim wTable As New DataTable
   Dim connString1 = "Provider=IBMDADB2;Database=...;"
   Dim connString2 = "Provider=Microsoft.ACE.OLEDB.12.0..."
   'sWebi is the SELECT query from the 1st database
   'Webi_Connection is the saved connection string = connString1
   Using conn As New OleDbConnection(connString1), adapter As New OleDbDataAdapter(sWEBI, Webi_Connection)
        adapter.AcceptChangesDuringFill = False
        adapter.Fill(wTable)
   End Using

  Dim insSQL As String = "INSERT INTO tblWEBI_Results (CumbID, CumbIDSequenceNumber, LastName, FirstName, CorrectedBirthDate, Control, Suffix, Account, CustomerPSUnique, CustomerName) VALUES (@1, @2, @3, @4, @5, @6, @7, @8, @9, @10)"
  Using conn As New OleDbConnection(connString2), adapter As New OleDbDataAdapter, insertCommand As New OleDbCommand(insSQL, DBConnection)
       adapter.InsertCommand = insertCommand
       conn.Open()
       insertCommand.Parameters.AddWithValue("@1", "CumbID") 
       insertCommand.Parameters.AddWithValue("@2", "CumbIDSequenceNumber")
       insertCommand.Parameters.AddWithValue("@3", "LastName") 
       insertCommand.Parameters.AddWithValue("@4", "FirstName")
       insertCommand.Parameters.AddWithValue("@5", "CorrectedBirthDate")
       insertCommand.Parameters.AddWithValue("@6", "Control")
       insertCommand.Parameters.AddWithValue("@7", "Suffix") 
       insertCommand.Parameters.AddWithValue("@8", "Account")
       insertCommand.Parameters.AddWithValue("@9", "CustomerPSUnique")
       insertCommand.Parameters.AddWithValue("@10", "CustomerName")
       adapter.Update(wTable) 
       conn.Close()
  End Using

Я получаю ожидаемые строки, но сами данные не отображаются. Итак, я полагаю, что мне не хватает правильного вызова данных из таблицы данных, верно?

...