powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / [игнор отключен] [закрыт для гостей] / ЭкспортДанныхВ1С8.1 ИзАссеss
3 сообщений из 3, страница 1 из 1
ЭкспортДанныхВ1С8.1 ИзАссеss
    #35441683
Nata75
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет всем! Выгружаю данные из акцесса в 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 и акцессовский вариант
...
Рейтинг: 0 / 0
ЭкспортДанныхВ1С8.1 ИзАссеss
    #35441698
Nata75
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
СпрРЭС=Справочники.ЗагрузкаРэсТест;
Пока НаборЗаписей.EOF()=0 Цикл
НовыйРЭС=СпрРЭС.СоздатьЭлемент(); Код = Строка(НаборЗаписей.Fields("ID").Value);
Наименование = Строка(НаборЗаписей.Fields("Name_RES").Value);

НаборЗаписей.MoveNext();
КонецЦикла;
НаборЗаписей.Close();
пробовала вот так - тоже записывается только последняя одна запись.
...
Рейтинг: 0 / 0
ЭкспортДанныхВ1С8.1 ИзАссеss
    #35441760
Nata75
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Получилось!!! :)
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / ЭкспортДанныхВ1С8.1 ИзАссеss
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]