powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как получить свойство Description у AccessObject
42 сообщений из 42, показаны все 2 страниц
Как получить свойство Description у AccessObject
    #32538793
vladK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Извините, если где и было - не нашёлю Нужно такое

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Dim obj  As AccessObject
    Dim prop As AccessObjectProperty
    
    Dim strTmpPath As String
            strTmpPath = Environ$("TEMP")
    
    'Queries'
        For Each obj In Application.CodeData.AllQueries

             If obj.Properties("Description") Like strDescription & "*" Then
                    Debug.Print obj.Name
                    'Application.SaveAsText acQuery, obj.Name, strTmpPath & "\" & obj.Name'
             End If
        Next obj
        
     'Forms'

     For Each obj In Application.CodeProject.AllForms
            
             If obj.Properties("Description") Like strDescription & "*" Then
                    Debug.Print obj.Name
                    'Application.SaveAsText acForm, obj.Name, strTmpPath & "\" & obj.Name'
             End If
        Next obj
End Sub
Ошибка где пробую получить obj.Properties("Description")
А в отладчике показывает, что нет вообще никаких свойств у объекта obj.
Ну допустим Description запроса, я могу получить через DAO.QueryDef.Properties, а с формами и отчетами как?
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32538815
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для таблиц такая цепочка работает:
Код: plaintext
db.Containers("Tables").Documents(TableName).Properties("Description")
формы и отчеты туда же прокопай
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32538840
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Для форм и отчетов надо сделать еще одну вещь дополнительно. Те пропертя, которые доступны через db.Containers(...).Documents(TableName).Properties, - это только часть. Чтобы получить остальную часть, надо открыть форму/отчет в конструкторе, пройти по ее/его свойствам и закрыть. Примерно так:

dim d as document,p as property
for each d in db.Containers("Forms").Documents
for each p in d.properties
...
next
docmd.openform d.name,acDesign
for each p in forms(d.name).properties
...
next
docmd.close acForm,d.name
next
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32538856
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
присоединяюсь
Код: plaintext
1.
2.
3.
4.
5.
6.
For Each docLoop In MyDb.Containers!Forms.Documents
For Each docLoop In MyDb.Containers!Reports.Documents
For Each docLoop In MyDb.Containers!Modules.Documents
For Each docLoop In MyDb.Containers!Scripts.Documents
For Each MyTbl In MyDb.TableDefs
For Each MyQuer In MyDb.QueryDefs
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32538959
vladK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо всем,
Shuhard, Ваш вариант работает, и что странно без дополнительных действий описанных Владимиром Санычем. И ещё интересно, что в хелпе к А2000 ни словом не упоминается что в этих контейнерах есть формы и отчеты, зато говорится (или я так понял), что под Tables понимаются также и запросы, а проверка показывает, что это не так и поэтому применяю DAO.QueryDef.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32538977
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Повторяю, что с моими дополнительными действиями пропертей будет получено больше.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32538988
vladK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нет соврал, Tables действительно это и таблицы и запросы, но при таком обращении у них нет Description, а у запросов есть - во как. Так что проще, действительно, таблицы и запросы брать через DAO, а остальное через контейнеры.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32538999
vladK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Саныч - принял к сведению, спасибо.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539020
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Саныч к разговору
Код: plaintext
1.
For Each MyQuer In MyDb.QueryDefs
показывает набор стелс-запросов начинающихся с ~ по штуке на список/поле со списком в форме и имеющих недокументированный тип 3
сжатие базы их стирает а компиляция восстанавливает содержимое RecordSource списков

не знаешь есть ли способ их программной генерации - цель скрытие от User -a
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539038
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Уууууу... (из анекдота про паровоз).
Нет, это слишком круто для меня.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539109
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Чудно - цикл по QueryDefs выполняли десятки форумян списки в формах есть у всех и НИ ОДИН НЕ ЗАЛЕЗ в эти запросы ?
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539178
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторЧудно - цикл по QueryDefs выполняли десятки форумян списки в формах есть у всех и НИ ОДИН НЕ ЗАЛЕЗ в эти запросы ?
Конечно "залезает", только непонято, в чем проблема? Не показывайте их и все ...
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539319
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
запросы имеют недокументированный тип 3.К ним можно обращаться и открывать DoCmd.OpenQuery, но нельзя увидеть, посему 2 вопроса:
- возможно - ли создание запросов такого типа
- не влияют -ли они на производительность файл-серверных вариантов mdb+mdb я смотрел для "вадя" шниффером трафик и списки сильно тормозили сохранение формы
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539515
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shuhard - версия акцесс какая - 2000?
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539517
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
97 в XP сейчас проверю
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539524
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
97 ?????
это ОЧЕНЬ интересно.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539541
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в XP запрос существует но тип 0 открыть не дает в примере это
~sq_cF2~sq_cSp_1
а в 97 можно открыть и обратиться select из другого запроса
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539545
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в догон для появления артефакта надо скомпилить код под формой или потрогать конструктором

