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

← →
_VaaL_ (2002-10-02 10:53) [0]

Привает All.
Как програмно запаролить/сменить пароль аксесовской базы данных?
Можна ссылки.
Спасибо.

← →
sniknik (2002-10-02 14:12) [1]

так понимаю хелпа у вас нет, мне вас искренне жаль.

Инструкция ALTER USER или DATABASE
Изменяет пароль существующего пользователя или базы данных.

Синтаксис
ALTER DATABASE PASSWORD новыйПароль прежнийПароль

ALTER USER пользователь PASSWORD новыйПароль прежнийПароль

--------------------------------------------------------------------------------

Ниже перечислены аргументы инструкции ALTER USER или DATABASE:

Элемент Описание
пользователь
Имя пользователя, добавляемое в системную базу данных.
новыйПароль
Новый пароль, который связывается с указанным именем пользователя или базы данных.
прежнийПароль
Существующий пароль, который связывается с указанным именем пользователя или группы.

← →
_VaaL_ (2002-10-03 12:02) [2]

Не так все просто

ADOConnect.Mode:=cmShareExclusive; ADOConnect.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;"+ "Data Source=C:\temp\temp.mdb;Persist Security Info=False;"+ "Jet OLEDB:Database Password=pwd"; ADOConnect.Connected:=true; ADOPWD.SQL.Clear; ADOPWD.SQL.Add("ALTER DATABASE PASSWORD """+edNewPWD.Text+""" """+ edOldPWD.Text+""""); ADOPWD.ExecSQL;

Выдает сообщение "неправильный пароль".

Че то тут не так. Пробовал в ConnectionString добавлять параметр
Jet OLEDB:New Database Password=newpwd
Етот вариант проходит (тоесть база загружается) но пароль не меняется. Вот :(((

← →
sniknik (2002-10-03 12:21) [3]

а ты случаем не перепутал их местами?
вот выполнил для примера работает
ALTER DATABASE PASSWORD 22 11
старый пароль 11 заменился на новый 22 no problem
все работает но если хочеш сложные способы то см. справку по например JERO методам.
исходя из того что хелпа у вас всетаки нет вот пример на бейсике переводи

Copies and compacts a closed database, and gives you the option of changing its version, collating order, encryption, and other options.

Syntax

JetEngine.CompactDatabase(SourceConnection, DestConnection)

Parameters

SourceConnection A String value specifying a connection to the source database to be compacted. An error will occur if the database specified by SourceConnection is already open.

DestConnection A String value specifying a connection to the destination database to be created by the compaction. An error will occur if the database specified by DestConnection already exists or another file with that name already exists.
и т.д.

CompactDatabase Method Example
This example demonstrates how to compact and encrypt a database with the CompactDatabase method.

Public Sub CompactAndEncrypt()

Dim je As New JRO.JetEngine

" Make sure that a file doesn"t exist with the name of
" the compacted database.
If Dir("C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind2.mdb") <> "" Then Kill _
"C:\Program Files\Microsoft Office\Office\Samples\Northwind2.mdb"

" Compacts and encrypts version Northwind database.
je.CompactDatabase _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind2.mdb;" & _
"Jet OLEDB:Encrypt Database=True"

End Sub

← →
_VaaL_ (2002-10-03 12:40) [4]

:)))))) Блин все оказалось намного проще...
Нужно было убрать кавычки которые обрамляли новый и старый пароль. Зарабртало!!!
Спасибо.
ЗЫ: Кстати, где можно взять документацию по этим JRO интерфейсам?
Скинь ссылочку если не тяжело.

← →
sniknik (2002-10-03 13:14) [5]

Офис стоит? в смысле МС Офис? если ставил полностью с хелпами то примерно здесь
D:\Program Files\Common Files\Microsoft Shared\Office10\1033
Jro, Dao, Ado, AdoSql

← →
_VaaL_ (2002-10-04 09:52) [6]

Спасибо.

Как запаролить програмно? Найти похожие ветки