@wishcom

Как наложить пароль на базу *.mdb
Или запаролить отдельный столбец.
И при загрузке формы открыть базу и ввести пароль

0

@webattashe

1. установить пароль при создании базы данных с помощью ADOX
2. Установить пароль на существующую базу данных с помощью ADO
Если пароль устанавливается впервые, вместо OldPassword следует поставить null. При этом св-во Mode, объекта Connection должно быть = adModeShareExclusive.

3. Ооткрыть базу с паролем для чтения и записи?

0

@wishcom

Можно вот это расстусовать :
'Если пароль устанавливается впервые, вместо OldPassword следует поставить null. При этом св-во Mode, объекта Connection должно быть = adModeShareExclusive. '

Я пробывал, безрезультатно...

0

@webattashe

Вставте в форму и запустите.
Не забудте в Project -> References ->
Microsoft DAO 3.6 Object library
Microsoft ActiveX Data Object library (любой версии)


[code]

Private Sub Form_Load()

On Error Resume Next

'#################################################
'# Создаем базу в DAO - Microsoft DAO 3.6 Object library
'# так как в ADO не создать новую базу .MDB
'#################################################

Dim WS As Workspace
Dim db As Database
Dim strPath As String

strPath = 'c:MyTest.mdb'

'#################################################
'# Если база есть удаляем и создаем новую тестовую базу
'#################################################

If Dir$(strPath) Then
Kill (strPath)
End If

Set WS = DBEngine.Workspaces(0)
Set db = WS.CreateDataBase(strPath, dbLangGeneral)

'#################################################
'# Поставить пароль при создании базы
'# старый пароль , новый пароль
'# db.NewPassword '', 'attashe'
'#################################################

db.Close
WS.Close
Set db = Nothing
Set WS = Nothing

'#################################################
'# Соединяемся с помощью ADO заменяем пароль, создаем
'# таблицу, заносим и получаем запись
'#################################################

Dim strSQL As String
Set cnDatabase = New ADODB.connection

With cnDatabase
.Mode = adModeShareExclusive
.Provider = 'Microsoft.Jet.OLEDB.4.0;'
.ConnectionString = strPath
.Open
End With

' меняем пароль
strSQL = 'alter database password test Null'
cnDatabase.Execute (strSQL)
' создаем таблицу
strSQL = 'CREATE TABLE test (test text(10))'
cnDatabase.Execute (strSQL)
' вводим текст
strSQL = 'INSERT INTO test (test) VALUES ('test')'
cnDatabase.Execute (strSQL)

Dim msg As String
Dim ErrObj As Object

'#################################################
'# Выводим сообщение об ощибках
'#################################################

If cnDatabase.Errors.Count > 0 Then

For Each ErrObj In cnDatabase.Errors
msg = msg & 'Error at connection database ' & strPath & vbCrLf & ' ' & ErrObj.Number & ':' & ErrObj.Description
Result = (Result And ErrObj.Number = 0)
Next
MsgBox msg, vbCritical + vbOKOnly, 'Data base test'

End If

cnDatabase.Close
Set cnDatabase = Nothing

'#################################################
'# Подключаемся заново с использованием нового пароля
'#################################################

Set cnDatabase = New ADODB.connection

With cnDatabase
.Mode = adModeShareExclusive
.Provider = 'Microsoft.Jet.OLEDB.4.0; Jet OLEDBatabase Password = test'
.ConnectionString = strPath
.Open
End With

Dim rs As New ADODB.Recordset

' получаем текст из базы
strSQL = 'SELECT * FROM test'
rs.Open strSQL, cnDatabase

'#################################################
'# Выводим сообщение об ошибке или успехе
'#################################################

If Errors.Count > 0 Then
MsgBox Err.Description, vbCritical + vbOKOnly, 'Data base test'
Else
MsgBox 'DB created' & vbCrLf & 'Set new Password ' & vbCrLf & 'Create table and insert text - ' & rs('test'), vbInformation + vbOKOnly, 'Data base test'
End If

rs.Close

cnDataba

0

@webattashe

Сменить пароль используя Microsoft DAO 3.6 Object library

Тестируйте и выбирайте подходящий вариант

0

@wishcom

Спасибо огромное!!! Всё клёво!!!

Поставил пароль 1. - db.newPassword '', 1
А убрать не могу... - db.newPassword 1, '' (не работает)

0

@webattashe

Удалить пароль используя Microsoft DAO 3.6 Object library

0

Vrubel1

месяц еб__ся других слов нет!!!!

Устанавливаю пароль и группы с помощью мастера Ассеss.
Подругому не смог. Пароль не подходит тк входишь в базу с правами Админа.
'Убей Админа!!!' ))))))

Я так понимаю в софте по защите Ассеss серьёзный глюк.

@Serge Gavrilov

>Я так понимаю в софте по защите Ассеss серьёзный глюк.
Вряд ли ...

0

@wishcom

Актуально...

0