Как получить пользовательское свойство базы в MS Access 2000?

← →
Zelius © (2003-07-23 11:40) [0]

В MS Access а диалоге "Свойства базы данных на закладке "Прочие" можно добавить и изменить своё собственное свойство! А как это сделать программно? Желательно через JET Engine. А вообще я ищу где бы в базе хранить ее версию. Сейчас у меня для этого таблица заведена, но Свойства мне кажутся привлекательнее. Спасибо!

← →
sniknik © (2003-07-23 13:36) [1]

как по "правильному" не знаю, возможно через OpenSchema, но можно и из таблицы MSysObjects для поля Name = UserDefined значение записи LvProp (блоб поле разобрать как он его туда пишет, 64байта на свойство)

← →
Zelius © (2003-07-23 18:13) [2]

спасибо!

>Zelius © (23.07.03 11:40)
procedure TForm1.Button2Click(Sender: TObject);
var
DBEngine, Database, Properties: OleVariant;
begin
DBEngine := CreateOleObject("DAO.DBEngine.36");
Database := DBEngine.OpenDatabase("c:\test.mdb");
Properties := Database.Containers["Databases"].Documents["UserDefined"].Properties;
ShowMessage(Properties.Item["Test"])
end;

Как получить пользовательское свойство базы в MS Access 2000? Найти похожие ветки