Базы Данных и пароли

Новости сервера	Программирование	Интернет-технологии	Операционные системы
Security & Hack	Базы данных	Локальные сети	Программные руководства
Компьютерное железо	Графика	Разное	Ссылки
Поиск	Книжный магазин	Цены	Spravka.ua

InfoCity - виртуальный город компьютерной документации

Реклама на сайте

Смотрите информацию смс приглашение на свадьбу на сайте.

Размещение сквозной ссылки

Базы Данных и пароли

Очень часто, если почти не всегда, приходится сталкиваться с проблемами секретности. В прилагаемой статье описаны несколько простеньких примеров по обеспечению защиты Базы Данных.

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

Смена пароля Базы Данных

Снятие пароля с Базы Данных

Установить, сменить и снять пароль с БД можно с помощью 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
В результате Вы сняли пароль с Базы Данных.

Реклама на InfoCity

Финансы: форекс для тебя

Новости сервера	Программирование	Интернет-технологии	Операционные системы
Security & Hack	Базы данных	Локальные сети	Программные руководства
Компьютерное железо	Графика	Разное	Ссылки
Поиск	Книжный магазин	Цены	Spravka.ua