Книга знаний |
|
1С:Предприятие / Приемы программирования / OLE, COM |
|
Приведу небольшой код, который позволяет установить соединение с каталогом запчастей TecDoc. По этой
<br>теме в Интернет есть много вопросов, но полезных ответов практически нет. Начнем с простого - как <br>подключиться к этому каталогу и получить интересующие данные. | Автор статьи: aleks-id | Редакторы: Asmody Последняя редакция №3 от 19.03.13 | История URL: http://kb.mista.ru/article.php?id=873 |
Соединение = Новый 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();
Описание
| Рубрикатор
| Поиск
| ТелепатБот
| Захваченные статьи
| Установки
| Форум
|