Выгрузка данных из 1с через ADODB

В разделе будут собираться материалы и примеры по использованию программы.

Выгрузка данных из 1с через ADODB

Сообщение JAGUAR_90210 » 15 апр 2010, 14:30

ПутьКФайлу = "192.168.0.1:D:\Shared\\DODB.FDB";
БазаДанных = Новый COMОбъект("ADODB.Connection");
БазаДанных.ConnectionString = "driver={Firebird/InterBase(r) driver};server="+ПутьКФайлу+ ";uid=SYSDBA;pwd=masterkey;database="+ПутьКФайлу+";";
БазаДанных.ConnectionTimeOut = 1200;
БазаДанных.CursorLocation = 3;

Попытка
БазаДанных.Open(БазаДанных.ConnectionString);
Исключение
Предупреждение("Невозможно установить соединение -"+ОписаниеОшибки());
Сообщить(ОписаниеОшибки());
КонецПопытки;


RS = Новый COMОбъект("ADODB.Recordset");
сЗапрос = "delete from ""PRICELIST"" ";
Попытка
RS.Open(сЗапрос, БазаДанных);
Исключение
Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);
Возврат;
КонецПопытки;

сЗапрос = "Текст какого то запроса";
Запрос = новый Запрос;
Запрос.Текст = сЗапрос;
Запрос.УстановитьПараметр("ТипыЦен" , ТипЦен);

Выборка = Запрос.Выполнить().Выбрать();

RS = Новый COMОбъект("ADODB.Recordset");

Пока (Выборка.Следующий()) Цикл
сЗапрос = "insert into ""PRICELIST"" values ('ID', 'NAME', 'ORIGINAL_PRICE', 'DISCOUNT_PRICE', 'UNIT', 'PRODUCER', 'AVAILABILITY', 'PLACE', 'CODE', 'N_GROUP', 'CHANGE')";
сЗапрос = СтрЗаменить(сЗапрос, "ID", Выборка.ID);
сЗапрос = СтрЗаменить(сЗапрос, "NAME", Выборка.NAME);
сЗапрос = СтрЗаменить(сЗапрос, "ORIGINAL_PRICE", Формат(Выборка.ORIGINAL_PRICE, "ЧРД=.; ЧГ="));
сЗапрос = СтрЗаменить(сЗапрос, "DISCOUNT_PRICE", Формат(Выборка.DISCOUNT_PRICE, "ЧРД=.; ЧГ="));
сЗапрос = СтрЗаменить(сЗапрос, "UNIT", Выборка.UNIT);
сЗапрос = СтрЗаменить(сЗапрос, "PRODUCER", Выборка.PRODUCER);
сЗапрос = СтрЗаменить(сЗапрос, "AVAILABILITY", Выборка.AVAILABILITY);
сЗапрос = СтрЗаменить(сЗапрос, "PLACE", Выборка.PLACE);
сЗапрос = СтрЗаменить(сЗапрос, "CODE", Выборка.CODE);
сЗапрос = СтрЗаменить(сЗапрос, "N_GROUP", Выборка.GROUPNAME);
сЗапрос = СтрЗаменить(сЗапрос, "CHANGE", Выборка.CHANGE);

Попытка
RS.Open(сЗапрос, БазаДанных);
//общить("№ "+Выборка.ID +Символы.ПС + сЗапрос, СтатусСообщения.Важное);
Исключение
Сообщить(ОписаниеОшибки() + " № "+Выборка.ID +Символы.ПС + сЗапрос, СтатусСообщения.Важное);
Возврат;
КонецПопытки;

КонецЦикла;
JAGUAR_90210
 
Сообщения: 6
Зарегистрирован: 15 апр 2010, 13:50

Вернуться в База знаний (F.A.Q)

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron