Цитата(Vofka @ 22.10.15, 9:47) необходимо зарегистрироваться для просмотра ссылки
Что такое СпКодов?
зараз викладу весь код
Процедура КнопкаВыполнитьНажатие(СПКодов)
Запрос = Новый Запрос;
Запрос.текст = "ВЫБРАТЬ
| Номенклатура.Ссылка
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Код В (&СПКодов)";
Запрос.УстановитьПараметр("СПКодов",СПКодов);
Т = Новый ТаблицаЗначений;
т.Колонки.Добавить("Код");
т.Колонки.Добавить("Цена");
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Цена = Ценообразование.ПолучитьЦенуНоменклатуры(Выборка.ссылка, Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000002"),,,);
НС = Т.Добавить();
НС.Код = Выборка.ссылка.код;
НС.Цена = Цена;
КонецЦикла;
Для Каждого Стр Из Т Цикл
сообщить(Цена);
//далі йтиме SQL інструкція для обновлення ціни на сайті)
//Стр.Код = сождеожит код
//Стр.Цена = содержит цену
КонецЦикла;
КонецПроцедуры
Connection = Новый COMОбъект("ADODB.Connection");
//Необходимые параметры для подключения
АдресСервера = "*******"; //ip адрес сервера MySQL
НомерПорта = "****"; //порт подключения, обычно 3306
ИмяБД = "*****"; //имя подключаемой базы данных
Пользователь = "*****"; //имя пользователя БД с соответствующими правами
Пароль = "******"; //пароль пользователя БД
//Подключаемся
Попытка
Connection.Open("Driver={MySQL ODBC 5.1 Driver};Server=" + СокрЛП(АдресСервера) + ";Port=" + НомерПорта + ";Database=" + СокрЛП(ИмяБД) + ";User=" + СокрЛП(Пользователь) + ";Password=" + Пароль + ";Option=3");
Исключение
Сообщить("Ошибка подключения - " + ОписаниеОшибки());
//Возврат;
КонецПопытки;
//Пропишем текст запроса к БД сайта
//Выборка товара
//ТекстЗапросаMYSQL = "SELECT upc, price FROM product";
ТекстЗапросаMYSQL = "SELECT upc, price FROM product";
RecordSet = Новый COMОбъект("ADODB.RecordSet");
RecordSet.ActiveConnection = Connection;
RecordSet.Open(ТекстЗапросаMYSQL);
СпКодов = Новый СписокЗначений;
Пока RecordSet.EOF() = 0 Цикл
КодТовараВеб = RecordSet.Fields("upc").Value;
ЦенаВеб = RecordSet.Fields("price").Value;
//Цикл от сайта
КодТовараВеб = RecordSet.Fields("upc").Value;
ЦенаВеб = RecordSet.Fields("price").Value;
СпКодов.Добавить(КодТовараВеб);
сообщить(КодтовараВеб);
RecordSet.MoveNext();
КонецЦикла;
дані з сайту витягує а далі коли запускаю процедуру помилка
{Форма.Форма.Форма(15)}: Помилка при виклику методу контексту (Выполнить)
Результат = Запрос.Выполнить();
через:
{(6, 19)}: Неправильні параметри
Номенклатура.Код <<?>>В (&СПКодов)