Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Пароли на базу данных Access

Delphi , Базы данных , Access

Пароли на базу данных Access

Автор: Savva
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Установка/Изменение/Удаление пароля на базу данных Access

Функция для удаления, задания и изменения пароля базы данных Access используя DAO Engine.

PS. кто будет использовать - в комментариях отметьте версии ОС, Access,Delphi.

Зависимости: Dialogs,DAO2000,ComObj
Автор:       savva, savva@nm.ru, ICQ:126578975, Орел
Copyright:   Сапронов Алексей (Savva)
Дата:        13 сентября 2002 г.
***************************************************** }

//определяем тип, указывающий действие над паролем
type
  TPasswordAction = (paSet, paChange, paRemove);

  ....

function ChangeAccessDBPassword(DatabaseName: string; action: TPasswordAction;
  OldPassword: string = ''; NewPassword: string = ''): boolean;
var
  DAO: _DBEngine;
  db: Database;
  ClassID: TGUID;
  V35, V36: string;
  oldPass, newPass: string;
begin
  Result := false;
  V35 := 'DAO.DBEngine.35';
  V36 := 'DAO.DBEngine.36';
  try
    try
      ClassID := ProgIDToClassID(v36);
    except
      try
        ClassID := ProgIDToClassID(v35);
      except
        raise;
      end;
    end;
    DAO := CreateComObject(ClassID) as _DBEngine;
    if action = paSet then
    begin
      db := DAO.OpenDatabase(DatabaseName, true, false, '');
      db.NewPassword(#0, NewPassword);
    end
    else
    begin
      db := DAO.OpenDatabase(DatabaseName, true, false, ';pwd=' + OldPassword);
      if action = paChange then
        db.NewPassword(OldPassword, NewPassword)
      else
        db.NewPassword(OldPassword, #0);
    end;
    Result := true;
  except
    // выводим сообщение о ошибке
    on E: Exception do
    begin
      Result := false;
      ShowMessage(e.message);
    end;
  end;
end.

Пример использования:

//устанавливаем новый пароль - БАЗА ДОЛЖНА БЫТЬ НЕ ЗАПАРОЛЕНА,
// иначе будет ошибка:)

procedure TForm1.Button1Click(Sender: TObject);
var
  newPass: string;
begin
  if InputQuery('New password', 'Enter new password', newPass) then
    if ChangeAccessDBPassword(ExtractFilePath(ParamStr(0)) + 'db2.mdb', paSet,
      '', newPass) then
      ShowMessage('OK!')
    else
      ShowMessage('Error!');
end;

//изменяем пароль

procedure TForm1.Button2Click(Sender: TObject);
var
  oldPass, newPass: string;
begin
  if InputQuery('Old password', 'Enter old password', oldPass) then
    if InputQuery('New password', 'Enter new password', newPass) then
      if ChangeAccessDBPassword(ExtractFilePath(ParamStr(0)) + 'db2.mdb',
        paChange, oldPass, newPass) then
        ShowMessage('OK!')
      else
        ShowMessage('Error!');
end;

//удаляем пароль

procedure TForm1.Button3Click(Sender: TObject);
var
  oldPass: string;
begin
  if InputQuery('Password', 'Enter password', oldPass) then
    if ChangeAccessDBPassword(ExtractFilePath(ParamStr(0)) + 'db2.mdb',
      paRemove, oldPass, '') then
      ShowMessage('OK!')
    else
      ShowMessage('Error!');
end;

Статья Пароли на базу данных Access раздела Базы данных Access может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


:: 2010-05-19 00:44:35 :: re:Пароли на базу данных Access

пользователь: SEAcret.

Выдаёт ошибку на строку
db := DAO.OpenDatabase(DatabaseName, true, false, '');
Пожалуйста помогите!


:: 2010-05-19 20:55:07 :: re:Пароли на базу данных Access

пользователь: kan.

Какую именно ошибку?


:: 2010-05-19 23:37:16 :: re:Пароли на базу данных Access

пользователь: SEAcret.

ошибочный аргумент


:: 2010-05-20 21:30:58 :: re:Пароли на базу данных Access

пользователь: kan.

1. Проверь путь базы данных
2. Убедись что база не запаролена
3. В описании интерфейса DAO, функция описана как function OpenDatabase(const Name: WideString; Options, ReadOnly, Connect: OleVariant): Database; safecall; попробуй переставить поле с паролем, на 2 место
4. Если ничего не получится сделай экспорт tlb файла (Menu projects/Import Type Library) для DAO и им уже пользоватся.


:: 2010-05-21 11:39:35 :: re:Пароли на базу данных Access

пользователь: SEAcret.

Сделал все пункты из твоей инструкции но но результат все тот же. Правда я не уверен что все сделал правильно в пункте 5 а именно:
-открыл окно Import Type Library
-выбрал в нём microsoft DAO 3.6 Object libary
-нажал Instal
-установил в папку с delphi
потом у меня выскочило непонятное окно с типами или что то вроде того и я его закрыл. После всего я перезапустил Delphi.
Буду очень благодарен за помощь.
P.S. я тут завул отот вопрос на другом форуме http://www.cyberforum.ru/delphi-database/thread130315.html т.ч. если будет интересно во всех подробностях то смотри.


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Access ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
27.10.2021 10:47:47/0.001060962677002/0