Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 02.07.2016
Сообщений: 2
1

Пользователей из компонента ADO в Delphi с системной базы данных MS Access

08.09.2017, 17:05. Показов 577. Ответов 2

Как получить список пользователей из компонента ADO в Delphi с системной базы данных MS Access (mdw), как в SQL запросе MSysUserList?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.09.2017, 17:05
Ответы с готовыми решениями:

Подключение базы данных sql к delphi через ADO
Здравствуйте. При подключении базы данных созданной в sql managment studio через ADODB возникает...

Как добавлять записи в таблицу базы данных Access программно через ADO?
Как добавлять записи в таблицу базы данных Access программно через ADO?:yahoo:

C#, ADO.NET. Как защитить файл базы данных Access от удаления пользователем через проводник?
VS 2010, framework 4. Добавляю в проект ссылку "Microsoft ADO Ext. 2.8 for DDL and Security"....

Почему не отрабатывает компонент ADO/Delphi запущенный под системной учетной записью?
Добрый день! Имеется рабочее приложение написанное на Delphi с компонентами ADO. Приложение берет...

2
Эксперт MS Access
26635 / 14328 / 3172
Регистрация: 28.04.2012
Сообщений: 15,711
08.09.2017, 17:54 2
Как в дельфи не подскажу. А в аксе можно использовать свойство ADO-подключения OpenChema. Наверное и в дельфи также. Пример процедуры на ВБА, в которой в область отладки (Immediate) пишутся пользователь и компьютеры. Предполагается, что библиотека ADODB подключена
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub ADOUsers()
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim strLoginName As String
    Dim strComputerName As String
 
    Set cnn = CurrentProject.Connection
    Set rst = cnn.OpenSchema(adSchemaProviderSpecific, , _
              "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
 
    Do Until rst.EOF
        Debug.Print "Все пользователи", rst!Login_Name, rst("Computer_Name")
        If rst("Connected") Then
 
        'Подключенные пользователи и их компьютеры
            strLoginName = Left(rst("Login_Name"), InStr(rst("Login_Name"), vbNullChar) - 1)
            strComputerName = Left(rst("Computer_Name"), InStr(rst("Computer_Name"), vbNullChar) - 1)
        
            Debug.Print "Подключенные", strLoginName, strComputerName
        End If
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    Set cnn = Nothing
 
End Sub
0
0 / 0 / 0
Регистрация: 02.07.2016
Сообщений: 2
08.09.2017, 20:10  [ТС] 3
То немного не то, в ado delphi такой функции, или похожей нету. Уже все перерыл ничего не нашел. Разве пробовать через SQL запросы, связаться с системной таблицей.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.09.2017, 20:10

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Delphi БД - Access + ADO
Всем привет. Сразу к делу: проект в Delphi 7, к нему подцеплена БД Access через ADO (все элементы,...

Delphi Access and ADO
Здравствуйте! Пишу программу с первым применением БД. БД Access. Там несколько таблиц. В...

Access+Delphi+ADO
Добрый вечер уважаемые програмисты! Помогите решить задачку. Есть таблица в Аксесе: Дата ...

Помогите с БД Delphi+ADO+Access
Как мне сделать, чтобы при нажатии на кнопку заносилась(адресс фотографии) в таблицу в поле...

delphi+ADo+Access ERROR
error что делать , кто знает в чем дело можете подсказать?

Delphi и SQL (ADO, Access)
Здравствуйте. Возникла такая проблема: Использую Access через ADO. Создаю новое поле (столбец) в...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.