Batchir @ Сегодня, 14:51 ,
Спасибо. Заработало. Теперь только проверить, нужно ли указывать строку непосредственно в Предприятии.
Еще раз, большое спасибо!

Batchir @ Сегодня, 9:08 ,
Спасибо. Попробовл под "Такси", тоже самое. Есть чуйка, что где-то, какаого-то пустячка не хватает.

Flexy @ Сегодня, 13:12 ,
Попробовал. Пишет "Соединение установлено", а таблиц не видит.

Lunatik, Acid @ Сегодня, 8:58 ,
Спасибо. Проверил, не работает. Разрядность везде 32.

Всем доброго дня!

Цель подключиться к базе SQL, чтобы запросы к SQL базам ,можно было собирать в консоли запущенной в 1С.
С подключение по ADO проблем нет, цель в том что бы работать с таблицами SQL не перетаскивая их в 1С.

ODBC обновлял, стоят 11 и 13 версий.
На вкладке "Пользовательский DSN" Имя:Northwind , Драйвер: ODBC Driver 11 for SQL Server
На вкладке "Системный DSN" тоже самое.

При подключении в конфигураторе внешнего источника данных мастером на каждом шаге он задумывается и рождает вот такую строку:
DRIVER={ODBC Driver 11 for SQL Server};SERVER=kvazar;UID=sa;PWD=1234;DATABASE=Northwind
Когда строку беру со своей старой обработки подключается молниеносно:
driver={SQL Server}; server=kvazar; uid=sa; pwd=1234; Database=Northwind

Для большей ясности фрагмент кода:

Процедура ВывевтиКатегорииНажатие(Элемент)
    
    Соединяние = Новый COMОбъект("ADODB.Connection");
    ConnectionString = "driver={SQL Server}; server=kvazar; uid=sa; pwd=1234; Database=Northwind";
    Соединяние.ConnectionTimeOut =200;  
    Соединяние.CursorLocation = 2;
    Попытка
        Соединяние.Open(ConnectionString); 
        Предупреждение("Соединение установлено");
    Исключение
        Предупреждение("Невозможно установить соединение");
    КонецПопытки;
    
     //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |    dbo_Categories.Ссылка,
        |    dbo_Categories.CategoryID,
        |    dbo_Categories.CategoryName,
        |    dbo_Categories.Description,
        |    dbo_Categories.Picture
        |ИЗ
        |    ВнешнийИсточникДанных.Боерей.Таблица.dbo_Categories КАК dbo_Categories";
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Сообщить(ВыборкаДетальныеЗаписи.CategoryName);
    КонецЦикла;
    
    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

КонецПроцедуры

Перед тем как потревожить уважаемое сообщество, плясал с бубном очень долго.

Спасибо большое, если кто откликнется

Спасибо, камрад!!!

Всем доброго здравия!

Парни подскажите пожалуйста где туплю?
Платформа 8.2
Конфигурация УПП
Регистр о котором идет речь не периодический (Я сам установил атрибут "непериодический")
Одно измерение "Организация"
Проблема в том, что заполняется только одна запись и в той поле организация пустое

Ниже привожу код.Извините если че не так, я тут не часто.

Процедура ЗагрузкаВнутреннихФирмНажатие(Элемент)
    ОчиститьСообщения();
    SQLServer = Новый COMОбъект("ADODB.Connection");
    ConnectionString = "driver={SQL Server}; server="+Сервер+"; uid="+Логин+"; pwd="+Пароль+"; Database="+База+"";
    SQLServer.ConnectionTimeOut =60; 
    SQLServer.CursorLocation = 3;  
    
    Попытка
        SQLServer.Open(ConnectionString); 
        Сообщить("Соединение с SQL-сервером установлено!");
    Исключение
        Предупреждение("Невозможно установить соединение");
    КонецПопытки;
    
    Cmd = Новый COMОбъект("ADODB.Command");
    Cmd.ActiveConnection = SQLServer;
    
    Cmd.CommandText = "select * from r_ours";
    
    Rs = Новый COMОбъект("ADODB.RecordSet"); 
    Rs = Cmd.Execute(); //Выполнение и получение набора данных
    
    Rs.MoveFirst();                 
    Пока Rs.EOF() = 0 Цикл  
          НовыйОбъект = Справочники.Организации.СоздатьЭлемент();
        НовыйОбъект.OurID = Rs.Fields("OurID").Value;
        НовыйОбъект.Наименование = Rs.Fields("OurName").Value;
        
    // *** Проблемный фрагмент
        НаборЗаписей = РегистрыСведений.КодыОрганизации.СоздатьНаборЗаписей();
        
        НаборЗаписей.Отбор.Организация.Установить(НовыйОбъект);
        
        НоваяЗапись = НаборЗаписей.Добавить();
        
        НоваяЗапись.Организация = НовыйОбъект;
        Сообщить(НоваяЗапись.Организация); // Ничего не выводится!!!
        НоваяЗапись.КодПоЕДРПОУ = Rs.Fields("Code").Value;
        НоваяЗапись.ИНН = Rs.Fields("TaxCode").Value;
        НоваяЗапись.НомерСвидетельства = Rs.Fields("TaxRegNo").Value;
        НаборЗаписей.Записать();        
    // *** Конец проблемного фрагмента
        
        НовыйОбъект.Записать();
      Rs.MoveNext();  
      КонецЦикла;
    Rs.Close();
КонецПроцедуры