Приветствую дорогие форумчане, прошу помощи. Накатал код по данным из нета на выгрузку справочника в базу MySQL но уже не знаю как менять эту конструкцию. Основная проблема это цикл для записи данных. Прошу помощи, 1с 7.7 ТиС для Украины пример кода прилагаю.
Процедура Выполнить()
Попытка
DB = СоздатьОбъект("ADODB.Connection");
Исключение
Сообщить("Ошибка создания объекта ADODB.Connection: " + ОписаниеОшибки());
Возврат;
КонецПопытки;
СтрокаСоединения = "DSN=Kontakt_x86;UID=***;PWD=***;CHARSET=cp1251";
Попытка
DB.Open(СтрокаСоединения);
Исключение
Сообщить("Ошибка соединения с базой данных: " + ОписаниеОшибки());
Возврат;
КонецПопытки;
// Получение данных из справочника "Дисконт"
Запрос = СоздатьОбъект("Запрос");
Запрос.Текст =
"ВЫБРАТЬ Код, ШтрихКод, ФИО, Телефон, ID_TG " +
"ИЗ Справочник.Дисконт";
Попытка
Результат = Запрос.Выполнить();
Исключение
Сообщить("Ошибка выполнения запроса: " + ОписаниеОшибки());
Возврат;
КонецПопытки;
Если Результат.Пустой() Тогда
Сообщить("Справочник 'Дисконт' пуст.");
Возврат;
КонецЕсли;
Выборка = Результат.Выбрать();
Пока Выборка.НайтиСледующий() = 1 Цикл
Код = Выборка.Код;
ШтрихКод = Выборка.ШтрихКод;
ФИО = Выборка.ФИО;
Телефон = Выборка.Телефон;
ID_TG = Выборка.ID_TG;
// Формирование SQL-запроса для вставки данных
SQL = "INSERT INTO discont (code, barcode, full_name, phone_number, tg_id) " +
"VALUES ('" + Код + "', '" + ШтрихКод + "', '" + ФИО + "', '" + Телефон + "', '" + ID_TG + "')";
Попытка
DB.Execute(SQL);
Исключение
Сообщить("Ошибка выполнения SQL-запроса: " + ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
Сообщить("Выгрузка данных завершена успешно.");
КонецПроцедуры