Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Запрос к AD (число прочтений - 1176 )
chessman
God Member
*****
Отсутствует



Сообщений: 1084
Зарегистрирован: 10. Августа 2007
Запрос к AD
24. Марта 2009 :: 12:31
Печать  
Процедура Сформировать()
     DB = СоздатьОбъект("OLEDBData");
     Message(DB.Соединение("Provider=ADSDSOObject"));
     Запрос = DB.СоздатьКоманду();

     ТекстЗапроса  = "
           |SELECT
           |      department
           |from
           |      'GC://HYDRA'
           |where
           |      objectClass ='user'
           |      and objectClass ='person'
           |";
     ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
     ТЗ.ВыбратьСтроку();
КонецПроцедуры


1C вылетает с ошибкой
  

Clipboard01_006.jpg ( 13 KB | Загрузки )
Clipboard01_006.jpg
Наверх
 
IP записан
 
chessman
God Member
*****
Отсутствует



Сообщений: 1084
Зарегистрирован: 10. Августа 2007
Re: Запрос к AD
Ответ #1 - 24. Марта 2009 :: 12:38
Печать  
Вот так все работает

Процедура Сформировать()
     Запрос = СоздатьОбъект("ADODB.Connection");      
     Запрос.Provider = "ADSDSOObject";
     Запрос.Open();

     ТекстЗапроса  = "
           |SELECT
           |      department
           |from
           |      'GC://HYDRA'
           |where
           |      objectClass ='user'
           |      and objectClass ='person'
           |";
           
     RS = Запрос.Execute(ТекстЗапроса);      
     While RS.EOF() = 0 Do
           Message(RS.Fields(0).Value);
           RS.MoveNext();
     EndDo;
КонецПроцедуры
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать