|
ЭкспортДанныхВ1С8.1 ИзАссеss
|
|||
---|---|---|---|
#18+
Привет всем! Выгружаю данные из акцесса в 1С, пока самый простейший справочник РЭС в котором всего 2 поля Код и наименование. Вот код: Процедура ДействияФормыЭкспортРЭС(Кнопка) Если ЭлементыФормы.ПутьКФайлу.Значение = "" Тогда Предупреждение("Не выбрана база данных"); Возврат; КонецЕсли; MBD = Новый COMОбъект("ADODB.CONNECTION"); ТекстСелект = "SELECT * FROM DICT_RES"; НаборЗаписей = Новый COMОбъект("ADODB.RecordSet"); Пока НаборЗаписей.EOF()=0 Цикл Код = Строка(НаборЗаписей.Fields("ID").Value); Наименование = Строка(НаборЗаписей.Fields("Name_RES").Value); НаборЗаписей.MoveNext(); КонецЦикла; НаборЗаписей.Close(); КонецПроцедуры Кнопку поместила на Форме. У меня загружается только последнее единственное значение. Чувствую где-то надо создавать новую запись и записывать ее, потом из селекта считывать следующую и опять записывать, но не могу все связать воедино! Помогите!!!!! Не бросайте!!!! Если надо будет могу приложить и dt и акцессовский вариант ... |
|||
:
Нравится:
Не нравится:
|
|||
21.07.2008, 09:51 |
|
ЭкспортДанныхВ1С8.1 ИзАссеss
|
|||
---|---|---|---|
#18+
СпрРЭС=Справочники.ЗагрузкаРэсТест; Пока НаборЗаписей.EOF()=0 Цикл НовыйРЭС=СпрРЭС.СоздатьЭлемент(); Код = Строка(НаборЗаписей.Fields("ID").Value); Наименование = Строка(НаборЗаписей.Fields("Name_RES").Value); НаборЗаписей.MoveNext(); КонецЦикла; НаборЗаписей.Close(); пробовала вот так - тоже записывается только последняя одна запись. ... |
|||
:
Нравится:
Не нравится:
|
|||
21.07.2008, 10:00 |
|
|
start [/forum/topic.php?fid=28&fpage=163&tid=1524587]: |
0ms |
get settings: |
10ms |
get forum list: |
12ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
41ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
35ms |
get tp. blocked users: |
2ms |
others: | 12ms |
total: | 135ms |
0 / 0 |