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

Заранее спасибо.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
25.10.2004, 13:31:33
    #32752699
Credo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
Вот-вот, и мне подскажите, пожалуйста
...
Рейтинг: 0 / 0
25.10.2004, 13:55:46
    #32752795
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
См. Help
DAO.Database.NewPassword
и
DAO.DBEngine.CompactDatabase
...
Рейтинг: 0 / 0
25.10.2004, 14:37:11
    #32752920
Credo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
А можно ссылочку на все это?
...
Рейтинг: 0 / 0
25.10.2004, 14:41:02
    #32752938
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
F1
...
Рейтинг: 0 / 0
25.10.2004, 14:41:44
    #32752941
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
ссылочка на F1 - всё сидит в встроенном хэлпе+ поиск по конфе даст достаточно примеров кода
...
Рейтинг: 0 / 0
25.10.2004, 14:56:53
    #32752984
Credo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
Нету там никакого NewPassworda!!!!!!!!!!
...
Рейтинг: 0 / 0
25.10.2004, 15:01:10
    #32753000
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
CredoНету там никакого NewPassworda!!!!!!!!!!
DAO подключено? Если да, то наберите в коде или Immediate window NewPassword и нажмите F1 (можно и Object Browser использовать)
...
Рейтинг: 0 / 0
25.10.2004, 15:20:15
    #32753046
z
z
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
А если используется ADO?
...
Рейтинг: 0 / 0
25.10.2004, 15:21:32
    #32753056
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
CredoНету там никакого NewPassworda!!!!!!!!!!
протираем глазки
подключаем DAO
...
Рейтинг: 0 / 0
25.10.2004, 15:41:04
    #32753113
z
z
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
Аууууууууу!!! А если используется ADO?
...
Рейтинг: 0 / 0
25.10.2004, 16:19:00
    #32753236
к
к
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
Ну вот такой вот код используется:
а как же задать новый пароль?
...
Рейтинг: 0 / 0
25.10.2004, 16:35:07
    #32753299
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
zАууууууууу!!! А если используется ADO?
а НЕТУ в ADOX пароля на базу - поэтому подключаем ссылку на DAO и не паримся
...
Рейтинг: 0 / 0
25.10.2004, 16:36:08
    #32753303
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
кНу вот такой вот код используется:
а как же задать новый пароль?
блин - ну написано -же НОВЫЙ пароль
...
Рейтинг: 0 / 0
25.10.2004, 18:39:41
    #32753670
н
н
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
Вы уверены, что нету у ADOX пароля на базу?
...
Рейтинг: 0 / 0
25.10.2004, 20:23:19
    #32753819
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
нВы уверены, что нету у ADOX пароля на базу?
я уверен , пароли у юзеров/групп см картинку - на базу ёк
P.S. в ADOX много ещё чего нет
...
Рейтинг: 0 / 0
26.10.2004, 09:43:08
    #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
26.10.2004, 15:44:20
    #32755218
Credo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
to marvan:

Ты меняешь пароль в уже существующей базе и с заданным паролем, а прикол в том, что средствами ADO или DAO надо создать БД и задать ей пароль. Создается же она тока под User ID = Admin и Psw = '' и никак больше :-(
...
Рейтинг: 0 / 0
26.10.2004, 16:04:52
    #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
26.10.2004, 16:09:34
    #32755284
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
есть юзера ,их пароли,права на обьекты,
а есть пароль на mdb - ставиться он через DAO см выше ответ S.Gavrilova
...
Рейтинг: 0 / 0
26.10.2004, 17:27:06
    #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
26.10.2004, 17:49:54
    #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
26.10.2004, 17:58:43
    #32755587
Credo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание пароля на БД
А вот и ссылочка:
ms-help://MS.MSDNQTR.2004APR.1033/vclib/html/_MFCNOTES_TN054.htm

в самом конце странице находится эта функция
...
Рейтинг: 0 / 0
26.10.2004, 18:13:44
    #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
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Задание пароля на БД / 24 сообщений из 24, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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