Бази Даних і паролі, Інші СУБД, Бази даних, статті

Дуже часто, якщо майже не завжди, доводиться стикатися з проблемами секретності. У поданій статті описані кілька простеньких прикладів щодо забезпечення захисту Бази Даних.

Установити, змінити і зняти пароль з БД можна за допомогою MS Access і програмно за допомогою
Visual Basic

Роботу з MS Access ми розглядати не будемо, а зупинимося на здійсненні нашої задачі програмним шляхом.

 

Установка пароля на Базу Даних

Розглянемо два випадки при яких Вам необхідно поставити пароль на Базу Даних.

1. База Даних вже існує і необхідно її ‘запаролити’.

2. Необхідно створити вже ‘запаролених’ Базу Даних

Випадок 1.

Установка пароля здійснюється за допомогою методу NewPassword . База Даних повинна бути відкрита в режимі Exclusive  (True), і для Read\Write (False).

У необхідних Вам місцях вставляєте наступний код:

‘Оголошуємо змінні

Option
Explicit

Private
WS As Workspace

Private
DB As Database

Dim
strDBPath As String

Dim
strNewPwd As String

‘Цей код можна поставити під Command1_Click або туди куди Вам зручно

Set
WS = DBEngine.Workspaces(0) ‘Відкриваємо робочу область

Set
DB = WS.OpenDatabase (strDBPath,True,False)
‘Відкриваємо БД

DB.NewPassword “”, strNewPwd

 

В результаті проведених операцій Ваша База Даних ‘обзаводиться’ паролем!

 

Випадок 2.

У необхідних Вам місцях вставляєте наступний код:

‘Оголошуємо змінні

Option
Explicit

Private
WS As Workspace

Private
DB As Database

Dim
strDBPath As String

Dim
strPwd As String

‘Цей код можна поставити під Command1_Click або туди куди _

Вам зручно

‘Відкриваємо робочу область

Set
WS = DBEngine.Workspaces(0) 

‘Створюємо БД, де strDBPath – шлях до створюваної базі даних, _

strPwd – Пароль встановлений Вами

Set
DB = WS.CreateDatabase(strDBPath,dbLangGeneral & “;pwd=” & strPwd)

В результаті Ви створите БД, яку можна відкрити тільки за допомогою пароля.

Зміна пароля Бази Даних

Зміна пароля здійснюється за допомогою методу NewPassword.

Відкриваємо Базу Даних, але пам’ятайте, БД Ви повинні відкрити в режимі Exclusive (True) і Read \ Write (False). 

У необхідних Вам місцях вставляєте наступний код:

‘Оголошуємо змінні

Option
Explicit

Private
WS As Workspace

Private
DB As Database

Dim
strDBPath As String

Dim
strOldPwd As String

Dim
strNewPwd As String

‘Цей код можна поставити під Command1_Click або туди куди Вам зручно

‘Відкриваємо робочу область

Set
WS = DBEngine.Workspaces(0) 

‘Відкриваємо БД, де strDBPath – шлях до бази даних, strOldPwd – старий пароль

Set
DB = WS.OpenDatabase(strDBPath,True,False, _ 

“MS Access;pwd=” &
strOldPwd)

DB.NewPassword strOldPwd,
strNewPwd

В результаті Ви змінили пароль на Базі Даних.

Зняття пароля з Бази Даних

Зняття пароля з Бази Даних ні чим не відрізняється від розглянутого нами випадку – зміни пароля. Зняття пароля також здійснюється за допомогою методу NewPassword.

Відкриваємо Базу Даних, але пам’ятайте, БД Ви повинні відкрити в режимі Exclusive (True) і Read \ Write (False). 

У необхідних Вам місцях вставляєте наступний код:

‘Оголошуємо змінні

Option
Explicit

Private
WS As Workspace

Private
DB As Database

Dim
strDBPath As String

Dim
strOldPwd As String

Dim
strNewPwd As String

‘Цей код можна поставити під Command1_Click або туди _

куди Вам зручно

‘Ініціалізували змінні

strNewPwd= “” 

‘Відкриваємо робочу область

Set
WS = DBEngine.Workspaces(0) 

‘Відкриваємо БД, де strDBPath – шлях до бази даних, strOldPwd – старий пароль

Set
DB = WS.OpenDatabase(strDBPath,True,False,


“MS Access;pwd=” &
strOldPwd)

DB.NewPassword strOldPwd,
strNewPwd

В результаті Ви зняли пароль з Бази Даних.

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*