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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Открытие ...

Тема: Открытие защищенных баз данных

15.06.2007 21:08:35

All

4316 сообщения

Тема: Открытие защищенных баз данных

Просвятите пожайлуста, хотелось узнать как можно открыть из VB6 в окне Access базу данных mdb от имени конкретного пользователя с его естесственно паролем (так чтоб не вводить пароль в процессе открытия Access). Использую Shell "cmd /X /C C:\\путь" ну и естесственно access запрашивает пользователя и пароль. Пробовал передать имя и пароль параметрами - ни чего не выходит.

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

15.06.2007 21:08:35

All

4316 сообщения

RE: Открытие защищенных баз данных

вот несколько прог работы с пользователями и группами может что откопашь.
Sub ДабавлениеПользователяВГруппу(var_ИмяПользователя As Variant, var_Группа As Variant)
On Error GoTo Err_ДабавлениеПользователяВГруппу

Dim ws As Workspace
Dim usr As User
Dim grp As Group

Dim i As Integer
Set ws = DBEngine.Workspaces(0)
Set grp = ws.Groups(var_Группа)

If Not ЕстьЛиПользовательВГруппе(var_ИмяПользователя, var_Группа) Then
Set usr = grp.CreateUser(Nz(var_ИмяПользователя))
grp.Users.Append usr
grp.Users.Refresh
End If

Exit_ДабавлениеПользователяВГруппу:
Exit Sub

Err_ДабавлениеПользователяВГруппу:
MsgBox err.Description
Resume Exit_ДабавлениеПользователяВГруппу

End Sub

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

15.06.2007 21:08:35

All

4316 сообщения

RE: Открытие защищенных баз данных

Sub СоздатьНовогоПользователя(var_ИмяПользователя As Variant, var_КодПользователя As Variant, var_ПарольПользователя As Variant)
On Error GoTo Err_СоздатьНовогоПользователя

Dim ws As Workspace
Dim usr As User
Dim grpUser As Group
Dim i As Integer
Set ws = DBEngine.Workspaces(0)
Set grpUser = ws.Groups("Users")

For i = 0 To ws.Users.Count - 1
If ws.Users(i).Name = var_ИмяПользователя Then
MsgBox "Пользователь с именем """ & var_ИмяПользователя & """ уже существует. Введите другое имя.", vbCritical, "ВНИМАНИЕ!"
GoTo Exit_СоздатьНовогоПользователя
End If
Next i

If MsgBox("Имя: " & var_ИмяПользователя & Chr(13) & Chr(10) & "Код: " & var_КодПользователя & Chr(13) & Chr(10) & "Пароль:" & var_ПарольПользователя, vbQuestion + vbYesNo + vbDefaultButton2, "Создание нового пользователя") = vbYes Then
Set usr = ws.CreateUser(Nz(var_ИмяПользователя), Nz(var_КодПользователя), Nz(var_ПарольПользователя, ""))
ws.Users.Append usr
Set usr = grpUser.CreateUser(var_ИмяПользователя)
grpUser.Users.Append usr
grpUser.Users.Refresh
End If

Exit_СоздатьНовогоПользователя:
Exit Sub

Err_СоздатьНовогоПользователя:
MsgBox err.Description
Resume Exit_СоздатьНовогоПользователя

End Sub

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

15.06.2007 21:08:35

All

4316 сообщения

RE: Открытие защищенных баз данных

Function СписокГруппПользователя(UserName As String) As String

'Функция возвращает список групп, в которые входит заданный пользователь, разделенных ";",
'кроме группы "Users"

Dim ws As Workspace
Dim i As Integer
Dim j As Integer
Dim txt As String

txt = ""
Set ws = DBEngine.Workspaces(0)
On Error GoTo Exit_СписокГруппПользователя
For i = 0 To ws.Groups.Count - 1
If ws.Groups(i).Name <> "Users" Then
For j = 0 To ws.Groups(i).Users.Count - 1
If ws.Groups(i).Users(j).Name = UserName Then
txt = txt & ws.Groups(i).Name & ";"
End If
Next j
End If
Next i

If txt <> "" Then
txt = Left(txt, Len(txt) - 1)
End If

Exit_СписокГруппПользователя:
СписокГруппПользователя = txt

End Function

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

15.06.2007 21:08:35

All

4316 сообщения

RE: Открытие защищенных баз данных

Это не всё есть ещё. в библиотеке програмиста. CodeLib.mde. где-то я её скачал.Спасибо добрым людям помогают без корысти.

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

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Открытие ...

Поиск

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

Начало | Forums