ник: час
Теперь я файл не читаю, а прикрепляю его программно к базе и он в ней лежит как таблица.
Private Function Подключиь_Файл(strPuti As String, strFile As String, strTbl As String)
Dim t As TableDef
On Error GoTo Подключиь_Файл_Error
If Nalichie_Tablici(strTbl) = True Then DoCmd.DeleteObject acTable, strTbl
Set t = CurrentDb.CreateTableDef(strTbl)
t.Connect = "Text;DSN=" & "Goods;" & "FMT=Fixed;HDR=NO;IMEX=2;CharacterSet=1251;DATABASE=" & strPuti & ";TABLE=" & strFile
t.SourceTableName = Me!Файл_загрузки '"ИмяФайла"
CurrentDb.TableDefs.Append t
|
таблица выглядит вот так:
(кстати сам файл тоже такой структуры)
##@@&&
#
00000004;2107030162703;Ванна;Ванна;1500.24;11.000;0;0;0;0;0;0;0;1;0;0;1;1;0;;;
00000001;2107030162710;Гвозди;Гвозди;18.43;132.000;0;0;0;0;0;0;0;1;0;0;1;1;0;;;
00000004;2107030162704;Вантуз;Вантуз;1500.24;11.000;0;0;0;0;0;0;0;1;0;0;1;1;0;;;
00000001;2107030162715;Шуруп;Шуруп;18.43;132.000;0;0;0;0;0;0;0;1;0;0;1;1;0;;;
|
Теперь из этой таблицы надо перебросить все данные разнося по полям в основную-рабочую таблицу Товар. (см. код выше)
перенести, разнося по полям, так как строки с разделителем не очень удобны.