Согласился, что это не должно произойти, это меня смутило некоторое время. Вот почему я пошел на DAO, но единственный способ передачи, который я знаю, это построчно. Который устраняет риск потери данных, но принимает навсегда. Чек может быть на что посмотреть ..... Я подумаю над этим
я есть набор записей DAO, который создается отлично, и я могу перенести записи из набора в таблицу, это делается построчно и работает хорошо, но я передаю большой объем данных одновременно, так что это может занять очень много времени строка за строкой.
Есть ли способ передать ВЕСЬ набор записей за один раз, а не построчно
Ниже приведен текущий используемый код -
Dim SendE1 As DAO.Recordset
Set SendE1 = CurrentDb.OpenRecordset("SELECT TBL_ImportTable.* FROM TBL_ImportTable", dbOpenDynaset)
SendE1.MoveLast
Do Until SendE1.EOF
sqlinsert = "INSERT INTO TBL_E1Jobs (StartDate, StartTime, EndDate, EndTime, Location, UserID, WorkStationID, DocumentNumber, E1Shift, OperSeq, Facility, AdjustedforShifts, WeekNum)" & _
" VALUES ('" & SendE1("StartDate") & "', '" & SendE1("StartTime") & "', '" & SendE1("EndDate") & "', '" & SendE1("EndTime") & "', '" & SendE1("Location") & "', '" & SendE1("UserID") & "', '" & SendE1("WorkstationID") & "', '" & SendE1("DocumentNumber") & "', '" & SendE1("E1Shift") & "', '" & SendE1("OperSeq") & "', '" & SendE1("Facility") & "', '" & SendE1("AdjustedforShifts") & "', '" & SendE1("WeekNum") & "') "
DoCmd.RunSQL (sqlinsert)
SendE1.MoveNext
Loop
,
SendE1.Close
Set SendE1 = Nothing