VBA.Access Нарушен порядок данных при импорте

[Ethex]

Доброго времени суток

Делаю программу для импорта таблицы из Экселевского файла в Access

Public Sub Ex2Acc()
Dim book As Excel.Workbook
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim appXl As Excel.Application
Dim wrksheet As Excel.Worksheet
Dim i As Long

Set appXl = CreateObject("Excel.Application")
Set book = appXl.Workbooks.Open(Forms![Form1].[Поле3].Value) 

Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset("Test")
Set wrksheet = book.Sheets(1)

  With book.Sheets(1)
  For i = 5 To .Rows.Count
  If Len(wrksheet.Cells(i, "B")) > 0 Then
  With rst
     .AddNew
   ' On Error Resume Next
     ![Код] = zamena(wrksheet.Cells(i, "A"))
     ![OBSN] = zamena(wrksheet.Cells(i, "B"))
     ![NAIM] = zamena(wrksheet.Cells(i, "C"))
     ![ED_IZM] = zamena(wrksheet.Cells(i, "D"))
     ![BRUTTO] = wrksheet.Cells(i, "E")
     ![C_BASE] = zamena(wrksheet.Cells(i, "F"))
     ![CLASS_GR] = zamena(wrksheet.Cells(i, "G"))
     ![COD_UZ] = zamena(wrksheet.Cells(i, "H"))
     ![C_OPT] = zamena(wrksheet.Cells(i, "I"))
     ![C_SMET] = zamena(wrksheet.Cells(i, "J"))
     ![IND] = zamena(wrksheet.Cells(i, "K"))
     .Update
  End With
  End If
   Next
   End With
   rst.Close: Set rst = Nothing
   dbs.Close: Set rst = Nothing
   book.Close: Set book = Nothing
   appXl.Quit: Set appXl = Nothing
   
         
MsgBox "Завершено"
End Sub

Проблема: процедура вставляет записи в таблицу, однако, нарушен их порядок. Изначально, в создаваемой таблице поле Код создавалось счётчиком и при импорте не заполнялось значениями из А. То, что приведено в коде - переписал формат поля на текстовый и попробовал заполнить. Ситуация та же. (собственно, по полю Код проблема и была обнаружена, в таблице за 150 килострок)
В чём может быть причина?

[Serge_Bliznykov]

Сообщение от Ethex

Проблема: процедура вставляет записи в таблицу, однако, нарушен их порядок.

а почему это важно?
Насколько я помню теорию, никто в СУБД порядок записей не гарантирует.
Если Вам нужно получать записи в определённом порядке - используйте SELECT ... FROM ... ORDER BY

А ещё можете создать запрос с нужным порядком и обращаться к нему (по имени запроса)

p.s. а если это действительно важно - то вставляйте записи во временную таблицу, а результирующую создавайте через select с ORDER BY
(см. How to: Create a DAO Recordset From a Query)

[Sciv]

Сообщение от Ethex

Делаю программу для импорта таблицы из Экселевского файла в Access

Дело, конечно, Ваше, но стандартных средств импорта Акцесса недостаточно?

Сообщение от Ethex

собственно, по полю Код проблема и была обнаружена

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

[Sciv]

Сообщение от Serge_Bliznykov

Насколько я помню теорию, никто в СУБД порядок записей не гарантирует

А я так понял, что столбцы неправильно вставляет...

Походу, требуется уточнение у автора А лучше - сам файл проекта увидеть.

[Aleksandr H.]

Ну не выполняйте ету строку

Сообщение от Ethex

![Код] = zamena(wrksheet.Cells(i, "A"))

раз КОД счетчик.
или замените часть
.AddNew ... .Update на DoCmd.RunSQL с INSERTом в таблицу нужных данных

[Ethex]

Сообщение от Sciv

А я так понял, что столбцы неправильно вставляет...

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

[Sciv]

Вообще, если не ошибаюсь, Акцесс позволяет подключить таблицу Ёкселя и работать с ней как с таблицей БД. Поэтому удобнее было бы делать SQL вида:

SELECT INTO Таблица_Акцесса FROM Таблица_Экселя ORDER BY Нужное поле

[Ethex]

Aleksandr H., правильно понял? Ни разу ещё из рекордсета инсертом ничего не брал

...
For i = 5 To .Rows.Count
  If Len(wrksheet.Cells(i, "B")) > 0 Then
  With rst
DoCmd.RunSQL "INSERT INTO Test" _
& "(OBSN, NAIM, ED_IZM, BRUTTO, C_BASE, CLASS_GR, COD_UZ, C_OPT, C_SMET, " _     
& "IND) VALUES (zamena(wrksheet.Cells(i, "B")), zamena(wrksheet.Cells(i, "C")), " _
& "zamena(wrksheet.Cells(i, "D")), wrksheet.Cells(i, "E"), zamena(wrksheet.Cells(i, "F"))," _              
& " zamena(wrksheet.Cells(i, "G")), zamena(wrksheet.Cells(i, "H")), " _
& "zamena(wrksheet.Cells(i, "I")), zamena(wrksheet.Cells(i, "J")), " _
& "zamena(wrksheet.Cells(i, "K")))"
End With
  End If
   Next
...

Sciv, таблицу нужно не просто брать и импортировать, а перешагивать определённые строки при импорте. Во вторых, от меня требуют формы в аксе, так что если подключать, то не без vba

[Ethex]

На всякий случай, примерно таблица выглядит так.

[Аватар]

таблицу нужно не просто брать и импортировать, а перешагивать определённые строки при импорте.

для этого в запросе придумали WHERE

Во вторых, от меня требуют формы в аксе, так что если подключать, то не без vba

ни чего не мешает выборку селекта в форме отобразить