Первый раз сегодня столкнулся с 1С. Необходимо следущее:
Что бы таблицы из 1С переводились в MySQL.
Способ их соединить нашел, через ODBC, но вот сам язык 1Ски для меня далек, и разобраться за сегодня я не успел. в общем что я сегодня нарыл:
Соединение = Новый COMОбъект("ADODB.Connection");
Соединение.ConnectionString = "dsn=ODBCmy;";
Соединение.CursorLocation = 3;
Попытка
Соединение.Open();
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Контрагенты.Код КАК Код,
| Контрагенты.ОсновноеЮрФизЛицо КАК ОсновноеЮрФизЛицо,
| Контрагенты.ОсновнойДоговорВзаиморасчетов КАК ОсновнойДоговорВзаиморасчетов
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|
|УПОРЯДОЧИТЬ ПО
| Код
|
|ИТОГИ ПО
| Код,
| ОсновнойДоговорВзаиморасчетов,
| ОсновноеЮрФизЛицо";
Результат = Запрос.Выполнить();
ТекстЗапроса = "INSERT INTO `news` ( `id` , `name` , `text` ) VALUES ";
// Вот тут я столкнулся с тем, что не могу разобраться как выводить результат из полученного запроса.
// Что только не перерыл, разобраться не могу.
//Пока Результат.Next() Цикл
ТекстЗапроса = "( '"+Результат.Код.Значение+"', '"+Результат.ОсновноеЮрФизЛицо.Значение+"', '"+Результат.ОсновнойДоговорВзаиморасчетов.Значение+"')";
// ТестЗапроса = ТекстЗапроса+", ";
//КонецЦикла;
Команда = Новый COMОбъект("ADODB.Recordset");
Команда.ActiveConnection = Соединение;
Команда.Open(ТекстЗапроса);