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

Книга знаний

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

Приведу небольшой код, который позволяет установить соединение с каталогом запчастей 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. Для создания более сложных запросов
необходимо изучить
описание таблиц каталога, которое приведено в документации.