Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / описание таблицы -> ADO или ADOX / 5 сообщений из 5, страница 1 из 1
28.06.2004, 12:14:27
    #32579290
marvan
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
описание таблицы -> ADO или ADOX
В Access у таблиц и запросов есть описание, которое можно редактировать в свойствах таблицы/запроса и просматривать в виде таблицы. Как получить это описание, используя ADO или ADOX?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2004, 12:37:52
    #32579337
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
описание таблицы -> ADO или ADOX
Если я не ошибаюсь то вроде это только через
DAO TAbledef в ADOX эту возможность не перенесли















http://kozin1.narod.ru/newsite/index.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2004, 13:00:45
    #32579375
marvan
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
описание таблицы -> ADO или ADOX
DAO TAbledef?
А через Access.Application или ещё как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.06.2004, 02:03:33
    #32580177
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
описание таблицы -> ADO или ADOX
Код: plaintext
1.
2.
3.
4.
5.
Dim dbs As DAO.Database, ctr As DAO.Container, doc As DAO.Document
Dim prp As DAO.Property
Set dbs = CurrentDb
Set ctr = dbs.Containers("Tables")
Set doc = ctr.Documents("МояТаблица")
Debug.Print doc.Properties("Description")

Естественно, если описания у объекта нет, то нет и свойства- будет ошибка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.06.2004, 10:26:13
    #32580427
marvan
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
описание таблицы -> ADO или ADOX
2 Alexander G
Огромное спасибо. С помощью твоего кода нашел, что искал.
http://www.tek-tips.com/gviewthread.cfm/pid/709/qid/752030
к сожалению из-за наличия хитро прилинкованных таблиц (из незащищённой базы к защищённой) - ADOшные способы - OpenSchema или Catalog не сработали, а DAO не подвёл
Код: 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.
26.
27.
Private Function getTableDescription(strSourceFile As String, strTableName As String) As String
    Dim ws As New DAO.DBEngine
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim prop As DAO.Property
    
    Set db = ws.OpenDatabase(strSourceFile)
    Set tbl = db.TableDefs(strTableName)
    Set prop = tbl.Properties("Description")
    getTableDescription = prop.Value
    
    Set ws = Nothing

End Function

Private Sub setTableDescription(strSourceFile As String, strTableName As String, strDescription As String)
    Dim ws As New DAO.DBEngine
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim prop As DAO.Property
    
    Set db = ws.OpenDatabase(strSourceFile)
    Set tbl = db.TableDefs(strTableName)
    Set prop = tbl.Properties("Description")
    prop.Value = strDescription
    
    Set ws = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / описание таблицы -> ADO или ADOX / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 374ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1673549]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 87ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 200ms
total:  374ms
x
x
Закрыть


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