Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
10 / 10 / 0
Регистрация: 13.04.2011
Сообщений: 104

AdoQuery VS ActiveDirectory

29.11.2013, 18:57. Показов 2323. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вечер добрый!
Столкнулся с проблемой. Тестс запроса, записанный непосредственно в SQL компонента - работает на "ура":
SQL
1
SELECT userPrincipalName, Name, sAMAccountName FROM 'LDAP://myAD' WHERE objectCategory = 'person'
а код, добавляющийся вот так:
Pascal
1
2
3
4
5
6
7
8
9
with Componentsform.Query_AD_user do
begin
        Active := FALSE;
        SQL.Clear;
        SQL.add('select userPrincipalName, Name, sAMAccountName from ');
        sql.add('"LDAP://myAD"');
        sql.add('where objectCategory ="person"');
        open;
end;
грязно ругается на "Access violation at adress..."
Как только не расставлял кавычки, и квотедстр использовал и тд - ошибка и все!

Что я делаю не так? Кто сталкивался с подобным?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
29.11.2013, 18:57
Ответы с готовыми решениями:

Запрос ADOQuery внутри другого ADOQuery реален?
Помогите сформировать запрос для двух ADOQuery. Есть 2 таблицы БД mssql: sotrudniki , table_hlp(Вспомогательная таблица для делания...

Про ActiveDirectory
Вопрос собственно про ActiveDirectory. На машинах пользователей (windows ХР) установлена служба, считывающая при логине пользователя...

ActiveDirectory & C++
Всем здравствуйте!!! В общем возникла такая задача написать функции для работы с АД 1 функция должна получать sAMAccountName пользователя...

6
 Аватар для ZfoxAK
670 / 560 / 242
Регистрация: 26.11.2012
Сообщений: 2,191
02.12.2013, 08:31
Цитата Сообщение от Rydo Посмотреть сообщение
sql.add('"LDAP://myAD"');
* * * * sql.add('where objectCategory ="person"');
Поробуй так.
sql.add( ''''+'LDAP://myAD'+'''');
sql.add('WHERE objectCategory = ' + '''' + 'person' +' ''');

Добавлено через 49 секунд
Цитата Сообщение от Rydo Посмотреть сообщение
Active := FALSE;
можно использовать
Delphi
1
Close;
0
10 / 10 / 0
Регистрация: 13.04.2011
Сообщений: 104
02.12.2013, 11:10  [ТС]
Цитата Сообщение от ZfoxAK Посмотреть сообщение
Поробуй так.
sql.add( ''''+'LDAP://myAD'+'''');
всё равно та же ошибка. Возникает на этой строке.

При пошаговом проходе еррор появляется 3 раза, после него появляется EOleException "Сервер неработоспособен".


Могут ли " // " мешать?
0
 Аватар для ZfoxAK
670 / 560 / 242
Регистрация: 26.11.2012
Сообщений: 2,191
02.12.2013, 11:43
Цитата Сообщение от Rydo Посмотреть сообщение
Могут ли " // " мешать?
Если бы мешали, то
Цитата Сообщение от Rydo Посмотреть сообщение
Тестс запроса, записанный непосредственно в SQL компонента - работает на "ура":
не работал бы на "ура".

Добавлено через 1 минуту
В место Open попробуй закинуть для просмотра в
Delphi
1
ListBox1.Items:= ADOQuery1.sql;
и посмотри какой запрос получается
0
10 / 10 / 0
Регистрация: 13.04.2011
Сообщений: 104
02.12.2013, 11:50  [ТС]
Запрос верен.


Странно все это.
0
 Аватар для ZfoxAK
670 / 560 / 242
Регистрация: 26.11.2012
Сообщений: 2,191
02.12.2013, 11:53
Можно занести запрос сразу в ListBox и из него передавать в query
1
10 / 10 / 0
Регистрация: 13.04.2011
Сообщений: 104
02.12.2013, 12:11  [ТС]
Почему то мне кажется что дело не в запросе. Какие то иные механизмы мешают. Попробую изменить концепцию и сделать по другому. Запрос пусть с компоненты идет раз оттуда работает, а потом уже буду обрабатывать его так как мне нужно. Конечно это менее производительный вариант, но по крайней мере рабочий.

Спасибо за помощь!

п.с. Отпишусь как будет работать новый варинат или если найду решение первоначального.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
02.12.2013, 12:11
Помогаю со студенческими работами здесь

Windows 2003 ActiveDirectory
Здравствуйте, стоит задача ограничить доступ к некоторым сайтам, некоторым пользователям. Все пользователи входят в домен. Подскажите...

Доступ к ActiveDirectory из Delphi
Народ, посоветуйте ссылки про доступ к ActiveDirectory из Delphi или может даже кто то что то прямо здесь напишет, а то я пока ничего по...

Проблема с сеансами в ActiveDirectory
Как запретить одновремменые сеансы пользователей в ActiveDirectory. Есть контроллер домена под Windows2000Server и группа пользователей...

Восстановление ActiveDirectory в msconfig
Пытаясь восстановить систему и нажимая все, что хоть как-то связано с этим, я наткнулся на этот параметр в msconfig, перезагрузил...

Перенос ActiveDirectory на новый сервер
Здравствуйте! Есть. Сервер с работающей ActiveDirectory, контроллер домена. По разным причинам -не важно каким- работать он не может. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru