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

Выводить имя человека а не компьютера

03.02.2017, 14:24. Показов 1068. Ответов 6
Метки нет (Все метки)

Есть вот такой код, который выводит, кто находиться в базе. Точнее выводит имя компьютера в сети. Так вот как заменить имя компьютера на Реальное. Например я знаю, что под CompUsr1 - Вася Пупкин. Нужно что бы в списке выводилось именно имя.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Const SCHEMA_USER = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"
 
Private Sub Form_Load()
    Dim rst As ADODB.Recordset
    Set rst = CurrentProject.Connection.OpenSchema(adSchemaProviderSpecific, , SCHEMA_USER)
    lstUsers.RowSource = vbNullString
    Do Until rst.EOF
        lstUsers.AddItem rst(0)
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
End Sub
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2017, 14:24
Ответы с готовыми решениями:

Определить самого старшего человека из списка и выводить его фамилию, имя и дату рождения
19) Имеется список людей с указанием их фамилии, имени и даты рождения. Напишите эффективную по...

Вывести IP-адрес компьютера, имя компьютера, имя пользователя и дату и время включения/выключения компьютера
необходимо написать скрипт который, будет лежать в автозагрузке на локальных машинах и выводить в...

Определить, правильно ли написано имя человека (имя не содержит чисел)
помогите создать программу в паскале:напишите программ который проверяет правильно ли написанно имя...

Как послать имя компьютера и имя учетной записи с ip письмом
Добрый день. Шеф поставил задачу, собрать данные из компьютеров внутри нашей локальной сети, а...

6
Эксперт MS Access
26636 / 14329 / 3172
Регистрация: 28.04.2012
Сообщений: 15,714
03.02.2017, 16:50 2
Попробуйте rst(1)
Visual Basic
1
lstUsers.AddItem rst(0) & " - " & rst(1)
Добавлено через 1 час 19 минут
Наверное я неправильно понял вопрос. Похоже ТС хочет увидеть локальное имя сетевого компа в домене. Насколько я понимаю защищенная сеть не даст этого сделать, это же дыра в защите.
Я бы сделал таблицу соответствий имен сетевых и локальных. Функцией определяем сетевое имя и по таблице находим локальное.
0
2 / 2 / 0
Регистрация: 05.06.2015
Сообщений: 96
04.02.2017, 08:41  [ТС] 3
Вот именно это я и имел ввиду. Нужно таблица в которой я прописываю что User 1 это Вася, а User 2 это Петя и в списке мне выдавало не User 1 и User 2. А Вася и Петя.
Вариант созданием таблицы с соответствием сетевых и локальных имен то что нужно, но я не совсем понял как прописать функцию?
0
Эксперт MS Access
26636 / 14329 / 3172
Регистрация: 28.04.2012
Сообщений: 15,714
05.02.2017, 22:53 4
Лучший ответ Сообщение было отмечено drbraun как решение

Решение

Делаете таблицу, пусть для определенности называется "ПК_в_сети", с полями СетевоеИмя и ЛокальноеИмя. Заполняете ее вручную. Делаем функцию, показывающую сетевые имена. Пример с 2 методами поиска сетевых ПК во вложении. Методы дают разные наборы сетевых ПК. Возможно это зависит от типа сети: простая домашняя или корпоративная с сервером, доменом. Попробуйте оба. Возможно какой-то подойдет.
Если в процессе поиска найдется комп, не указанный в таблице, то выйдет вопрос и форма где будет сетевое имя ПК и надо заполнить локальное имя.
3
Вложения
Тип файла: rar Локальная сеть.rar (29.0 Кб, 25 просмотров)
2 / 2 / 0
Регистрация: 05.06.2015
Сообщений: 96
06.02.2017, 10:42  [ТС] 5
Это просто шикарно. Огромное спасибо! Даже лучше чем я представлял.
0
0 / 0 / 0
Регистрация: 10.10.2016
Сообщений: 55
29.05.2017, 14:10 6
Цитата Сообщение от drbraun Посмотреть сообщение
Const SCHEMA_USER = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"
- Я так понимаю это Код лицензии windows???
0
Мы один, давай на "ты"
2446 / 1035 / 250
Регистрация: 16.06.2016
Сообщений: 2,309
30.05.2017, 03:54 7
Цитата Сообщение от Lavr2482 Посмотреть сообщение
Я так понимаю это Код лицензии windows???
Нет, это GUID. Он однозначно идентифицирует схему которую поддерживает метод OpenSchema объекта Connection.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2017, 03:54

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

Зная ip адрес компьютера и его имя вывести имя пользователя
Зная ip адрес компьютера и его имя вывести имя пользователя в текстовое поле. я смог осилить...

Напечатать имя человека, начиная с конца
Составить программу, которая: 1) запрашивает имя человека и адрес, а затем выводит сообщение: «…...

Вывести имя самого высокого человека
не выводится имя в конце.. program zapici_6; Uses CRT; Type tabl=record name:string;...

Выделять из имени каждого файла имя компьютера и имя учётной записи и записывать их в два файла соответственно
здравствуйте, подскажите... Есть например, 10 файлов (.txt) в названии которых написано имя...


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

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

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