кнопку нажать сами догадаетесь
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539549
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я щас скачаю и гляну. К сожалению потопать ногами не смогу - нет 97, а при конвертации - никто никому ничего не обещал.
А подумалось вот что,
если речь идет о DAO.QueryDef.Type , то тип 0 - запрос на селект, пока не проверил, что происходит с остальными "документированными" типами AND 3 (ожидаю, что 0), и подозреваю пока, что тип 3 - это скомпилированный запрос на селект - вместе с планом исполнения.

ЗЫ
Shuhard, я действительно горю с линком к парадоксовой таблице. ПРисоветуй, что делать - здесь отдельный топик создать, или еще куда податься...
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539550
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вдогонку - возможно, как раз "временный", тот, что под источник формы при компиляции создается.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539554
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
проверил ? 3 AND документированный тип . Натурально, во всех случаях 0
стало быть 3 - шибко самостоятельный
(еще не качал)
щас покурю и качну
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539555
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
топчи в Xp открыться не дает а выборку легко




автор
я действительно горю с линком к парадоксовой таблице


если есть маленький не ДСП файлик зажми положи на конфу или сунь в мыло с учетом GPRS скачиваемости
помочь заочно невозможно
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539563
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
уж ночь на дворе, а тут солнцепек начался в пятницу - покурить выйтить не дают. )
вспонил, то, о чем я сходу подумал, если правильно помню - тип 5 имеет...
пошел курить 15 мин

ЗЫ
не дсп - можно и выложить
(как покурю)
а словами?
я бы обсказал, чего не могу сделать - что-то мне ситуация стандартной пока
представляется, а парадоксов я не топтал - нету друг, такого опыта...
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539573
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
открыл пока архив XP
ничего не топча посмотрел MsysQueries
так вот там у ~sq_cF2~sq_cSp_1 в первом столбце аттрибут как раз 5 стоит

если правильно помню - это хранимая процедура. Щас в справку полезу
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539586
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пока ничего до конца не понял, выкладываю назад
XP
посмотри модуль (он уже работал)
и запрос 2
может чо поймешь
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539592
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сам поразглядывал Запрос2 и дошло:
тип 3 - это сохраненный запрос под роусорс контрола. Во как Щас посмотрю, будет ли для формы тип отличаться.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539595
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ха, для формы ТОЖЕ тип 3
вот теперь (кажется) понятно, кто такой тип 3
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539597
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот с источником формы
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539598
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
про системные таблицы знаю
твой запрос вижу способ генерации красивый
ты можешь сделать его невидимым ?
я не могу
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539601
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Прочитал, но так и не понял, в чем проблема?
Факт существования таких запросов давно известен, Type у них такой же как и у остальных запросов 5.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539602
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
под акцесс 2000 он будет невидим (кажется)
под XP (; - никак - только признак скрытый ставить.

для меня в целом, то, что ты присла - новость. 97 пока не смотрел, - про него новость отдельная.
да, еще можно создать отдельную группу на тулбаре объектов базы данных (правая клава - новая группа, унести туда "запрос" - (правда, любой), тогда в стандартном окне запросов его не будет.
То, что ты показал, позволяет, надеятся на то, что дорожка к прямой манипуляции системными таблицами может отыскаться.
Я точно не возьмусь.

ЗЫ
посмотрел на парадокс, в архивном виде 4 файла ~20-21 кб трафика сожрут
возьмешся?
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539606
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Serge -запросы не видны - как достичь это ?
когда таблицы прилинкованы где будут создавать ~ запросы на клиентской или файловой стороне ?
еще раз повторюсь списки значительно тормозят сохранение формы из конструктора.Возможно создание одноименных запросов ускорит.
т.е. может быть от них какая польза ?
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539607
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Serge Gavrilov
проблем нет. мы как будто никого не поучаем, и ни на чьи вопросы не отвечает, поэтому под регламент не попадаем. Единственная неэтичность - засорили чужой топик, надеюсь автор нас простит.
Serge, мы просто безграмотность свою коллективно ликвидируем.
ЭТО МОЖНО?
))
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539610
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
автор
ЗЫ
посмотрел на парадокс, в архивном виде 4 файла ~20-21 кб трафика сожрут
возьмешся?

