ОписАние поля таблицы Access / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ОписАние поля таблицы Access

3 сообщений из 3, страница 1 из 1

ОписАние поля таблицы Access

#34251464

assist

Гость

Здравствуйте!!!!

Есть БД Access, содержащая таблицу, в таблице для каждого поля есть описание. Можно ли извлечь эту информацию, а также изменить или удалить? И как это сделать? Подключаюсь через ADO.

Заранее благодарен!!!!

...

Рейтинг:

0 / 0

12.01.2007, 13:11

| Ответить | Цитировать | Написать

ОписАние поля таблицы Access

#34251496

RVI

Участник

Откуда: Москва

Сообщения: 5 577

Рейтинг: 0 / 0

Могу предложить пример, как программно изменить описание поля таблицы, правдо DAO:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Sub SetFieldDescription(ByVal TableName As String, ByVal FieldName As String, ByVal FieldDescription As String)
    Dim DB As DAO.Database
    Dim tbl As DAO.TableDef
    Dim fld As DAO.Field
    
    Set DB = CurrentDb()
    Set tbl = DB.TableDefs(TableName)
    Set fld = tbl.Fields(FieldName)
    
    On Error GoTo err_
    fld.Properties("Description") = FieldDescription
    
    Exit Sub
    
err_:
    If Err.Number =  3270  Then
        fld.Properties.Append fld.CreateProperty("Description", dbText, FieldDescription)
    Else
        Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
    End If
End Sub

...

Рейтинг:

0 / 0

12.01.2007, 13:20

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

ОписАние поля таблицы Access

#39864814

kulib

Гость

Здравствуйте! А никто не подскажет почему у меня это не работает? Тормозится на tdf.Properties.Append prp. Ошибка 3367 "Добавление объекта невозможно. Он уже входит в семейство"
Все референсы вроде подключены.

Код: vbnet

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.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.

Option Compare Database

Option Compare Database

Function TEST() '

DoCmd.SetWarnings False
    
    Dim dbs As DAO.Database, Properties As DAO.Properties
    Dim QName As String 'имя запроса

Set dbs = CurrentDb

'здесь просто убиваю тестовые результаты
On Error Resume Next
    DoCmd.DeleteObject acQuery, "Запрос NEW"
'    DoCmd.DeleteObject acQuery, "Запрос1 NEW"
On Error GoTo 0

QName = "Запрос" 'есть запрос на объединение здесь называется "Запрос2"


txtSQL = dbs.QueryDefs(QName).SQL
'просто создаю его копию
    Set MyQuery = dbs.CreateQueryDef(QName & " NEW", txtSQL)
        dbs.TableDefs.Refresh
'дальше хочу создать описание объекта (созданного запроса)
    sDescr = dbs.Containers("tables").Documents(QName).Properties("description") 'читаем описание объекта, которое есть по-любому (по условию)
    
    Set tdf = dbs.QueryDefs(QName)
    Set prp = tdf.CreateProperty("description", dbText, sDescr)
    dbs.TableDefs.Refresh
    tdf.Properties.Append prp 'здесь проявляется ошибка 3367
    Set tdf = Nothing
        
        
        Set MyQuery = Nothing
    Return

End Function

...

Рейтинг:

0 / 0

20.09.2019, 18:31

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ОписАние поля таблицы Access

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&tid=1610468]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	91ms
get topic data:	14ms
get forum data:	3ms
get page messages:	44ms
get tp. blocked users:	2ms
others:	311ms

total:	497ms