Книга знаний

Рекламное место пустует
1С:Предприятие / Приемы программирования / OLE, COM

Получение данных из TecDoc? Легко!

Приведу небольшой код, который позволяет установить соединение с каталогом запчастей TecDoc. По этой
<br>теме в Интернет есть много вопросов, но полезных ответов практически нет. Начнем с простого - как
<br>подключиться к этому каталогу и получить интересующие данные.
Автор статьи: aleks-id | Редакторы: Asmody
Последняя редакция №3 от 19.03.13 | История
URL: http://kb.mista.ru/article.php?id=873

Ключевые слова: 1С,TecDoc,соединение,запрос


Началось все с того, что возникла необходимость получить список кроссов(замен) на определенную
запчасть.
Специализированных баз по аналогам раз-два и обчелся. Наиболее авторитетным является TecDoc.
Как же подключить этот каталог к 1С и получить из него интересующие нас данные?

    Соединение = Новый COMОбъект("ADODB.Connection");   

   ConnectionString = "Driver={Transbase ODBC TECDOC CD
1_2012};Database=TECDOC_CD_1_2012@localhost;User
ID=""tecdoc"";Password=""tcd_error_0""";
   Соединение.ConnectionTimeOut =600;
   Соединение.CursorLocation = 3;
   Попытка
     Соединение.Open(ConnectionString);  
   Исключение
     Сообщить("Не удалось установить соединение с данными!");
   КонецПопытки;


Все довольно просто. Перейдем к самому вкусному - получению данных.

    TD_Query =  "SELECT * FROM TOF_ART_LOOKUP WHERE (ARL_SEARCH_NUMBER = 'OC47') and (arl_kind = 

'4')";
   RS = Новый COMОбъект("ADODB.Recordset");
   Попытка
       RS.Open(TD_Query, Соединение);
   Исключение
       Сообщить("Проблемы с выполнением запроса к TecDoc!");
   КонецПопытки;
   Пока RS.EOF() = 0 Цикл
       Сообщить(RS.Fields("ART_ARTICLE_NR").Value);
       RS.MoveNext();    
   КонецЦикла;
   RS.Close();
   Соединение.Close();


Этот простой запрос ищет в каталоге запчасти с номером OC47. Для создания более сложных запросов
необходимо изучить
описание таблиц каталога, которое приведено в документации.
Закладка

Описание | Рубрикатор | Поиск | ТелепатБот | Захваченные статьи | Установки | Форум
© Станислав Митичкин (Волшебник), 2005-2011 | Mista.ru

Яндекс.Метрика