Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: определен...

Тема: определение имени пользователя

15.06.2007 21:09:32

w0r0n

1 сообщения

Тема: определение имени пользователя

Стоит Windows 2003 Server + Terminal Server и каждый пользователь входит в свой личный аккаунт и работает только в нём. Соответственно запрашивать у человека логин/пароль для открытия базы ацеса нет никакого толка - ибо сама операционная система уже знает как его зовут.

Вопрос: как заставить ацес определить имя того пользователя из под которого он запускается, т.е. не имя пользователя ацеса а именно имя пользователя в системе (системная переменная USERNAME)

P.S. Защита базы данных
Автор: w0r0n от 25.06.2005 21:29:40 Источник ...

15.06.2007 21:09:32

All

4316 сообщения

RE: определение имени пользователя

' 8 пример, la_api.mdb
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

' Возвращает сетевое имя пользователя
Function funGetUserName() As String
Dim BufSize As Long, strUserName As String * 255, status As Long
On Error GoTo 999
BufSize = 255
status = apiGetUserName(strUserName, BufSize)
If status = 1 Then
funGetUserName = Left$(strUserName, InStr(strUserName, Chr(0)) - 1)
Else
funGetUserName = ""
End If
Exit Function
999:
MsgBox Err.Description
End Function

P.S. Защита базы данных
Автор: Admin от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: определен...

Поиск

Список форумов

Начало | Forums