Получение данных из TecDoc

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

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