| Вопрос: Как сменить пароль к БД программно? | Добавлено: 24.03.11 11:16 |
Автор вопроса:  Sergey
|
| Есть БД MS Access, нужно программно сменить пароль. Как это сделать? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  СанСаныч Вопросов: 3 Ответов: 118 |
Профиль | | #1 | Добавлено: 24.03.11 23:45 |
| http://tinyurl.com/6k246qs | ||
|
Номер ответа: 2 Автор ответа: Lion ICQ: 367220539 Вопросов: 13 Ответов: 55 |
Web-сайт: Профиль | | #2 | Добавлено: 25.03.11 15:19 |
|
Private Sub Command1_Click() Dim PathDB As String Dim OldPassw As String Dim NewPassw As String PathDB = App.Path & "\db1.mdb" 'путь к базe OldPassw = "" 'текущий пароль NewPassw = "123" 'новый пароль Call ComactAndChangePasswordDB(PathDB, OldPassw, NewPassw) End Sub Private Sub ComactAndChangePasswordDB(PathDB As String, OldPassw As String, NewPassw As String) Dim JRO As Object Dim OldDB As String, NewDB As String Dim StrPart1 As String, StrPart2 As String OldDB = PathDB NewDB = PathDB & "_Temp" StrPart1 = "PROVIDER=Microsoft.Jet.OLEDB.4.0  ata Source="
StrPart2 = ";Jet OLEDB:Database Password=" Set JRO = CreateObject("JRO.JetEngine"  'создаем экземпляр объекта JetEngine
'сжатие и восстановление базы данных , замена пароля JRO.CompactDatabase StrPart1 & OldDB & StrPart2 & OldPassw, StrPart1 & NewDB & StrPart2 & NewPassw Kill OldDB 'удаляем "старую" базу Name NewDB As OldDB 'Присваиваем полученной, 'сжатой' БД ее прежнее имя Set JRO = Nothing End Sub http://bit.pirit.info/forum/viewtopic.php?p=94940 |
||
|
Номер ответа: 3 Автор ответа:  час1Вопросов: 5 Ответов: 35 |
Профиль | | #3 | Добавлено: 25.03.11 17:18 |
|
Спасибо!
Круто и понятно! |
||
Страница: 1 |