Ситуация такова. Необходимо связать 1с 7.7 и DB2.

Установил DB2 9 Express C с родного сайта, прописал источники данных в ODBC по инструкции: http://support.mdl.ru/Pc_compl/Doc/Db2/v7.1/ru/Html/db2c1/frame3.htm#db2c164
Проверка соединения показывает что все в порядке.

Создаю объект в 1С:

АДОСоединение = СоздатьОбъект("ADODB.Connection");
АДОСоединение.Provider = "db2oledb";
АДОСоединение.Properties("Network Transport Library").Value = "TCPIP";
АДОСоединение.Properties("Network Address").Value = "IT-1C";
АДОСоединение.Properties("Package Collection").Value = "DB2";
АДОСоединение.Properties("Host CCSID").Value = "1142";
АДОСоединение.Properties("Initial Catalog").Value = "SAMPLE";
АДОСоединение.Properties("User ID").Value = "Denis";
АДОСоединение.Properties("Password").Value = "159357";
АДОСоединение.Open();

на третьей строке вываливается с ошибкой: АДОСоединение.Properties("Network Transport Library").Value = "TCP/IP";
{D:\BASE\КОПИЯТИС\EXTFORMS\DB2.ERT(5)}: ADODB.Connection: Не удается найти указанного поставщика. Вероятно, он установлен неправильно.

Уже весь интернет перекопал.

Я так понимаю, что ADODB подключение должно быть такое же как к MS SQL - типовое, но не работает.

Подскажите, что может быть?

RomanSavelyevПервым делом, на станции, где работает 1Ц, запустите ассистент конфигурирования (Start/DB2/<ваш экземпляр>/инструменты установки/ассистент конфигурирования)

Вопросы:
1) В списке есть нужная БД?
2) Если нет, то добавьте, не пренебрегая интерфейсои ODBC.
3) Тест соединения проходит нормально через все интерфейсы?

Да, тест везде проходит нормально. В ассистенте БД присутствует.

RomanSavelyevТрижды проситал и только сейчас заметил :)
LeschСитуация такова. Необходимо связать 1с 7.7 и DB2.
АДОСоединение.Provider = "db2oledb";

Откуда db2oledb, если IBMDADB2?

Спасибо всем, я уже разобрался!

Fergus12,

АДОСоединение = Новый COMОбъект("ADODB.Connection");
АДОСоединение.Provider = "IBMDADB2";
АДОСоединение.Open("DSN = SAMPLE; UID = ###; PWD = ###");
АДОКоманда = Новый COMОбъект("ADODB.Command");
АДОКоманда.ActiveConnection = АДОСоединение;
АДОКоманда.CommandText = "SELECT *
|FROM ""UserName"".ADEFUSR";
АДОКоманда.Prepared = 1;

Состояние("Выполнение запроса...");
АДОРекордСет = Новый COMОбъект("ADODB.RecordSet");
АДОРекордСет = АДОКоманда.Execute();

Если АДОРекордСет.EOF() <> 0 Тогда
Сообщить("Нифига не прочиталось.");
Возврат;
КонецЕСли;
Табз = Новый ТаблицаЗначений;
Табз.Колонки.Добавить("Ном1");
Табз.Колонки.Добавить("Ном2");

Состояние("Заполнение таблицы...");
АДОРекордСет.MoveFirst();
Пока АДОРекордСет.EOF() = 0 Цикл
НоваяСтрока = Табз.Добавить();
НоваяСтрока.Ном1 = АДОРекордСет.Fields.Item(0).Value;
НоваяСтрока.Ном2 = АДОРекордСет.Fields.Item(1).Value;
АДОРекордСет.MoveNext();
ОбработкаПрерыванияПользователя();
КонецЦикла;
Табз.ВыбратьСтроку();