<500 кбайт возьму конечно не вопрос
+ напомни проблему их нельзя прилинковать через что и в какой версия и что с данными надо сделать потом
т.е. однократная работа или файлы приваливают регулярно
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539611
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Shuhard
авторВозможно создание одноименных запросов ускорит
ЭТО (сохранение, пересоздание "запросов") И ЕСТЬ главная причина тормозов списков. Со списками рецепт таков - не лопускать создания/сохранения в базе ТАКИХ запросов. ВОТ ОНА - ЧИСТАЯ ВОДА - наконец то нашлась.
А достигается это так - у хранимой в базе формы роусорс списка ВСЕГДА пустой. При подъеме формы, в коде подставляешь роусорс, ПЕРЕД ЗАКРЫТИЕМ - обязательно сбрасываешь - люди говорят, от 30 до ПОРЯДКОВ (в зависимости от количества комбобоксов) сокращяется время загрузки

2 САНЫЧ - ПРОСТИ - я просто не удержался - прошу не считать это ответом на вопрос. ссылки на местный ФАК - все равно не приведу - не знаю где тот фак и как искать. Просто пропусти.

2 Serge Gavrilov
Тип у них, запросов, этих как раз 3, а не 5 (в смысле DAO.QUERYDEF.Type)
Тип в Запросе2 в поле flags стоит, а не в поле type.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539613
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Shuhard
на front можно?
проблему отпишу письмом
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539616
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Хто поминал мое имя всуе и помял его?..
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539617
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
автор
2 Shuhard
на front можно?
проблему отпишу письмом

давай !
начистил у мобилы антенну!
Жду!

автор
А достигается это так - у хранимой в базе формы роусорс списка ВСЕГДА пустой. При подъеме формы, в коде подставляешь роусорс, ПЕРЕД ЗАКРЫТИЕМ - обязательно сбрасываешь - люди говорят, от 30 до ПОРЯДКОВ (в зависимости от количества комбобоксов) сокращяется время загрузки

я советовал нику "вадя" аналогичный подход вероятно были и более ранние посту увы не нашел вынужден был импровизировать.
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539619
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ShuhardТип у них, запросов, этих как раз 3, а не 5 (в смысле DAO.QUERYDEF.Type)
Тип в Запросе2 в поле flags стоит, а не в поле type.
Я понял, что речь идет именно о поле Type, извините.

VictoshaSerge, мы просто безграмотность свою коллективно ликвидируем.
ЭТО МОЖНО?

Конечно и я тоже хотел в этом поучаствовать (в смысле ликвидации своей безграмотности), но никак не попадал в "волну"
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539622
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Serge Gavrilov
(учитывая твое нахождение в конфе вопрос про изобретение другого велосипеда)

собираюсь написать мин сложный монитор подключений mdb файлов на Windows серверах позволяющий обрубать конекты руками/автоматом

решение по таймеру со всзводом флага в таблице/файле + Гетца с невозможностью нового конекта мне известны

решения рубящего в готовых приложениях на конфе не нашел

из своего админского опыта знаю что архивация без этого неполноценная

решение основано на dos команде net file --> net file Id --> net file id /CLOSE
(NetFileEnum/NetFileGetInfo/NetFileGetInfo netapi32.dll)
выполняемых на стороне сервера

Вопрос - стоит париться или есть готовые решения
(про СУБД не рассказывай сам админ)
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539643
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ShuhardВопрос - стоит париться или есть готовые решения

Думаю стоит "париться", свое оно свое :)
Реального опыта работы с подобными системами у меня нет
...
Рейтинг: 0 / 0
Как получить свойство Description у AccessObject
    #32539900
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Victosha
Shuhard, я действительно горю с линком к парадоксовой таблице. ПРисоветуй, что делать - здесь отдельный топик создать, или еще куда податься...

Пей пиво - вес взят(я увы не пьющий)
вот отсюда http://www.tradesoft.ru/download/bdesetup/

добываешь BDE 5.01(с borland можешь скачать обновление) - bdesetup.exe 4.8 метра - устанавливаешь
после чего Access XP радостно цепляет Paradox db
пример приложил раскрой в d:\vik
Удачи(дублирую мыльцем на 2 адреса)
...
Рейтинг: 0 / 0
42 сообщений из 42, показаны все 2 страниц
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как получить свойство Description у AccessObject
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]