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

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


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