powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Задание пароля на БД
24 сообщений из 24, страница 1 из 1
Задание пароля на БД
    #32187236
mort
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Народ как из клиента задать пароль на открытие БД.
Т.е. из программы создается база данных Access а потом после создания надо задать пароль.

Заранее спасибо.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Задание пароля на БД
    #32752699
Credo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот-вот, и мне подскажите, пожалуйста
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32752795
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
См. Help
DAO.Database.NewPassword
и
DAO.DBEngine.CompactDatabase
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32752920
Credo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А можно ссылочку на все это?
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32752938
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
F1
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32752941
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ссылочка на F1 - всё сидит в встроенном хэлпе+ поиск по конфе даст достаточно примеров кода
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32752984
Credo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нету там никакого NewPassworda!!!!!!!!!!
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32753000
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CredoНету там никакого NewPassworda!!!!!!!!!!
DAO подключено? Если да, то наберите в коде или Immediate window NewPassword и нажмите F1 (можно и Object Browser использовать)
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32753046
z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
z
Гость
А если используется ADO?
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32753056
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CredoНету там никакого NewPassworda!!!!!!!!!!
протираем глазки
подключаем DAO
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32753113
z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
z
Гость
Аууууууууу!!! А если используется ADO?
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32753236
к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
к
Гость
Ну вот такой вот код используется:
а как же задать новый пароль?
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32753299
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zАууууууууу!!! А если используется ADO?
а НЕТУ в ADOX пароля на базу - поэтому подключаем ссылку на DAO и не паримся
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32753303
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кНу вот такой вот код используется:
а как же задать новый пароль?
блин - ну написано -же НОВЫЙ пароль
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32753670
н
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
н
Гость
Вы уверены, что нету у ADOX пароля на базу?
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32753819
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нВы уверены, что нету у ADOX пароля на базу?
я уверен , пароли у юзеров/групп см картинку - на базу ёк
P.S. в ADOX много ещё чего нет
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32754074
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
Public Function ChangePassword(ByRef SourceDB As String, _                               ByRef DestDB As String, _                               ByRef OldPswd As String, _                               ByRef NewPswd As String) As BooleanOn Error GoTo ErrHandler    Dim JRO         As JRO.JetEngine    Dim SourceCnn   As String    Dim DestCnn     As String         Set JRO = New JRO.JetEngine        \' Kill the backup file if it currently exists    If Dir(DestDB) <> vbNullString Then Kill DestDB         \' Build the SourceConnection ConnectionString    SourceCnn = "Provider=Microsoft.Jet.OLEDB.4.0" & _                ";Data Source=" & SourceDB & _                ";Jet OLEDB:Database Password=" & OldPswd    NewPswd = StrConv(NewPswd, vbFromUnicode)    \' Build the DestConnection ConnectionString    DestCnn = "Provider=Microsoft.Jet.OLEDB.4.0" & _              ";Data Source=" & DestDB & _              ";Jet OLEDB:Engine Type=5" & _              ";Jet OLEDB:Database Password=" & NewPswd        \' Create replica with new password    JRO.CompactDatabase SourceCnn, DestCnn        \' Kill the original and rename the replica    Kill SourceDB    Name DestDB As SourceDB    ChangePassword = True    ErrHandler:    Set JRO = Nothing        If Err.Number <> 0 Then        ChangePassword = False        Err.Raise Err.Number, Err.Source, Err.Description    End IfEnd Function
Как отформатирован этот код?
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32755218
Credo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
to marvan:

Ты меняешь пароль в уже существующей базе и с заданным паролем, а прикол в том, что средствами ADO или DAO надо создать БД и задать ей пароль. Создается же она тока под User ID = Admin и Psw = '' и никак больше :-(
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32755272
Credo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
to Shuhard:

CString FullPath2MDBFileWithDblSlash = "D:\\Temp\\create13.mdb";

AfxGetModuleState()->m_dwVersion = 0x0601;
CDaoDatabase db;
db.Create(FullPath2MDBFileWithDblSlash,dbLangGeneral,0x40);

Создается БД с User ID = Admin и Pwd = ''. Каким образом сейчас задать пароль БД? Надо ли ее открывать монопольно? ЗАранее благодарю за ответ ;-)
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32755284
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть юзера ,их пароли,права на обьекты,
а есть пароль на mdb - ставиться он через DAO см выше ответ S.Gavrilova
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32755531
Credo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот кусочек:

CString FullPath2MDBFileWithDblSlash = "D:\\Temp\\create14.mdb";
AfxGetModuleState()->m_dwVersion = 0x0601;
CDaoDatabase db;
db.Create(FullPath2MDBFileWithDblSlash,dbLangGeneral,0x40);
db.Close();

db.Open(FullPath2MDBFileWithDblSlash,TRUE,TRUE);
db.NewPassword("","password");

Создаю БД, открываю в эксклюзивном режиме (второй параметр в Open), а вылетает на последней строке NewPassword. И что же делать? Как мне быть?
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32755572
Credo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
To change the password of an .MDB file, use the following function:

void SetDBPassword( LPCTSTR pDB, LPCTSTR pszOldPassword, LPCTSTR pszNewPassword )
{
CDaoDatabase db;
CString strConnect( _T( ";pwd=" ) );

// the database must be opened as exclusive
// to set a password
db.Open( pDB, TRUE, FALSE,
strConnect + pszOldPassword );

COleVariant NewPassword( pszNewPassword, VT_BSTRT ),
OldPassword( pszOldPassword, VT_BSTRT );

DAO_CHECK( db.m_pDAODatabase->NewPassword( V_BSTR( &OldPassword ),
V_BSTR( &NewPassword ) ) );

db.Close();
}
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32755587
Credo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А вот и ссылочка:
ms-help://MS.MSDNQTR.2004APR.1033/vclib/html/_MFCNOTES_TN054.htm

в самом конце странице находится эта функция
...
Рейтинг: 0 / 0
Задание пароля на БД
    #32755623
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в Access выглядет вот так
за прочие языки не в ответе
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    Dim wrkJet As Workspace
    Dim dbs As Database
    Dim newpass As String
    Dim oldpass As String
    newpass = "11111"
    oldpass = "12345"
    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
    Set dbs = wrkJet.OpenDatabase("d:\testpass.mdb", True,False, "MSAccess;PWD=" & oldpass)
    dbs.NewPassword oldpass, newpass
    Set dbs = Nothing
...
Рейтинг: 0 / 0
24 сообщений из 24, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Задание пароля на БД
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]