Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.08.18;
Скачать: [xml.tar.bz2];

Вниз

Как получить пользовательское свойство базы в 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]

спасибо!


 
Ученик   (2003-07-24 00:28) [3]

>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;



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.08.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.004 c
14-58472
Jean
2003-07-23 20:45
2003.08.18
Элементы ИИ. Распознавание слов.


14-58487
II
2003-07-23 15:31
2003.08.18
Как сделат всgлывающее окошко при наведении на ячейку в TDBGridEh


14-58385
Maks Realov
2003-08-04 15:33
2003.08.18
Размещение памяти под массив указателей.


14-58492
Sharik_212
2003-08-04 15:49
2003.08.18
Как программно закрыть MessageBox?


14-58483
kamchatik
2003-07-23 16:24
2003.08.18
Работа с Install Shield Express





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский