Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
21.07.2008, 09:51
|
|||
---|---|---|---|
|
|||
ЭкспортДанныхВ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, 10:00
|
|||
---|---|---|---|
|
|||
ЭкспортДанныхВ1С8.1 ИзАссеss |
|||
#18+
СпрРЭС=Справочники.ЗагрузкаРэсТест; Пока НаборЗаписей.EOF()=0 Цикл НовыйРЭС=СпрРЭС.СоздатьЭлемент(); Код = Строка(НаборЗаписей.Fields("ID").Value); Наименование = Строка(НаборЗаписей.Fields("Name_RES").Value); НаборЗаписей.MoveNext(); КонецЦикла; НаборЗаписей.Close(); пробовала вот так - тоже записывается только последняя одна запись. ... |
|||
:
Нравится:
Не нравится:
|
|||
|
|
start [/forum/topic.php?fid=28&tablet=1&tid=1524587]: |
0ms |
get settings: |
7ms |
get forum list: |
10ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
87ms |
get topic data: |
12ms |
get forum data: |
2ms |
get page messages: |
34ms |
get tp. blocked users: |
1ms |
others: | 13ms |
total: | 172ms |
0 / 0 |