Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как изменить пароль на Access?

Combo © (2007-07-19 12:02:00)
Delphi + ADO + Access
решил добавить возможность изменять пароль. Сообщений нашёл больше сотни, но все они однотипны, и большинство сводится к "залезь в Access и измени". Но это же не серьёзно!

Разными способами пытался добиться положительного результата, но больше чем появление трёх окон подряд:
1. Enter Old Password
2. Enter New Password
3. "Ошибочный аргумент"
не добился.
Пробовал:
Mode=Share Deny Read|Share Deny Write Mode=Share Exclusive
То-же самое!

Может, у Вас есть какой-то проверенный способ изменить пароль?

sniknik (2007-07-19 14:57:00) [1]
> Правильно? Ведь ты на это намекал?
не намекал, прямо и без обиняков говорил "читай справку"

> Пожалуйста: if InputQuery(
это издевательство? "нарисовать" можно любые окна, мне интересны те которые получаются от "попыток добиться положительного результата" именно от установки пароля. именно с них речь началась. ни на какие другие не согласен.

> Подскажи хоть как этот - Jet OLEDB:Database Password менять?
:о)))) уверен? смена этого параметра тебе ничего на даст (в плане сабжа. который сам по себе какойто "мутный")... но раз хочеш.

ADOConnection.Properties['Jet OLEDB:Database Password' ].Value:= '12345';

вуаля, поменяли!
но вообще ни один параметр соединения строки коннекта тебе ничего не даст... т.к. ты эту строку не там используешь (и в принципе не надо пытаться использовать "там", искать место, в справке способ проще описан).

Combo (2007-07-19 13:05:00) [2]
> sniknik © (19.07.07 12:21) [1]
Да, действительно пытался менять не то:
- менял: ';pwd=' + OldPassword);
- а надо: 'Jet OLEDB:Database Password="'+pas+'"';
Правильно? Ведь ты на это намекал?

> очень хочу такие же окна научится вызывать...
Пожалуйста: if InputQuery('Old password', 'Enter old password', oldPass) then if InputQuery('New password', 'Enter new password', newPass) then

Подскажи хоть как этот - Jet OLEDB:Database Password менять?

sniknik (2007-07-19 12:21:00) [3]
> но все они однотипны, и большинство сводится к "залезь в Access и измени". Но это же не серьёзно!
конечно не серьезно! серьезно, и другого типа совет - "залезь в Access нажми F1 и прочитай в справке как меняется пароль (сколько их, и на что)"

> Разными способами пытался добиться положительного результата, но больше чем появление трёх окон подряд:
а какое от какого способа? (очень хочу такие же окна научится вызывать...)

> Пробовал:
> Mode=Share Deny Read|Share Deny Write
> Mode=Share Exclusive
> То-же самое!
нет, справочку всетаки надо прочитать... а то у тебя машина не заводится, а ты ее красить принимаешься вместо того чтобы заправить.

> Может, у Вас есть какой-то проверенный способ изменить пароль?
конечно есть! как в греции, но только в обмен на реальные(!!!) "попытки добиться положительного результата"

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »